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oyce heißt der neue Star bei 

Schneider. Ein halbes Jahr hat es 

gedauert, bis der für den Ge- 
schäftsbereich gedachte Computer auf 
Platz eins der Schneider-Verkaufshit- 
parade vorrückte. Nicht zuletzt der dra- 
stische Preissturz auf 1799 Mark hat 
diese Entwicklung hervorgerufen. 

Der Name Joyce steht für einen Com- 
puter, der bewährte Technologie zu 
einem günstigen Preis bietet. Wie von 
Schneider gewohnt, ist das Angebot 
wieder rundherum komplett. Monitor, 
Drucker, Diskettenlaufwerk, Computer 
und Software, nichts fehlt zum Einstieg 
in die elektronische Datenverarbeitung. 
Da man wieder auf bewährte »Bau- 
steine« - wie den Z80 als CPU und 
CP/M Plus als Betriebssystem, vereint 
mit modernen Komponenten wie 
Mallard-Basico und hochintegrierte 
Schaltungen - gesetzt hat, ist auch der 
Joyce ein interessantes Gerät. 

Aber natürlich bleiben bei diesem 
Computer wieder eine Menge Fragen 
‚offen, sowohl beim Einsteiger als auch 
beim Profi. Deshalb haben wir be- 
schlossen, dieses Schneider-Sonder- 
heft (es ist übrigens schon das vierte) 
um einen Joyce-Teil zu bereichern. Dort 
finden Sie unter anderem Programme 
zum Abtippen und eine Einführung in 
das sehr gute Mallard-Basic. Freunde 
von CP/M Plus kommen im CP/M-Teil 
auf ihre Kosten. 

Dieser Teil ist natürlich auch für die 
Besitzer des CPC 6128 gedacht. Denn 
hier werden alle Hilfsprogramme auf 
den Systemdisketten zusammenhän- 
gend und ausführlich besprochen. 

‚Aber auch die Besitzer der ersten 
Schneider-Computer haben wir nicht 
vergessen. Die neuesten Spieletrends 
hat unser Spielespezialist wieder für 
Sie zusammengetragen. Spiele-Li- 
stings zum Abtippen für die Fleißigen, 
dazu interessante Anwendungspro- 
gramme und wieder eine ganze »Latte« 
mit Tips & Tricks. 

Trotzdem glauben wir, noch mehr auf 
Ihre Wünsche eingehen zu können. 
‚Aber dazu brauchen wir Ihre Hilfe, Eine 
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große Umfrage mit tollen Preisen soll 
dabei helfen. Und deshalb eine Bitte an 
Sie: Machen Sie mit. Denn es lohnt sich 
doppelt. Zum einen können Sie einen 
der Preise - beispielsweise ein Disket- 
tenlaufwerk oder eine Speichererwei- 
terung - gewinnen, zum anderen 
bestimmen Sie, was in zukünftigen Son- 
derheften und Ausgaben von Happy- 
Computer für Schneider-Freaks stehen 
wird. 

Dem Heimcomputer-Markt steht ein 
Wandel bevor wie noch nie zuvor - trotz 
seiner Geschichte. Die 8-Bit-Computer 
werden angesichts der neuen 
68000er von vielen schon totgesagt. 
Das mag für alte Geräte dieser Klasse 
vielleicht zutreffen, aber moderne aus- 
gereifte Konzepte machen auch den 
Z80 weiterhin aktuell. Und neben den 
68000ern dringen immer mehr die 
IBM-kompatiblen 16-Bit-Computer in 
die untere Preisklasse ein. Die Vielfalt 
der Prozessoren und damit der Geräte 
ist noch lange gesichert. Und in dieser 
Klasse wird Schneider mit seinen Com- 
putern auch in Zukunft ein Wörtchen 
mitreden. 

Nicht zuletzt der Kauf von Sinclair 
durch Amstrad, dem englischen Ent- 
wickler der Schneider-Computer, zeigt, 
daß viele diesem Marktnoch eine große 
Zukunft geben. Auch Vortex, der 
bekannteste Peripheriehersteller für 
Schneider-Geräte, setzt auf diese 
Welle. Denn die Versorgung mit Neuent- 
wicklungen aus Neuenstadt ist gewähr- 
leistet. 

Mit diesem Heft liefern wir Ihnen wie- 
der mehr als 120 Seiten Informationen 
an die Hand. Ich möchte an dieser 
Stelle allen danken, die uns ihr Wissen 
zur Verfügung gestellt haben. Denn nur 
mit Ihrer Mitarbeit können wir auf »alle« 
Ihre Fragen eine Antwort finden. 

Also machen Sie mit und schicken 
Sie uns Artikel, Informationen, Anre- 
gungen, Listings oder was Ihnen sonst 
noch einfällt. 


Ihr 
Andreas Hagedorn 


Schneider - 
im Wendel 
der Zeit 


r 
Er 
A 


| 


Zwei heiße Renner stellen wir in unserem Spieletest vor: Bomb- 
Jack, der quer durch die Welt Bomben aufsammeln und entschär- 
ten muß. Es entwickelte sich zum Favoriten bei uns in der Redak- 
tion und begeistert sicherlich alle, die Aktion lieben. 10 


Diskettenlaufwerke war beim Schneider schon immer ein wich- 
tiges Thema. Ob Schneider- oder Vortex-Station, 3-Zoll- oder 
5'/-Zoll-Doppel- oder Einfachlaufwerk, lautet die Frage. Bei dieser 
Entscheidung wollen wir Ihnen behilflich sein. 6 


Auf Ihrer CP/M-System-Diskette finden Sie Dienstprogramme en 
masse. Das Handbuch geht aber nur wenig darauf ein und läßt 
viele Fragen offen. Unser CP/M-Teil hilft Ihnen dabei, mit Ihrer CPIM- 
Version optimal zu arbeiten. 120 
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Es ist noch kein Beethoven vom Himmel gefallen, aber unser 
Grundlagen-Artikel über Soundprogrammierung kann Ihnen einen 
Schritt weiterhelfen. Daneben helfen Ihnen weitere Beiträge beim 
Einstieg in die Grafikweit und in die Basic-Programmierung. 33 
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Bitte verteilen Sie Ihre 7 Arneen 


Die Welt liegt Ihnen zu Füßen, wenn Sie es in unserem Listing 
„Feldherr« bis zum Diktator gebracht haben. Es ist dem Brettspiel 
»Risiko« nachempfunden und bedarf einer ordentlichen Portion an 
strategischem Talent, um seinen Gegner zu bezwingen. 58 


Der Joyce fand im Büroalltag schon weite Verbreitung. Trotzdem 
sind sich viele Anwender über seine Fähigkeiten noch nicht im kla- 
ren. Vom Umgang mit Mallard-Basic und CP/M Plus bis hin zur Soft- 
wareübersicht stellen wir den Joyce im Detail vor. 22 


Das Diskettenlaufwerk von Schneider 


s ist nichts Ungewöhnliches im 

Bereich der Heim- und Personal- 

Computer, daß für ein Gerät Lauf- 
werke verschiedener Hersteller ange- 
boten werden. Daß aber die Fremdfabri- 
kate der Firma Vortex ein solch riesiger 
Verkaufserfolg sind, verwundert nun 
doch. Woher kommt das? Eigentlich 
gibt es zwei Gründe. Einmal gehört 
‚Amsdos, das Diskettenbetriebssystem 
von Schneider, nicht gerade zu den 
komfortabelsten und leistungsfähig- 
sten DOS-Versionen auf dem Compu- 
termarkt. VDOS, das Vortex Disk 
Operating System, kann da - beson- 
ders in der aktuellen Version 2.0 - 
schon erheblich mehr. Ausschlagge- 
bend für viele Vortex-Kunden sind aber 
garantiert die Diskettenpreise. Rech- 
nen Sie doch einmal mit: Eine Vortex- 
Diskette kann rund 700 KByte spei- 
chern, das ist mehr als das Doppelte 
der Kapazität der Schneider-Disketten 
(pro Seite 154 KByte im IBM-Format, 
169 KByte im CP/M- und Vendorformat 
sowie 178 KByte im Data-Only-Format). 
Für eine 3-Zoll-Diskette müssen Sie 
etwa zwölf bis vierzehn Mark aufwen- 
den. Die ungleich leistungsfähigeren 
Vortex-Scheiben kosten Sie selbst bei 
Verwendung der empfohlenen Quali- 
tätsdisketten nur sechs bis sieben 
Mark. Das Laufwerk von Schneider 
arbeitet nicht mit 3'/. Zoll wie beim 
‚Atari-ST, Amiga von Commodore oder 
einige IBM-Kompatiblen, sondern mit 
dem etwas ungewöhnlichen 3-Zoll- 
Format. Außer Amstrad hat nur die 
britische Firma Tatung die Hitachi- 


Der Schneider CPC kann sich 
inzwischen an einem reichhalti- 
gen Angebot an Diskettenstatio- 
nen erfreuen. Wir haben die bei- 
den gebräuchlichsten heraus- 
gesucht und unter die Lupe 
genommen. 


Laufwerke dieses Formats in ihren - in 
Deutschland kaum bekannten - Com- 
puter »Einstein« eingebaut.Es gibt aber 
auch Gründe, die für dieses Format 
sprechen. Erheblich kleiner als der 
5"/4-Zoll-Bruder, kann man die Disket- 
ten auch in der Hemden- oder Hosenta- 
sche transportieren. Die Disketten 
besitzen nämlich ein stabiles Plastik- 
Gehäuse, das Deformationen beim 
Transport - sogar auf dem Postweg - 
verhindert. Nimmt man die Disketten 
aus dem Laufwerk, verschließt ein Me- 
tallschieber das Gehäuse, so daß kein 
Staub oder ähnliches die empfindliche 
Beschichtung verunreinigt. 

Weniger angenehm bekommt der 
Anwender die bereits angesprochene 
Speicherkapazität zu spüren. Die Dis- 
ketten speichern auf jeder Seite 
184320 Byte. Je nach Format stehen 
154 bis 178 KByte zur Verfügung. Die 
Kapazität verdoppelt sich, wenn man 
die Disketten umdreht und den Compu- 
ter die Rückseite beschreiben läßt. Das 
ist kein Geheimtip aus der Trickkiste, 
sondern wird von Schneider und den 
Diskettenherstellern offiziell empfoh- 
len. Dennoch wird die Umdreherei mit 


5% Zoll heißt das Format von Vortex 


der Zeit lästig, und man sehnt sich nach 
einem Doppelkopf-Laufwerk. 

Auch die vierzig Tracks neun Sekto- 
ren, mit denen die Disketten formatiert 
werden, sind nicht mehr der letzte 
Stand der Technik. Die Vortex- 
Laufwerke formatieren 80 Spuren und 
benötigen dann die altbewährten 
5'/4-Zoll-Disketten in der Ausfertigung 
DSDD (Double Sided Double Density) 
mit 96 tpi (Tracks per inch). Diese Dis- 
ketten sind zwar bekanntlich sehr emp- 
findlich gegen Fingergrabbeleien, dafür 
aber auch erheblich billiger. 


Amsdos contra 
VDOos 


Amsdos liegt in einem 16-KByte- 
ROM. Da aber der Logo-Interpreter im 
selben ROM »beheimatet« ist, bleiben 
in Wirklichkeit leider nur noch acht 
davon übrig. In diesem Bereich ein kom- 
plettes DOS unterzubringen, ist schon 
eine große Leistung. Zwangsläufig wur- 
den aber Kompromisse eingegangen. 
So ist das Kopieren und Formatieren 
von Disketten unter Basic nicht mög- 
lich. Der Anwender muß dazu auf die 
mitgelieferte CP/M-Software zurück- 
greifen. In Basic vorhanden sind nur die 
wichtigsten Befehle wie DIR (Inhalts- 
verzeichnis der Diskette), ERA 
(Löschen von Dateien), REN (Umbe- 
nennen von Dateien), USER (Auswahl 
des Benutzerbereichs), DRIVE, AundB 
(Selektion eines Laufwerks). DISK, 
DISK.IN und DISK.OUT schalten vom 


Kassettenrecorder auf die Disketten- 
station um, TAPE, TAPE.IN und TAPE. 
OUT bewirken das Gegenteil. VDOS 
2.0 ist da entschieden leistungsstärker. 
- Vortex entfernte den Logo-Interpreter 

aus dem ROM und implementierte statt 
- dessen andere Routinen. Über RSX- 
' Befehle (»Resident System Exten- 

sions«) kann der Benutzer Diskettenfor- 
- _ matieren (FORMAT), einen Dateischutz 
- vereinbaren (CODE) und Dateiattribute 
setzen (ATTRIBUT). Die relative Datei- 
verwaltung, die beim Schneider- 
Laufwerk völlig fehlt, wird bei VDOS 
über FILES, OPEN, FIELD, GET, PUT 
und CLOSE realisiert. Über DERROR 
kann man auch beim CPC 464 Fehler- 
meldungen von der Diskettenstation 
abfangen. Vortex ließ den verbleiben- 
den Platz im ROM nicht ungenutzt und 
nahm neben diesen diskettenorientier- 
ten Befehlen noch eine Reihe weiterer 
nützlicher Utilities auf. FAST etwa 
beschleunigt die Bildschirmausgabe im 
Modus 2 um etwa das Doppelte, wenn 
der Anwender auf Windows verzichtet. 
SLOW hebt dies wieder auf. Auch die 
vom 664- und 6128-Basic bekannten 
Befehle FRAME, GCHAR (Getchar), 
GPAPER (Graphics Paper), GPEN (Gra- 
Phics Pen), MASK und UNMASK findet 
man als RSX-Erweiterungen wieder. 


Alle Maschinensprache-Freunde wer- 
den von dem eingebauten Maschinen- 
sprache-Monitor sehr angetan sein. In 
etwa so leistungsfähig wie das CP/M- 
Programm DDT.COM, verarbeitet er 
aber Z80-Mnemonics. Er kann Break- 
points in Maschinencode-Programmen 
verwalten, Speicherbereiche mit Byte- 
mustern füllen, Binärdateien lesen und 
auf Diskette schreiben, disassemblie- 
ren, Speicherbereiche kopieren und 
sogar Maschinenprogramme Schritt für 
Schritt (Single Step) ausführen. Der ein- 
gebaute Zeilenassembler enttäuscht 
dagegen etwas. Er versteht zwar den 
kompletten Befehlssatz des Z80-Pro- 
zessors, viel mehr kann er aber nicht. 
Labels, symbolische Sprünge oder 
sogar Makros sind Fremdwörter für ihn. 


Immer wieder 
Kompatibilität 


Leider ist es aber mit der versproche- 
nen Amsdos-Kompatibilität bei VDOS 
nicht allzuweit her. Sogar reine Basic- 
Programme sind nicht frei zwischen 
beiden DOS-Betriebssystemen auszu- 
tauschen. Warum muß denn die 
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Amsdos-RSX sTAPE« bei VDOS gerade 
»CAS« heißen? Die Tabelle listet die 
RSX-Erweiterungen unter Amsdos und 
VDOS auf. Es soll Ihnen helfen, beste- 
hende Programme von einem DOS ins 
andere umzuschreiben. 

Bis vor nicht allzulanger Zeit besaßen 
Heimcomputer kein Betriebssystem. 
CP/M oder gar MS-DOS haftete stets 
der Geruch des Unnahbaren an. Seit- 
dem aber Amstrad und Schneider CP/M 
auf ihren Maschinen implementiert 
haben und kostenlos bei der Disketten- 
station mitliefern, erlebt es einen unge- 
ahnten neuen Aufschwung. Das uner- 
wartete Comeback von CP/M in einer 
Zeit der 16-Bit-Computer unterstützte 
auch der Commodore 128. Bei allen 
Schneider CPCs gehört das CP/M- 
Betriebssystem in der weitverbreiteten 
Version 2.2 zum Lieferumfang der Dis- 
kettenstation. Der CPC 6128 verarbei- 
tet zusätzlich noch das weit anwender- 
freundlichere CP/M Plus (Version 3.0). 
‚Auch Vortex liefert CP/M 2.2 zu seinen 
Laufwerken aus. Ein großer Teil der 
CP/M-Standardsoftware ist somit auf 
dem Schneider-CPC zu verwenden. 
Wenn auch der Speicher für die CP/M- 
Programme (TPA = Transient Program 
Area) mit nicht einmal 40 KByte doch 
sehr knapp geraten ist. Zusammen mit 


notwendig. 


8080-/Z80-Makro-Assembler - Linker/Loader 
Bibliotheksverwalter - Editor/Text-Tools 
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der Speichererweiterung - ebenfalls 
von Vortex - gewinnt dieser Bereich 
jedoch noch an Umfang. 

CP/M-Programme befinden sich 
meist auf 5'/,-Zoll-Disketten. Hier 
herrscht allerdings ein wahres Chaos. 
Jeder Hersteller verwendet sein eige- 
nes Format. Als Besitzer einer 3-Zoll- 
Diskettenstation bleibt einem nichts 
anderes übrig, als Firmen zu suchen, 
die CP/M-Programme in diesem Format 
anbieten oder in dieses Format konver- 
tieren. Das Angebot nimmt zwar mit der 
Zeit immer mehr zu, aber den großen 
Rest der Programme kann man nur auf 
5'/4-Zoll-Disketten kaufen. Und das 
zählt zu den eindeutigen Pluspunkten 
der Vortex-Laufwerke. Vortex liefert 
nämlich das Programm »PARA«, mit 
dem der Benutzer eine Vielzahl von 
CP/M-Formaten lesen und schreiben 
kann. 

Zumindest werden für die 3-Zoll- 
Formate aber Programme wie Turbo 
Pascal und Wordstar angeboten. Sie 
sind inzwischen auch preislich attraktiv 
geworden, während die Mehrheit der 
CP/M-Programme sich preislich noch in 
höheren Sphären befindet. Bei CP/M 
selbst gibt es keine Unterschiede zwi- 
schen den Konkurrenten aus dem 
Schneider-- und dem Vortex-Lager. 
Denn CP/M 2.2 unterliegt strengen 
Normen, und Digital Research wacht 
eisern darüber, daß sich niemand an 
dem Betriebssystem zu schaffen 
macht. Den üblichen Satz von 
Standard-Hilfsprogrammen bieten 
beide: ASM, DDT, ED, PIP, STAT und wie 
sie alle heißen. Doch bei den system- 
spezifischen Utilities finden sich quali- 
tative Unterschiede. Die Schneider- 
Programme unter CP/M 2.2 erfüllen 
ihre Aufgabe einwandfrei, glänzen aber 
nicht gerade durch Benutzerfreundlich- 
keit. Dagegen strengte sich Vortex bei 
den neuesten Versionen der Dienstpro- 
gramme wirklich an und erstellte 
ansprechende Software. Die beiden 


Auch 
ein Doppel- 
laufwerk ist 

erhältlich 


wichtigsten Vortex-Programme heißen 
Disktool 1.0 und Filecopy 3.0. DISK- 
TOOLCOM erlaubt das Formatieren 
und Kopieren ganzer Disketten sowie 
die Übertragung der CP/M-Systemspu- 
ren und Parametersektoren zwischen 
den Disketten. Die Bedienung von Disk- 
tool ähnelt der von DISCKIT3.COM, 
dem Disketten-Dienstprogramm von 
CP/M Plus auf dem Schneider CPC 
6128. FILECOPYCOM bietet dem 
Benutzer die Möglichkeit, einzelne 


CPM 

DIR 

DISC 
DISC.IN 
DISCOUT 
AoderB 
ERA 
REN 
CAS 
CAS.IN 
CASOUT 
SELECT 
RESET 
FORMAT 
CODE 
ATTRIBUT 
FILES 
OPEN 
CLOSE 
FIELD 
GET 

PUT 
FAST 
SLOW 
DERROR 
FRAME 
GCHAR 
GPAPER 
GPEN 
MASK 
UNMASK 
M 


Dateien oder Dateigruppen zu kopie- 
ren. Esist bereits für jetzige und zukünf- 
tige Hardware-Entwicklungen gerüstet 
und arbeitet auch mit RAM-Disks und 
Festplatten zusammen. 

Preise sindimmer ein leidiges Thema. 
Besonders da der Geldbeutel der Com- 
puterfreaks von Natur aus ständig leer 
zu sein scheint. Deshalb ein kurzer 
Preisvergleich. Als Einzel-Laufwerk 
kommt die 3-Zoll-Station von Schneider 
erheblich billiger als das Vortex- 
Laufwerk. Wählen Sie allerdings gleich 
eine Doppelstation, schmilzt der Preis- 
vorteil recht schnell zusammen. Die 
Konfiguration DDI-1 mit FD-1 kostet nur 
unwesentlich weniger als das Doppel- 
laufwerk von Vortex. Beachten Sie aber 
auch, daß der größte Teil der 
Schneider-spezifischen Diskettensoft- 
ware, die aus dem Ausland zu uns 
kommt, nur im 3-Zoll-Format lieferbar 
ist. Dagegen setzt Vortex den Vorteil 
einer um ein Vielfaches höheren Spei- 
cherkapazität. 

Fazit: Wieder einmal kann Ihnen nie- 
mand die Entscheidung abnehmen. Es 
bieten beide Laufwerke Vorteile, doch 
muß sich wohl jeder an seinen Bedürf- 
nissen orientieren, welchen Kompro- 
miß er eingehen will. 

(Martin Kotulla/Udo Reetz) 


Die RSX-Befehle unter Amsdos und VDOS im Vergleich 
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Das Angebot dieser Ausgabe: 


Programme für Schneider-Computer 

‚Spiele Öl. Eifern Sie den Ewings nach mit Ihrem Öl-Imperium. Feldherr. 
Taktisches Spiel für zwei bis vier Personen um die Weltherrschaft. Lunar-Lander. 
Reaktion und Geschicklichkeit sind gefordert. Mit Spielfeldgenerator. 
Anwendungen Taschenrechner. Eine Simulation für mathematisch Interes- 
sierte. Statistik. Statistische Daten grafisch aufbereitet. 

Grafik 3D-Dreh. Mit erstaunlich wenig Programmieraufwand betrachten Sie 
auf Ihrem Monitor Gegenstände in dreidimensionaler Vektordarstellung. 
Background-Painter. Hintergrundgrafiken für eigene Spiele komfortabel und mit 
‚geringstem Speicherbedarf erzeugen. 

CPIM Deutsche Tastatur füralle CPCs. Damit Sie auf Ihrem Computer wie mit der 
‚Schreibmaschine arbeiten können. WordStar-Verbesserung. Unglaublich, was 


man aus leistungsfähigen Programmen noch mehr herausholen kann. 


Diskette 
Bestelkli. LH 8657 so DM 


(sFr. 29,50/68 349,-*) 


Programme aus früheren Ausgaben 


‚puter, Ausgabe 6/86 
Tron-Construction-Set: Das Spiel des Monats 
und Listing des Monats zugleich verspricht ein 
Menge Spielspaß, Auf zwei Bildschirmen bewe- 
‚gen zwei Spieler gleichzeitig Ihre Figuren. 
HiRes-Hardcopy: Das C64-Programm zum 
‚Schwerpunkt. Drucker anschließen, Programm 
laden und starten: Schon kann man die schön- 
sten Hardopies von HiRes-Bildern drucken. 
Ultraload: Auch diesmal ist das sensationelle 
‚Schnelladeprogramm (Ausgabe 1/86) wieder 
mit auf Diskette. 

‚Checksummer: Diese Eingabenilfe ist für 
Basic-Programme kaum noch wegzudenken. 
MSE:  Maschinenspracheprogramme „sind 
schnell und sicher mit MSE eingegeben.” 
Dinketie für den CaIC128 


Happy-Computer, Ausgabe 5186. 
‚Commodore 64, Commodore 128 
Radiah-Two. 

Ein Kletter- und Sammelspiel für den C64 
Ultraboot. 

Ergänzung zu »Ultraload Plus«. 104 zusätzliche 
Blöcke auf der Diskette. 

Simple Sound. 

Eine kleine Soundbibllothek bietet Klänge für 
jede Gelegenheit 

Aus Ausgabe 4/86, 

Qusdrophenia. 

Spiel des Monats für den Commodore 64. 
Kurven. 
Mathematische Kurven auf dem © 128 schnell 
programmiert. (Läuft nicht Im C.64-Modus)) 
Kalonder. 


‚Ein Kalender für die Jahre bis 2000. 


Kassette 
Bestell-Nr. Hass sc DM 34,90* 
(sFr. 29,50188 349,”) 


‚Auto-Boot 128. 
Das Programm nutzt die Fähigkeit des C 128, 
CP/M-Programme automatisch zu booten 
(aden). (Nicht für C64.) 

Widerstände. 

Eine Utllty, die Ihnen hilft, Widerstandswerte 
aus Farbskalen in numerische Werte umzurech- 
nen. Aus Ausgabe 5/86. 
Diskette für den C64/C 128 

Bestell-Nr. LH 8605 CD 

DM 29,90*IsFr. 24,00/8 299,” 


Happy-Computer, Ausgabe 4186 
Schneider CPC 

D-Mon. 

Daten auf Diskette Byte für Byte lesen und än- 
dern. Fehlerhafte Dateien korrigieren undretten. 
GOTO XY (nur CPC 464). 


Accopt. 

Ein komfortabler Ersatz für den normalen 
INPUT-Befehl, mit dem sich jetzt die maximale. 
Eingabe-Länge begrenzen Mt. 
Turbo-Sereen (nur CPC 464). 

Mit dieser RSX-Erweiterung machen Sie der 
Bildschirmausgabe im Modus 2 Beine. 

Aus Ausgabe 2/86. 


Explora. 

Mit diesem Prüfsummen-Generator entfällt die 
lästige und zeitaufwendige Fehlersuche. 
Stack-Manipulation (nur CPC 464). 
Basic-Programmierung mit vier RSX-Befehlen. 


44 neue RSX-Befehle für Grafik-, Sprite-, Dis- 
katten- und Kassetten-Programmierung. 


Achtes Bit. 

Endlich Abhite für den Umstand, daß der 
‚Schnee CPG über die Drucker-Schnittsteile 
nur sieben Datenbits ausgibt. 

Mord im Computer. 

Das DFÜ-Spiel mit Adventure-Charakter, 

Aus Ausgabe 4/86. 
Best-Nr. LH 8604 SK (Kassette) 

DM 29,90*IsFr. 24,90/68 299,7 
Best-Nr. LH 8604 SD (Diskette) 

DM 29,90°IsFr. 24,90/65 299,7 


Bestei-Nr. LH 8601 CD 
DM 29,90° /sFr. 24,90/05 299, 
Happy-Computer, Ausgabe 12/85 
‚Atari B00XU/130XE/800 
Bostel-Nr. LH 8512 B 

DM 29,90° /sFr. 24,90/05 299,” 
Happy-Computer, Ausgabe 12185 

CPC 


‚Schneider 
Diskette für den Schneider GPC: 
Bestel-Nr. LH 8512 G (Kassette) 
DM 29,90° /sFr. 24,90/08 298,” 
Bestell-Nr. LH 8512 D (Diskette) 
DM 34,90° /sFr. 29,50/08 349; 


Bestell-Nr. LH 8511 A 

DM 29,90" /sFr. 24.90/08 299,* 

Happy-Computer, Ausgabe 10185. 
Spectrum 


Sinclair 
Bestell-Nr. LH 8510 D 

DM 19,90* /sFr. 17,-/08 199,* 
Atarı BOOXL 

Bestel-Nr. LH 8510 8 

DM 29,90*/sFr. 24,90/08 299," 
Happy-Computer, Ausgabe 9185. 
Commodore 64 

Bestel-Nr. LH 8509 A (Diskette) 
DM 29,90 /sFr. 24,90/08 209,* 
Happy-Computer, Ausgabe 8/85 
‚Schneider CPC 464 

Bestell-Nr. LH 8S0B G (Kassette) 
DM 29,90° /sFr. 24,90/68 208,” 
Happy-Computer, Ausgabe 7185. 
Commodore 64 


Bestell-Nr. LH 8507 A (Diskette) 
DM 29,90* /sFr. 24,90/65 299, 


Bitte verwenden Sie für Ihre Bestellung und Überweisung die eingeheftete Postgiro-Zahlkarte, 
oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung. 
Sie erleichtern uns die Auftragsabwicklung, und dafür berechnen wir Ihnen keine Versandkosten. 


Happy-Computer, Ausgabe 8/85 
Commodore 84 

Bestell-Nr. LH 8508 A (Diskette) 
DM 29,90° /aFr. 24,90/68 298,” 


Bestel-Nr. LH 8505 G (Kassette) 
DM 29,90* /sFr. 24,90/88 299,” 


Happy-Computer, Ausgabe 4/85 
Commodore64 


Bestel-Nr. LH 8504 A (Diekette) 
DM 29,90" /sFr. 24,90/08 299,* 


Happy-Computer, Ausgabe 3185 
Schneider CPC 464 

Bestel-Nr. LH 8503 G (Kassette) 
DM 29,90° /sFr. 24,90/08 299,” 


Happy-Sonderhefte 


DM 34.90° /sFr. 29,50/08 349, 
Sonderheft 5/86: Programmiersprachen 
Bestell-Nr. LH 8655 SO, für Schneider 
DM 34,90° /aFr. 29,50/08 349,” 
Bestel-Nr. LH 8685 CD, für 064 

DM 29.90° /sFr. 24,90/08 299, 
Bostel-Nr. LH 8685 8D, 10rC128 
DM 29,90°/sFr. 24,90/08 289,” 
Sonderheft 4/86: Schneider 
Bestell-Nr. LH 8654 K (Kassette) 

DM 29,90" /sFr. 24,90/08 299," 
Bostoll-Nr. LH 8684 D (Diskette) 

DM 34,90°/sFr. 29,50/08 349," 
Sonderheft 3186: 68000 

Bestel-Nr. LH 8683 D (Diskatte) 

DM 29,90* /aFr. 24,90/08 290, 
Sonderheft 2186: ATARI 

Bestell-Nr. LH 8682 D (2 Disketten) 
DM 34,90° /sFr. 29,50/08 349,” 
Sonderheft 1186: Schneider 
Bostel-Nr. LH B6S1 D (Diskette) 

OM 34,90° /sFr. 20,60/08 349. 
Bestell-Nr. LH 8681 K (Kassette) 

DM 29.90" /oFr. 24,90/08 209,” 
Sonderheft 2/85: Schneider 
Bostell-Nr. LH 8582 D (3”-Diskette) 
DM 34,90° /sFr. 29,50/09 349,” 
Bestell-Nr. LH 8552 V (5%°-Diskette) 
DM 34,90° /sFr. 29,50/08 349,” 
Bostell.Nr. LH 8552 K (Kassette) 

DM 29,90° /sFr. 24,90/08 200, 
Sonderheft 1185: Spectrum 

Bestell-Nr. LH 8551 D (Kassette) 

DM 18,90*/sFr. 17,-/08 199, 


* inkl. MwSt. Unverbindliche Preisempfehlung. 


Ein bombiges Kerlchen 


Den Spielhallen-Renner »Bomb 
Jack« gibt es jetzt auch für den 
Schneider CPC. Neben allerfein- 
ster Farbgrafik lockt das Pro- 
gramm mit fantastischem Spiel- 
witz-ein Fest für Arkade-Freaks. 


Izeit bereit, rund um die Welt: 

Bomb Jack, der agile Terrori- 

stenschreck, ist wieder unter- 
wegs. Bomben entschärfen ist sein 
Metier, das er trotz aller Widrigkeiten 
blendend beherrscht. Dieser Bursche 
begeistert schon seit ein paar Jahren 
die Besucher von Spielhallen. Das eng- 
lische Softwarehaus Elite Systems hat 
sich die Rechte für die Heimcomputer- 
umsetzungen gesichert. Bei der Ver- 
sion für die Schneider-Computer er- 
wischte Elite Systems zum Glück die 
richtigen Programmierer: Die Grafik ist 
ein Augenschmaus und der Spielwitz 
steht dem Automaten-Original in nichts 
nach. 

Die Regeln sind einfach: Sie steuern 
Bomb Jack, der auf jedem Bild 24 Bom- 
ben entschärfen muß. Das geschieht 
durch Berühren jeder einzelnen Bom- 
be, die dann sofort verschwindet. Auf 
dem Bildschirm ist immer eine Bombe 
zu sehen, deren Zündschnur glimmt. 
Erwischt Bomb Jack so eine Spezial- 
ausführung, bekommt er gleich die dop- 
pelte Punktzahl - normalerweise gibtes 
100 Punkte pro Knallkörper - gutge- 
schrieben. 

Wenn es Ihnen gelingt, mindestens 
20 Bomben mit brennender Zünd- 
schnur zu erwischen, winken saftige 
Sonder-Punkte. Bei 20 Stück gibt es 
10000, bei 21 Stück 20000, bei 22 


a Eee 
‚Auch Ägypten bleibt nicht vor Bombenlegern verschont 


Stück 30000 und bei 23 brennenden 
Bomben gar 50000 Punkte extra! 

Die Steuerung ist einfach. Auf 
Joystick-Knopfdruck hin springt Bomb 
Jack in die Höhe, drückt man den Joy- 
stick gleichzeitig nach oben, macht er 
gar einen ultra-hohen Sprung. Durch er- 
neuten Feuerknopfdruck kann man den 
Sprung abbrechen und Bomb Jack 
sinkt wieder zu Boden. Eine besondere 
Technik ermöglicht es Bomb Jack, 
sogar waagrecht zu fliegen: Wenn man 
in der Sprungphase blitzschnell auf den 
Feuerknopf drückt, klappt die Lenkung 
nach links und rechts. 

Doch das Schicksal schlägt wieder 
einmal in Form von Bösewichten zu, die 
über den Bildschirm kreuchen und flie- 
gen und Bomb Jack bei Berührung ein 
Leben kosten. Ab und zu schwirrt aber 
auch ein Bällchen über dem Bildschirm, 
das bei Berührung Freude bringt. 

Es gibt drei Sorten von Buchstaben- 
Bällen, die sich Bomb Jack unbedingt 
schnappen sollte. B-Modelle erhöhen 


den Bonus, den es beim Aufsammeln 
brennender Bomben gibt, P-Bälle erlau- 
ben einige Sekunden lang das Angrei- 
fen der Gegner, und Bälle der Marke E 
bringen gar ein Extraleben. 

Es gibt nur fünf verschiedene Hinter- 
grundgrafiken, doch langweilig wird es 
nicht. Der Aufbau der Plattformen, auf 
denen die Bomben liegen, ändert sich 
nämlich von Bild zu Bild. 

»Bomb Jack« erfreute sich bei uns in 
der Redaktion einer ungeheuren Be- 
liebtheit, die in abendlichen High Score- 
Jagden ausartete. Selbst unser Com- 
modore-Experte ging fremd und ver- 
gnügte sich mit der Schneider-Version, 
wo er es auf stattliche 207000 Punkte 
brachte. Übertroffen wurde er nur vom 
absoluten Redaktions-High Score, den 
unser Spiele-Spezialist Heinrich 
»Quickfinger« hält: 250000 Punkte! 
Wer mehr aufs Konto bringt, möge sich 
doch mal mit einem Briefchen bei der 
Redaktion melden! 

(Heinrich Lenhardt/hg) 


Bomb Jack muß 
quer durch die Welt 
reisen und Bomben 
sammeln. Hier 
befindet er sich 
gerade vor einem 
deutschen Traum- 
schloß 


Hier steuert Gerald auf einen Lift zu 


Mit etwas Anlauf kann Gerald das Hindernis als Sprung- 


schanze benutzen 


Der 3D-Effekt der 
Grafik ist verblüf- 
fend. Da man sei- 
nen Blickwinkel 
ändern kann, ist es 
möglich, die »ver- 
deckten« Ecken 
eines Screens zu 
sehen 


Welten-Bummler 


Suchen Sie ein Spiel mit atem- 
beraubender 3D-Grafik, kniffli- 
gen Puzzles und joystickgefähr- 
dender Action? Kein Problem, 
mit »Spindizzy« werden Sie in 
allen Belangen bestens bedient. 


Pindizzy stellt Sie vor die Auf- 

gabe, eine verrückte Bildschirm- 

welt zu erforschen und ganz 
nebenbei Diamanten aufzusammeln. 
Wenn Sie jeden der über 300 Räume 
besucht und alle Edelsteine eingesackt 
haben, ist das Spiel gelöst. Das klingt 
alles aber viel einfacher, als es Ist: 
Tückische Screens mit Schikanen, 
Bösewichten und üblen Tricks gilt es zu 
meistern. Wer »Spindizzy« bewältigen 
will, muß ein Meister mit dem Joystick 
sein und hier und da auch mal kräftig 
nachdenken. 

Die Spielfigur, die Sie steuern, hört 
auf den Namen Gerald. Die Bilder, 
durch die Gerald unterwegs ist, erin- 
nern grafisch sehr an den Spielhallen- 


Kulthit »Marble Madness«. Diese Ähn- 
lichkeit ist bestimmt kein Zufall. Bei 
»Spindizzy« hat es ein Programmierer 
erstmals geschafft, diese perspektivi- 
sche Grafik im »Marble Madness«-Stil 
vernünftig auf einem 8-Bit-Heimcompu- 
ter zu realisieren - ein Kompliment an 
Paul Shirley, dem »Spindizzy« ganz 
allein zu verdanken ist. 

Um an die Diamanten zu kommen, 
müssen Sie Gerald oft über halsbreche- 
risch enge Passagen steuern, springen 
und so manchen Trick anwenden. Es 
gibt Aufzüge, die erst aktiviert werden 
müssen, Trampolinfelder und Eiszonen, 
auf denen Gerald ganz schön ins 
Schleudern kommt. »Spindizzy« ist also 
nicht »nur« ein Geschicklichkeits-Test 
mit schöner Grafik, sondern ein gewitz- 
tes Spiel mit vielen unterschiedlichen 
Elementen. Dazu gehört auch ein gehö- 
riger Schuß Logik. Manche Hindernisse 
lassen sich nur per Aufzug überwinden. 
Doch diese Aufzüge müssen erst per 
Schalter aktiviert werden. Dabei kön- 
nen maximal zwei Aufzüge eingeschal- 
tet sein. 


Komfortabel ist die Edelstein-Hatz 
auch: Durch Druck auf »M« erscheint 
eine Karte, »S« zeigt den aktuellen 
Punktestand an, »C« schaltet auf einen 
speziellen Modus für monochrome Mo- 
nitore um, »P« hält das Spiel an und mit 
»l« kann man sogar Gerald's Aussehen 
verändern: Drei Formen stehen dabei 
zur Auswahl. Über die Cursortasten 
können Sie wählen, von welcher Seite 
aus Sie das Spielfeld betrachten. Da die 
Grafik perspektivisch erscheint, kommt 
man bei einigen Bildern ohne diese 
Hilfe gar nicht weiter. 

»Spindizzy« und das oben erwähnte 
»Bomb Jack« sind nach unserer Mei- 
nung die derzeit besten Actionspiele für 
den Schneider. Sie bieten beide hervor- 
ragende Grafik, erstklassigen Spielwitz 
und als entscheidendes Kriterium eine 
langfristig hohe Motivation. Beide Pro- 
gramme sind auf Kassette und 3-Zoll- 
Diskette erhältlich und kosten je nach 
Datenträger zwischen 35 und 60 Mark. 

(Heinrich Lenhardt/hg) 


Bezugsquelle: Korona Soft, Postfach 3115, 4830 Gütersloh 1 
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ROM-Listings im Vergleich 


Mit der Verbreitung der Schneider-Computer wächst auch die Zahl der Buchveröffentlichungen. 
Hier eine Auswahlhilfe für Maschinensprache-Programmierer. 


rei Dinge braucht ein 
Maschinensprache-Pro- 
‚grammierer beim Schnei- 


der CPC: einen Assembler, ein 


Firmware-Handbuch und ein 
ROM-Listing. Doch gerade bei 
den ROM-Listings gibt es reich- 
lich Auswahl. Welche sind beson- 
‚ders empfehlenswert? Wo liegen 
ihre Schwächen und ihre Stär- 
ken? 


CPC 464 inside out 

Beginnen wir mit einem der 
ältesten auf dem Markt, dem 
Buch»CPC 464 inside out«. Esist 
- wie der Name schon erkennen 
laßt - ausschließlich auf den CPC 
464 zugeschnitten. Nachfolge- 
bände für den CPC 664 und CPC 
6128 sind bis jetzt noch nicht 
erschienen. 

Das Buch gliedert sich in unter- 
schiedliche Kapitel. Am Anfang 
steht eine Beschreibung der 
RAM/ROM-Umschaltung und 
des internen Aufbaus von Basic- 
Programmen. Darauf folgt das 
ROM-Listing, das durch Verwen- 
dung farbiger Seiten auch optisch 
aufgeteilt wurde: Auf weißen Sei- 
ten steht das Disassembler- 
Listing des Betriebssystems, auf 
den gelben Seiten das komplette 
System-RAM mit den Systemva- 
riablen und Sprungvektoren. 
Daran schließen sich wieder 


. weiße Seiten an, die den Inhalt 


des Basic-ROMs wiedergeben. 
Nachteilig ist, daß der Autor 
‚sämtliche Kommentare zu den 
ROM-Listings in englischer Spra- 
che gehalten hat. Was er damit 
bezweckt, ist etwas unklar, daalle 
übrigen Texte in Deutsch sind. 
‚Sehr positiv zu vermerken ist hin- 
gegen die »stack-orientierte« 
Schreibweise in den Listings. 
Nach einem PUSH-Befehl er- 
scheinen die folgenden Z80-Be- 
fehle eingerückt, bis durch POP 
der Stapelzeiger SP wieder auf 


denalten Stand gebracht wird. So 
hat der Leser stets einen Über- 
blick darüber, wie ein ROM- 
Programm den Stapelspeicher 
verwaltet. Äußerst nützlich sind 
auch die Querverweise auf 
andere Teile des ROMs und 
RAMSs, die jede ROM-Routine und 
Systemvariable, sei sie nun offi- 
ziell bekanntgegeben oder nicht, 
begleiten. Ein Kennbuchstabe 
macht ersichtlich, ob auf die 
Adresse schreibend oder lesend 
zugegriffen, ob sie als Datum 
oder als Unterprogramm verwen- 
det wird. In diesem Buch, als ein- 
zigem der drei getesteten, sind 
auch die RAM-Routinen (!) ab der 
Adresse B921 hex disassem- 
bliert. 


CPC 464 Intern und CPC 
66416128 Intern 

Das »464 Intern« gehört eben- 
falls zu den schon etwas älteren 
Büchern (wenn man etwa einein- 
halb Jahre »alt« nennen will). Es 
entwickelte sich inzwischen zu 
einer Art »Standardwerk« für den 
Schneider CPC 464. 

Das Buch beschreibt sehr aus- 
führlich die Hardware, die einzel- 
nen Chips im Computer und die 
Komponenten des Betriebssy- 
stems. Auch die Einbindung von 
RSX-Befehlen, die Manipulation 
der nur beim CPC.464 vorhande- 
nen »Error- Patches«, der Aufbau 
von Basic- Programmzeilen und 
die Verwaltung des Basic-Stacks 
sind erläutert. Zum ROM-Listing 
selbst kann man eigentlich recht 
wenig sagen. Man vermißt aller- 
dings die Einrückungen und 
Querverweise. Die Tabelle im 
Anhang ist nicht so vollständig 
wie im »inside oute«. Dafür sind die 
Kommentare in deutscher Spra- 
che gehalten und zum größten 
Teil recht ausführlich. Bei einigen 
Routinen des Betriebssystems 
hat sich das Autorenteam aller- 


dings nicht allzuviel Mühe gege- 
ben. So kommt der Sound-Mana- 
‚ger besonders schlecht weg und 
erfährt über Seiten hinweg fast 
keine Kommentierung. Da infor- 
miert »inside out« eindeutig bes- 
ser. Andererseits ist für den Bast- 
ler noch der Schaltplan des Com- 
puters im Anhang des Buches 
von Interesse. Deshalb kann man 
das »464 Interne guten Gewis- 
sens empfehlen. Beim »664/ 
6128 Intern« hat Data-Becker alle 
Disassembler-Listings aus dem 
Buch verbannt. Daher kam es zu 
der etwas seltsam anmutenden 
‚Situation, daß nur noch die Kom- 
mentare dazu abgedruckt sind. 
Im Anhang ist dann auf 15 Seiten 
ein in Basic geschriebener Disas- 
sembler zu finden. Diesen muß 
man erst abtippen und mit ihm die 
passenden Teile des ROMs 
disassemblieren, bevor man mit 
den Kommentaren im Buch etwas 
anfangen kann. Dies ist allerdings 
zeitaufwendig und nicht gerade 
der Sinn eines ROM-Listing- 
Buches. Außerdem setzt es beim 
Leser einen Drucker voraus. 
Ansonsten ist das »664/6128 
Interne im Textteil weitgehend 
identisch mit dem »464 Intern«. 
Nur ein Kapitel über die hard- und 
softwaremäßige Integration der 
zweiten 64-KByte-Speicherbank 
beim CPC 6128 wurde zusätzlich 
aufgenommen. 


ROM-Listing CPC 464/664/6128 

Dieses Buch ist das jüngste der 
vorgestellten und auch das 
umfangreichste Es umfaßt 
immerhin fast 700 Seiten. Die bei- 
den Autoren hatten sich vorge- 
nommen, nicht nur einkomplettes 
ROM-ListingdesCPC 464 vorzu- 
legen, sondern auch auf die 
Unterschiede zwischen den 
ROMs der drei Schneider CPCs 
einzugehen. Eine Auflistung der 
ROMs von CPC 464, CPC 664 


ROM-Listing CPC - 
drei auf einen Schlag 


und CPC 6128 wäre natürlich viel 
zu umfangreich gewesen. So fin- 
det der Leser ein komplettes 
Disassembler- Listing des CPC 
464-ROMs sowie auf weiteren 
50 Seiten Listings derjenigen 
Betriebssystem- und Interpreter- 
Teile der Modelle 664 und 6128, 
die sich erheblich von denen des 
464-ROMs unterscheiden. Eine 
durchaus sinnvolle Lösung. 

Den Anfang des Buches bildet 
- wie gehabt - eine Einführung in 
die grundlegenden Strukturen 
der Hard- und Software des 
Schneider CPC. Beim »ROM- 
Listing CPC 464/664/6128« 
gerieten sie aber besonders aus- 
führlich. Dinge wie Ringpuffer, 
LIFO- und FIFO-Prinzipien und 
die theoretischen Grundlagen 
der Arithmetikroutinen, die hier 
zur Sprache kommen, sind bei 
keinem der anderen ROM-Li- 
stings zu finden. Positiv ist außer- 
dem zu werten, daß stets Verglei- 
che zwischen den verschiede- 
nen CPC-Versionen gezogen 
werden, so daß der Leser sofort 
erfährt, inwieweit eine bestimmte 
ihm vorschwebende Software- 
Lösung überhaupt portabel ist. 
Die Besprechung der Speicher- 
erweiterung beim CPC 6128 ist 
zwar umfassender als beim »CPC 
664/6128 Intern«, aber leider 
auch noch nicht völlig korrekt. 

Eine wirkliche Meisterleistung 
haben die Autoren vollbracht, 
indem sie sämtliche Routinen des 
Betriebssystems und des Basic- 
Interpreters sowie des System- 
und Basic-RAMs nebeneinander 
für alle CPCs auflisten. Hier kann 
man nachschlagen, wenn manauf 
eine ROM-Routine oder System- 
variable bei einem der CPCs 
gestoßen ist und wissen will, wel- 
che Adresse sie bei den anderen 
CPCs besitzt, Programmkonver- 
sionen zwischen den verschiede- 
nen Modellen sind dadurch wirk- 
lich kinderleicht, Ein ausführli- 
ches Stichwortverzeichnis run- 
det den Eindruck des Buches 
positiv ab. 

(Elisabeth Stenzel/ja) 

into 
Winfried Huslik, »CPC 464 inside out«, 
5. Huslik Verlag, Augsburg 1985, 
ISBN 3-925159-00-2, 59 Mark. 
Brückmann, Englisch, Gerlts, »CPC 484 
Intern«, Data-Becker, Düsseldorf 1985, 
ISBN 3-89011-080-0, 89 Mark. 
Brückmann, Englisch, Gerlts, Steigers, 
»CPC 664/8128 Intern«, Data-Becker, Düssel- 
dorf 1985, ISBN 3-89011:135-1, 69 Mark. 


Mark. 


SPIELE ZU GEWINNEN 


Unter den Einsendern dieses Coupons werden 25 Exem- 
plare des klassischen Arcade-Spiels AIRWOLF verlost. 


Der Rechtsweg ist ausgeschlossen. 


Name und Adresse: 


Computer-Typ: ee 
Name des Magazins, welchem Sie diesen Coupon ent- 
nommen haben: 


Senden Sie diesen Coupon an: 


PETER WEST RECORDS GmbH 
Am Heerdter Hof 15 
4000 Düsseldorf 11 


F Der Knaller!!!! 
ONSTRUCTION 


n. 


Eine Basicerweiterung für den CPC 464 ohne RSX. 
ACB erlaubt das einfache Programmieren von Arcade-Spielen. 
Sehr einfach zu handhaben. 
Alle Befehle werden direkt eingegeben. 
Zu dem Paket gehören ein SPRITE EDITOR und ein 
ändleranfragen anı AUSFÜHRLICHES DEUTSCHES HANDBUCH. 
ETER WEST RECORDS GmbH 
n Heerdter Hof 15 


oz 21H Der Preis nur 44 , 9 0 


8582493 pwr oder 
0211/50486 19 


WWW. HOMESOMPUTERWORLB.EOM 


Anpassungsprobleme 


Das neue F1-X-Laufwerk für den Schneider CPC 
verspricht wahre Wunderdinge: rund 700 KByte 
Speicherkapazität sowohl in Basic als auch unter 
CPIM, wahlweiser Betrieb von VDOS und Amsdos, 
Zusammenarbeit mit der Speichererweiterungs- 
Karte von Vortex und einiges mehr. 


leichzeitig VDOS, Amsdos und 

CP/M verspricht das neue F1- 

X-Laufwerk von Vortex. 
Doch vor den Genuß solcher »Wunder- 
dinge« haben die Götter den Schweiß 
gesetzt. Denn im mitgelieferten Hand- 
buch ist die hard- und softwaremäßige 
Integration der Diskettenstation in die 
übrige Computer-Anlage weder aus- 
führlich noch fehlersicher beschrieben. 

Und dabei ist es ganz einfach, dieses 
Laufwerk mit dem CPC 464 und CPC 
664 zu verbinden. Zuerst aber für die 
464-Besitzer einige Hinweise zum 
Anschluß des Controllers, da dies auf 
einereichlich ungewöhnliche Weise vor 
sich geht. 

‚Sie brauchen zum Aufbau einen klei- 
nen Kreuzschlitz-Schraubenzieher - 
das ist alles! Schalten Sie unbedingt als 
erstes den Computer und alle Periphe- 
riegeräte ab. Dann trennen Sie den an 
die Konsole gesteckten Controller ab 
und ziehen den Stecker des Flach- 
bandkabels vorsichtig von der 3-Zoll- 
Diskettenstation. Nun ist Ihr Amsdos- 
Controller völlig vom System getrennt 
und Sie wenden sich dem neuen von 
Vortex zu. Mit dem Schraubenzieher 
lösen Sie die vier Schrauben auf der 
Unterseite und nehmen die Abdeckung 
‚ab. Vor Ihnen liegt nun offen eine kleine 
Platine mit dem VDOS-Eprom und eini- 
gen anderen ICs. 

Falls Sie bereits ein Erweiterungs- 
ROM an Ihren Computer angeschlos- 
sen haben, kann es zu Überschneidun- 
gen bei der ROM-Nummer kommen. 
Die Vordergrund-ROMs besitzen beim 
Schneider CPC 464 die Nummern Obis 
7, beim 664 und CPC 6128 die Num- 
mern O bis 15. VDOS belegt beim X- 
Laufwerk die Nummer 5. Und genau 
dasselbe macht auch der Maxam- 
Assembler in der ROM-Version. Das hat 
zur Folge, daß der Computer bereits 
beim Einschalten ständig aussteigt, 
solange beide ROMs gleichzeitig vor- 
handen sind. Doch Vortex hat das vor- 
ausgesehen und bietet Abhilfe. Auf der 
VDOS-Platine befinden sich zwei Jum- 
perfelder (Bild 1). Das sind die weißen 
Rechtecke, aus denen je 16 Pins her- 
vorstehen. Unter den Jumpern steht 


Bild 1. 

Der »Jumper« 
selektiert die 

ROM-Nummer 


auf der Platine der Text »A-ROM-B«. 
Gefunden? Dann sehen Sie sicherauch 
den kleinen schwarzen Klotz, der auf 
den Pins der Nummer 5 steckt. Das 
bedeutet, daß das ROM die Nummer 5 
haben wird. Um eine andere ROM- 
Nummer zu wählen, ziehen Sie mit den 
Fingern den Klotz heraus und stecken 
ihn im linken Jumperfeld auf zwei neue 
Pins - am rechten Rand stehen die 
jeweiligen ROM-Nummern. 

Hier eine kleine Übersicht der bisher 
vergebenen Nummern: 

7 - Amsdos-ROM 

6 - BOS-EPROM für die Speicher- 
erweiterung 

5 - Maxam-Assembler 

0 - Basic-ROM 

Es sind also noch die Nummern 1, 2, 
3 und 4 frei. 

Wenn Sie diese Bastelei gemacht 
haben, nehmen Sie wieder Ihren 
Amsdos-Controller zur Hand und legen 
den VDOS-Controller so vor sich, daß 
das herausstehende Flachbandkabel 
zu Ihnen hin zeigt. Beim Amsdos- 
Controller muß das Kabel links aus dem 
Gehäuse kommen. Nun stecken Sie 
vorsichtig den Amsdos-Controller auf 
die hervorstehende Platine im VDOS- 
Controller und drücken die beiden fest 
zusammen. Dann verschrauben Sie das 
Ganze wieder. Nun können Sie den 
VDOS-Controller, in dessen »Bauch« 
der Amsdos-Controller steckt, an die 
3-Zoll-Diskettenstation und die Kon- 
sole anschließen. Das Vortex-Laufwerk 
verbinden Sie mit dem auf dem Kabel 
eingepreßten Stecker. 

Damit sind alle hardwaremäßigen 
Anpassungen durchgeführt und das 
Computersystem ist wieder einsatzbe- 
reit. Beachten Sie bitte die Reihenfolge 
beim Einschalten: Zuerst kommt die 
3-Zoll-Station an die Reihe, dann das 
Vortex-Laufwerk und zuletzt der Com- 


puter. Wenn Sie alles richtig gemacht 
haben, erscheint im Titelbild die fol- 
gende Meldung: 

(C)1986 VDOS 2.0-X by vortex GmbH 

Sollten beide Laufwerksmotoren in 
Betrieb sein und überhaupt nicht mehr 
stoppen, haben Sie höchstwahrschein- 
lich den Stecker von der 5'/4-Zoll- 
Diskettenstation falsch herum auf das 
Flachbandkabel gesteckt. In diesem 
Fallmüssen Sie sofort alles ausschalten 
und den Fehler beheben. 

Kommen wir zur Software-Seite. Sie 
ist ungleich schwieriger zu handhaben 
als die Anpassung der Hardware. Unter 
Basic gibt es keine Probleme: »IB« 
schaltet auf das Zweitlaufwerk um und 
»|X« vertauscht die Zuordnung der Lauf- 
werksnamen A und B. Aber unter CP/M 
2.2 wird es schwierig. 

Vortex empfiehlt allen Ernstes, das 
gepatchte CP/M auf die mitgelieferte 
Original-Diskette zu schreiben. Geht da 
etwas schief, ist die Katastrophe unver- 
meidlich. Vortex hat zwar für diesen Fall 
zugesichert, eine Ersatzdiskette zu 
stellen, aber ärgerlich und zeitaufwen- 
dig ist das trotzdem. 

Unsere Methode ist zwar etwas 
umständlicher, aber dafür hundertpro- 
zentig sicher. Nehmen Sie Ihre Original- 
CP/M-Systemdiskette im 3-Zoll- Format 
und legen Sie sie ins A- Laufwerk. Dann 
starten Sie mit »|CPM« das Betriebssy- 
stem und übertragen mit DISCCOPY. 
COM den kompletten Inhalt der Seite A 
auf eine leere 3-Zoll-Diskette. 

Lassen Sie die neue Diskette im Lauf- 
werk und verstauen Sie die Original- 
Diskette wieder sicher. Mit MOVCPM. 
COM müssen Sie nun den Speicher- 
platz verkleinern: 
A>MOVCPM 178 * 

CONSTRUCTING 44k CP/M vers 2.2 | 
READY FOR "SYSGEN” OR | 
"SAVE 34 CPM44.COM” 


Jetzt schreiben Sie das neue CP/M 
mit SYSGEN.COM auf Ihre 3-Zoll- 
Diskette: 

A>SYSGEN * 

Lösen Sie einen Reset aus und legen 

Sie in das B-Laufwerk eine unfor- 


matierte 5'/4-Zoll-Diskette. Mit 
»lFORMAT,2« formatieren Sie diese von 
Basic aus. Danach laden Sie CP/M, 
diesmal mit dem RSX-Befehl »ICPM,‚i«. 
Der Computer zeigt folgende Meldung: 
CP/M 2.2 - Amstrad Consumer 
Electronics ple 
44K CP/M vers. 
vortex GmbH 
Legen Sie die mitgelieferte Vortex- 
Systemdiskette ins B-Laufwerk und 
starten Sie von dieser SYSGEN.COM: 
A>B: 
B>SYSGEN 
SYSGEN 2.0 (C)1985 vortex GmbH 
Die Frage nach der Quell-Diskette 
beantworten Sie mit »A« und drücken 
‚eine weitere Taste. Nun wechseln Sie im 
Laufwerk B die Diskette gegen die neu 
formatierte aus. Dann können Sie die 
Frage nach dem Ziellaufwerk mit »B« 
und einem weiteren Tastendruck beant- 
worten. Bei »Noch eine Diskette?« tip- 
pen Sie »N« für »Nein«. Danach lösen 
Sie einen Reset aus und legen in B die 
Original-Vortex-Systemdiskette ein. Mit 
»ICPM,2« starten Sie wieder CP/M, 


2.2-03/86 


diesmal vom B-Laufwerk aus. Kurz 
danach erscheint die Meldung: »Keine 
CP/M-Diskette - Wiederholen?«. 

Warten Sie, bis der Laufwerksmotor 
abgeschaltet ist und legen Sie in das B- 
Laufwerk Ihre neue 5'/,-Zoll-Diskette. 
Dann tippen Sie »J« für »Ja«, worauf der 
Computer den Rest von CP/M lädt. Auf 
dem Bildschirm erscheint: 
A44K CP/M vers. 2.2-03/86 
vortex GmbH 

Diesmal in gelber Schrift auf blauem 
Grund. Der Computer verwaltet jetzt die 
Vortex-Station als A- und die 3-Zoll- 
Station als B-Laufwerk. Sie können das 
ohne weiteres mit DIR nachprüfen. Ins 
5'/4-Zoll-Laufwerk kommt wieder die 
Vortex-Systemdiskette, von der Sie 
DISKTOOL.COM starten: 
A>DISKTOOL 

Wählen Sie aus dem erscheinenden 
Menü den Punkt »Komplettkopie einer 
Diskette erzeugen« und nennen Sie als 
Quelle und Ziel beide Male das A- 
Laufwerk. Bei »Formatieren der Ziel- 
Diskette?«e und »Testen der Ziel- 
Diskette?« müssen Sie zweimal »J« ein- 
geben. Nun kommt ein äußerst mühseli- 
ger Kopiervorgang, denn die zweimal 
80 Tracks der Diskette werden von 
DISKTOOL in Happen zu je acht Spuren 
übertragen. Nicht genug damit, 
anscheinend auf Grund eines Program- 


TRAGEN SIE DOCH MAL 


Für alle Fans mit dem hautnahen 


Kontakt zum Computer-Geschehen 


gibt es diese anziehenden »64’er«- 
und »Happy-Computer«-T-Shirts. 
Jetzt so preiswert wie noch nie! 


ZN 


Markt&@echnik 


Unternehmensbereich Buchverlag, 


‚Hans-Pinsel-Straße 2, 8013 Haar bei München 


estellen Sie die gewünschten 

T-Shirts nur mit der eingednuck- 
ten Zahlkarte. Tragen Sie Bestell 
nummern und Anzahl in den Bestell- 
abschnitt auf der Rückseite ein. Tren- 
nen Sie die ausgefüllte Zahlkarte 
einfach heraus und zahlen Sie den 


T-Shirt »64’er« 


T-Shirt »Happy« 
Aukdnuch, 100% Boumwalk, 
weis Schrit, Jeaey, farbe: 


Best_Ne. TS 1061 
Best.Nr. TS 107ML 


Sorgen einer Aukdhuch, 100% Baumwolle,  Slaige 


mierfehlers läuft der Diskettenmotor 
ungebührlich lange nach: immerhin 
rund 15 Sekunden. Das summiert sich 
erheblich, wenn man sich nicht gerade 
zueiner Verzweiflungstat hinreißen läßt 
und beschließt, die Disketten bei lau- 
fendem Motor zu wechseln. 

Dafür haben Sie dann endlich eine 
vollständige Kopie der mitgelieferten 
Vortex-Diskette. Verlassen Sie jetzt 
wieder DISKTOOL mit ESCAPE und 
einer weiteren Taste. Es erscheint das 
wohlbekannte »Keine CP/M-Diskette - 
Wiederholen?«. Sie lösen einfach einen 
Reset aus und starten CP/M neu von 
der 3-Zoll-Diskette, die immer noch im 
Laufwerk liegt, mit dem RSX-Befehl 
»ICPM,l«. Schalten Sie dann auf B um 


und starten Sie SYSGEN.COM: 
A>B: 

B>SYSGEN 

SYSGEN 2.0 (C)1985 vortex GmbH 


Es gilt: Quell-Diskette in A, Ziel- 
Diskette in B, »Noch eine Diskette?« - 
»N« für Nein. Lösen Sie nun ein letztes 
Mal einen Reset aus. Mit »ICPM,2« kön- 
nen Sie von jetzt an das CP/M- 
Betriebssystem stets von der 5'/,-Zoll- 
Diskettenstation laden. DISKTOOL 


erlaubt die Übertragung der System- 
spuren auf bellebige weitere Disketten: 
Menüpunkt 2 »CP/M-Systemspuren 
(Martin Kotulla/hg) 


übertragen«. 


T-Shirt »Hoppy« 

«großer Aulruck, 100% Boumnall, 
weiter Schnit, Jersey, Farbe; weiß. 

Größe 4=5  Bast-Nr, 19.2045 
Best.Nr. T5 205M 
Best.Nr, T5 206L 
Best.Nr. 15 207% 


Rechnungsbetrag beim nächsten 


Pos'amt ein. T-Shirt »64’er« 


Kinder 
Alle Artikel sind vom Umtausch ausgeschlossen! 


15 


D-Wandl 


AD ist die Abkürzung von 
»Analog-Digital«. Eine solche 
Signalwandlung verwendet man 
nicht nur zur Meßdatenerfas- 
sung. Bauen Sie einen A-D- 
Wandler, um beispielsweise 
einen Trackball abzufragen. 


uns mit einer sehr wirkungsvollen 

A-D-Wandlerkarte als Trackball- 
steuerung. Die Vielfalt auf der Karte 
erklärt sich daraus, daß sie mit zwei A-D- 
Wandlern von je zehn Bit Breite ausge- 
stattet ist. Dies gewährleistet eine sehr 
hohe Genauigkeit und Auflösung. Die A- 
D-Wandler setzen analoge Signale digi- 
tal so um, daß sie der Computer verar- 
beiten kann. Die Geschwindigkeit der 
Wandlung ist hoch, wenn man bedenkt, 
daß der Wandler für zehn Bit nur 
0,000015 Sekunden benötigt. 

Stellen Sie sich einmal vor, Sie bewe- 
gen eine Kugel in alle Richtungen und 
wollen die Bewegungen mit dem Com- 
puter erfassen. Dann müssen Sie an 
der x- und der y-Achse die Bewegun- 
gen in analoge elektrische Signale 
umsetzen. In unserem Falle nehmen Sie 
ein Zehn-Gang-Potentiometer, das als 
Spannungsteiler geschaltet ist. So 
erhalten Sie ein analoges Signal, 'das 
Sie dann an die Eingänge der A-D- 
Wandler legen. Der A-D-Wandler wie- 
derum setzt die Spannung, die zwi- 
schen minus 5 und plus 5 Volt liegt, am 
Ausgang in einen numerischen Wert 
zwischen O und 1023 um. Daraus resul- 
tiert eine Auflösung von jeweils 1024 


| n diesem Beitrag beschäftigen wir 


Bild 1. Der fertige A-D-Wandler für alle CPCs 


Werten in der x- und der y-Achse. Dadie 
abgebildete Wandler-Karte ein Muster 
ist, weicht sie ein wenig von der endgül- 
tigen Version ab (ein IC und zwei kleine 
Abgleichpotis entfallen). 

Kommen wir zur Software für unsere 
A-D-Wandlerkarte. Das Programm (Li- 
sting) ist vollkommen interrupt- 
gesteuert und mit folgenden RSX- 
Befehlen in das Basic des Schneider 
CPC 464 eingebunden: 

1. »IADON« schaltet den Trackball- 
Modus ein. 

2. »JADOFF« schaltet ihn wieder aus. 

Das Aussehen des Trackball-Cursors 
bestimmt »SYMBOL 255«. Über die 
Variablen XPOS und YPOS läßt sich die 
momentane Position des Trackball- 


Ic5 
40 Pins 


Bild 2. Lageplan der Bauteile auf der Platine 


Cursors ermitteln. Den Wert aus den A- 
D-Wandlern stellen Sie mit: 


PRINT PEEK(&B013)+256*PEEK 
(&B014) 


für den ersten A-D-Wandler und mit 


PRINT PEEK(&B015)+256%*PEEK 
(&B016) 
für den zweiten fest. 

Die erste Feuertaste läßt sich über 
»PEEK(&b010)« und die zweite über 
»PEEK(&b011)« abfragen. Wichtig ist 
außerdem noch die Zeile »PRINT 
CHR$(23)+CHR$(1)«. Sie gehört an 
den Anfang jedes Programms. 

Nach Abtippen des Listings empfiehlt 
essich, es sofort auf Kassette oder Dis- 
kette zu sichern. Man kann nun eigene 
Programme anfügen - beispielsweise 
Grafik-Programme - die mit dem Track- 
ball zusammenarbeiten. 

Kommen wir zur Praxis - dem Hard- 
wareteil - zu unserer A-D-Wandler- 
Karte (Bild 1). Wir brauchen einen Löt- 
kolben, Lötzinn, Kupfer-Lackdraht (0,2 
mm Durchmesser), eine Lochraster- 
Leiterplatte, einige Widerstände, zwei 
A-D-Wandler des Typs AD 571, eine PIO 
8255 und ein bißchen »digitalen Klein- 
kram«. Die Leiterplatte wird nach Bild 3 
verdrahtet. Doch bevor Sie sich nun an 
das Zusammenbauen der Platine her- 
anmachen, noch einige wichtige Tips: 
- Setzen Sie möglichst alle ICs auf 
Sockel. 

- Setzen Sie die ICs nach Lageplan ein 
(Bild 2). 

- Die A-D-Wandler sind mit Vorsicht zu 
genießen (MOS-ICs). 


Bild 3. Schaltplan des Wandlers 


Verwenden Sie Platinenstecker für den 
schluß an den Erweiterungs-Bus. 
- Selbst angefertigte Bus-Kabel sollten 
auf Kurzschlüsse überprüft werden. 
Löten Sie sauber; kalte Lötstellen und 
| schlüsse vermeiden. 


Polung der Elkos. 
Nach Fertigstellung der Leiterplatte 


- Alle ICs müssen richtigherum in der 
ingsitzen. Sie benötigen ein Netz- 
mit minus 5 und 15 Volt. 


=, 


R 


Vom Selbstbau sei abzuraten, denn 
220 Voltkönnen lebensgefährlich sein. 

Die Rollkugel brauchen Sie nicht 
unbedingt selbst zu bauen; es gibt fer- 
tige Trackballs zu kaufen. Dann aller- 
dings ist ein wenig Bastelei vonnöten, 
damit die Rollkugel mit der Steuerkarte 
zusammenarbeitet. Das Arbeitsprinzip 
eines gekauften Trackballs beruht auf 
der Verwendung von Reed-Relais und 
Magneten auf beiden Achsen. Die 
Mechanik ist jederzeit für unsere 
Zwecke brauchbar, wenn Sie anstelle 
der Magneten die Zehn-Gang-Potis ein- 


R 
N 


= 


Ay-Rr 2,70 
Ra, Ro TOKW/1O Gang 
D1.D2 
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setzen. Dazu bohren Sie in die Achse 
der Übertragungsrolle einLochmitetwa® 
dem Durchmesser der Achse des Potis, 
und stecken ihn dort ein. Wichtig ist, 
daß die Achse des Potis festin der Rolle 
sitzt. Jetzt bauen Sie die veränderten 
Achsen wieder in das Gehäuse ein. 
Wenn das alles soweit erledigt ist, ver- 
drahten Sie die Potis R8 undR9mitden 
beiden Germanium-Dioden D1 undD2, 
wie Bild 2 zeigt. Den Eingang Fi legen 
Sie über die Feuertaste an plus 5 Volt. 


"TRACKBALL LOADER 
SYMBOL 255,128,192,224,24@,248,252,1& 


‚8 

ELS 

PRINT CHR$ (23) +CHR$ (1) 
MEMORY LBFFF 

DATA 21,76,98,6,4,E,8 
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Listing. Steuerprogramm als Basic-Lader 
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Machen Sie Ihr Hobby 
zu Ihrem Beruf! 


Wir sind ein moderner, ständig wachsender Fach- 
verlag mit ca. 350 Mitarbeitern und zwei Tochter- 
gesellschaften in den USA (Silicon Valley in Kali- 
fornien) und der Schweiz. Wir verlegen Fachzeit- 
schriften und Bücher aus dem Bereich Computer 
und Elektronik sowie Software für Heim- und Perso- 


Begeistert Sie die Computertechnik? Als Redakteur 
in unserem Team sollten Sie aber nicht nur fachlich 
Bescheid wissen, sondern auch Spaß am Schreiben 
haben und eine kräftige Portion Neugier besitzen. 


Ihr Aufgabengebiet als Fachredakteur umfaßt das 
Testen von neuer Hard-und Software, das Bearbeiten 
von Listings unserer Leser sowie das Schreiben von 
Fachartikeln. Daneben sollen Sie sich durch den Be- 
such von Messen und die Kontaktpflege zu Herstel- 
lern die notwendigen Informationen und Neuigkeiten 
in der Branche verschaffen. 


Wir bieten Ihnen ein ausgezeichnetes Betriebsklima 
in einem jungen, unkonventionellen Team, ein gutes 


nal Computer. Für unsere Redaktion Happy-Compu- 
ter suchen wir 
Fachleute für % AtariXLundST 

* Programmierspra: 


Gehalt und vorbildliche Sozialleistungen (13. Monats- 
gehalt, Fahrtkostenzuschuß, Essenszuschuß, Alters- 
versorgung usw.), 


Ihre schriftliche Bewerbung (tabellarischer Lebens- 
lauf, Lichtbild, Zeugnisse und — falls vorhanden — 
Kopien von veröffentlichten Arbeiten) senden Sie bit- 
te an unsere Personalabteilung. Für erste Kontakt- 
gespräche steht Ihnen Herr Scharfenberger zur Ver- 
fügung (Tel. 089/46 13-122) 

Markt& Technik Verlag 

Aktiengesellschaft 

Hans-Pinsel-Straße 2, 

8013 Haar bei München 


Des Schneiders Tastatur 


Haben Sie sich auch schon darüber geärgert, daß auf Ihrem Schneider 
die Tasten weder nach DIN angeordnet, noch Umlaute zu finden sind? 
Mit einer kleinen Bastelei und einem Programm können Sie das ändern. 


Die Tastatur kann auch unter CP/M neu belegt werden. 


er von einer Schreibma- 
schine auf einen Schnei- 
der-Computer umsteigt, 


der verwünscht schnell die eingebaute 
amerikanische Tastatur. Dabei ist Ab- 
hilfe sehr einfach. Nur ein paar Basic- 
Befehle passen den Zeichensatz und 
die Tastaturbelegung an die deutsche 
Sprache an. Wer dann perfekt Schreib- 
maschine im Zehnfingersystem schrei- 
ben kann, ohne auf die Tasten zu 
blicken, der braucht keinen weiteren 
Umbau an seinem Computer vorzuneh- 
men. Wenn Sie aber nach dem System 
Adler (»kreisen und zustoßen«) schrei- 
ben, dann müssen Sie auch die Be- 
schriftung an die neue Anordung an- 
passen. 

Insgesamt 16 Tasten sind neu zu 
beschriften. Austauschtasten gibt es 
leider nicht zu kaufen, so daß nur Eigen- 
bau hilft. Die Kosten liegen bei unserer 
Bastelei unter zehn Mark. Etwas hand- 
werkliches Geschick ist allerdings not- 
‚wendig. 

‚Als erstes müssen wir die zu verän- 
dernden Tasten abbauen. Beim CPC 
464 und beim 664 braucht man dazu 
nur einen Schraubenzieher unter den 
Fuß der Taste zu schieben, diese her- 
auszuhebeln, und schon hat man sie in 
‚der Hand. Allerdings ist etwas Vorsicht 
geboten, denn schnell ist das Gehäuse 
des Computers zerkratzt oder beschä- 
digt. Beim CPC 6128 muß man vor dem 
Aushebeln mit dem Schraubenzieher 
mit einem gebogenen Stahldraht eine 
der beiden Halteklauen zurückzu- 
drücken. An der anderen Seite kann 
man dann die Taste herausheben. Bild 1 
zeigt die beiden Methoden. 

Wer eine schöne Handschrift hat, der 
kann jetzt seine Tasten neu beschriften. 
Wer nicht, der sollte zu Abreibebuch- 
staben aus dem Handel greifen. Es gibt 
verschiedene Typen von mehreren Fir- 
men. Für zirka drei Mark pro Bogen bie- 
tet sie jedes Schreibwarengeschäft an. 
Mit etwas Fantasie kann man eventuell 
fehlende Zeichen aus anderen Symbo- 
len herstellen. 

Die Abreibebuchstaben kommen, 
nachdem man die aufgedruckten Sym- 
bole mit etwas Schleifpapier entfernt 
hat, (vorsichtig arbeiten, damit die Pla- 
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Bild 1. Die Tasten des CPC 464 und 664 unterscheiden sich 
von denen des CPC 6128 durch zwei Haltebügel 
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Bild 2. Die amerikanische Tastaturbelegung 


Bild 3. Die deutsche Tastaturbelegung 
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2@ MODE 1 

3® LOCATE 18,1:PEN 1:PRINT"Deutsche DIN- 
Tastatur" 

40 SYMBOL AFTER 32 

ae a HRS TE ER ze 
378-’eCız;], 

&@ ” Anzeigen der normalen Tentatur- 


belegung 


70 TERUNFLUSSHEN"STEBEANE PTEIBRINF-Asd? 


1"3LOCATE 1,12:PR 
00 PEN ZELDEATE SHBL PRINT STRINGE(27, "=" 
):LOCATE 9,15: PRINT STRINGS (27, "=") 
90 ° Definierüng der Umlaute, 
scharfes 5) Para 228 
19ar2ahı 


Be nal jearInz, 

120 SYMBOL 92,182,56,188,198,198,188,56, 
138 EvMBoL 93,182, 1982,102,1802,102,68,8 
148 ee 123,188,8,120,12,124,2@4,118, 


Listing. Tastaturbelegung 


stiktasten nicht zu heiß werden) auf die 
Tasten. Bei der Tastatur des 664 muß 
man allerdings aufpassen, um die 
Tasten aus verschiedenen Reihen nicht 
durcheinanderzubringen. Denn anders 
als beim 464 und beim 6128 ist die 
Form der Tasten der verschiedenen 
Reihen nicht identisch. Abriebfest 
macht man die Tastatur mit etwas mat- 
tem Klarlack. 

Falls jemand seine Handschrift bevor- 
zugt, muß er die Symbole mit einem 
wasserfesten Stift auftragen. Denn nur 
dann kann die Schrift unter dem Klar- 
lack nicht verlaufen. Nun die Tasten ein- 
fach noch einsetzen, und schon ist die 
Operation gelungen. 

Das Programm zur Tastaturbelegung 
finden Sie als Listing. Es ist vollständig 
in Basic geschrieben und läßt sich pro- 


104123 
L7FAEI 
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LAzıCcı 
10986) 
18836) 
LCBREI 


15@ SYMBOL 124,1@2,0,60,1@2,102,1902,60,8 
168 SYMBOL 125,1@2,8,182,1@2,1@2,182,59, 
178 Symzor 126,128,198,198,252,198,198,2 
188 REBTORE 270 


19@ ’ Tasten neu definieren 
20@ FOR n=1 TO 17:READ a,b,cıKEY DEF a,i 


220 ’ Anzeigen der neuen Tastatur- 
230 PEN 1:LOCATE 9,7:PRINT 0$:LOCATE 9,1 


248 LOCATE 13,20: PEN 1s:PRINT"Y und Z ver 
25@ FOR n=1 TO S@@@:NEXT:LOCATE 1,24: END 
260 ' Datas fuer Tastaturumdefinierung 


27@ DATA 71,121,89,39,44,59, NEN 
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LA92CI 
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1C7381 
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„b,czNEXT 
s= 
I ET: 


bei 


44PRINT usıPEN SıLOCATE 1,7: PRINT"De 
utsch”sLOCATE 1,14: PRINT"Deutsch" 1671A1 
LCE38J 
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tauscht" 


(Tastennummer,, Zchn 1, Zchn 2) 


t4DBAI 


45, 222, ges 62,29, 28, 92 
Y7, ae, 17132 


125)125,63,24,98.9 


391,1 
7,43,4 
8,61 
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blemlos auch an andere Wünsche an- 
passen. Wer auch unter CP/M mit einer 
deutschen Tastatur arbeiten will, sollte 
einmal unter den CP/M-Tips (Seite 152) 
nachsehen. Dort finden Sie ein Pro- 
gramm, das in diesem Betriebssystem 
die Anpassung vornimmt. 

Da man sicher auch in Zukunft 
manchmal mit der Originaltastatur 
arbeitet, sollte man die alten Symbole 
an der Vorderseite der Tasten anbrin- 
gen. Denn sonst steht Ihnen später 
‚einige Sucherei bevor, um die richtigen 
Tasten zu finden. 

(Hans-Otto Schulz/hg) 


DIN-Taste 


CPC 464/664/6128 
Explora 
Kassette/Diskette 


Computer: 
Checksummer: 
Datenträger: 


Besonderes: Hardware-Bastelei 


1® i=1:MODE 1:BORDER @: INK @,@: INK 1,1:1 
NK 2,3: INK 3,6:FOR w=@ TO PI_STEP PI/ 
75: q1=C0$ (w#3) #200: wi=w+20: q2=C0S (wi) 
*200:FLOT COS (w) *g1+32@,5IN(w) #q1+20@ 
„1zDRAW COS (w#PI)+12,SIN(w1)#COS(a2) + 
2@8,1:DRAW COS (wi) #g2+320,SIN (wi) #q2+ 
2@0,2:DRAW 635,20@,3:NEXT w 

2@ INK 1,i2INK 2,&:INK 3,3:FOR wa=i TO 2 
@G:NEXTEINK 2,3:INK 3,6: FOR wa=i TO 2 
@@:NEXT:i=i+1: IF i=3@ THEN i=1 

3@ G0TO 28 
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Spitzen-Softwure für 


Schneider-Computer 
nd Commodore 128 


ordStar 3.0 mit MailMerge er Bestseller unter den Textverarbei- 
rogrammen für PCs bietet Ihnen bildschirmorientierte Formatierung, deutschen 
chensatz und DIN-Tastatur sowie integrierte Hilfstexte. Mit MailMerge können Sie 
\briele mit persönlicher Anrede an eine beliebige Anzahl von Adressen schreiben 
auch ‚Adreßaufkleber drucken. 
ır/MailMerge für den Schneider CPC 464°, CPC 664 
"Nr. MS 101 (3”-Diskette) 
I-Nr. MS 102 (5', "-Diskette im VORTEX-Format) 
/MailMerge für den Schneider CPC 6128 
IHNr. MS 104 (3”-Diskette) 
für den Schneider Joyce PCW 8256 
MS 105 (3"-Diskette) 
re-Anforderungen: Schneider CPC 464*, CPC 664*, CPC 6128 oder Joyce, 
iger Drucker mit Centronics-Schnittstelle 


I-Nr. MS 103 (5 
e-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Moritor, 
ger Commodore-Drucker oder ein Drucker mit Gentronics-Schnittstelle 


E Il, Version 2.41 dsase Il, das meistverkaufte Programm unter 
Datenbanksystemen, eröffnet Ihnen optimale Möglichkeiten der Daten- u. Datei- 
bung. Einfach u. schnell können Datenstrukturen definiert, benutzt und geän- 
werden. Der Datenzugriff erfolgt sequentiell oder nach frei wählbaren Kriterien, die 
> e Kommandosprache ermöglicht den Aufbau kompletter Anwendungen wie 
buchhaltung, Lagerverwaltung, Betriebsabrechnung usw. 
Il für den Schneider CPC 464", CPC 664° 
ü-Nr. MS 301 (3”-Diskette) 
MS 302 (5, "-Diskette im VORTEX-Format) 
1 für den Schneider CPC 6128 
. MS 304 (3”-Diskette) 
Il für den Schneider Joyce PCW 8256 
MS 305 (3°-Diskette) 
‚Anforderungen: Schneider CPC 464", CPC 664", CPC 6128 oder Joyce, 
Biger Drucker mit Gentronics-Schnittstelle 
BASE II für den Schneider CPC 464/684 ist lauffähig mit der VORTEX-Speicher- 
g auf 128 KByte. Diese erhalten Sie direkt bei der Firma VORTEX oder bei 
‚Computerhändler. 
1i für den Commodore 128 PC 
r. MS 303 (5), "-Diskette) 
"Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
"Commodore-Drucker oder ein Drucker mit Gentronics-Schnittsteile 


TIPLAN, Version 1.06 wenn Sie die zeitraubende manuelle 
g tabellarischer Aufstellungen mit Bleistift, Radiergummi und Rechenmeschine 
2 , dann ist MULTIPLAN, das System zur Bearbeitung »elektronischer Datenblät- 
(genau das richtige für Sie! Das benutzerfreundliche und leistungsfähige Tabellerikal- 
o ‚kann bei allen Analyse- und Planungsberechnungen eingesetzt wer- 
z.B. Budgetplanungen, Produktkalkulationen, Personalkosten usw. Spezielle For- 
Aufbereitungs- und Druckanweisungen ermöglichen außerdem optimal auf- | 
Präsentationsunterlagen! 
für den Schneider CPC 464°, CPC 664 
"MS 201 (3”-Diskette) 
MS 202 (S};”-Diskette im VORTEX-Format) 
für den Schneider CPC 6128 
. MS 204 (3 "-Diskette) 
für den Schneider Joyce PCW 8256 
r. MS 205 ("-Diskette) 
‚Anforderungen: Schneider CPC 464", CPC 684", CPC 6128 oder Joyce, 
äger Drucker mit Centronics-Schnitisteile 
BAHPLAN für den Schneider CPC 464/864 ist lauffähig mit der VORTEX-Speicher- 
Beberung auf 128 Köyıe. 
in für den Commodore 128 PC 
. MS 203 (5) °-Diskette) 
forderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
‚Commodore-Drucker oder ein Drucker mit Centronics-Schnitistelle 


ai ch 


jedes WordStar- dBASE Ik und MULTIPLAN-Programm für IvenSchneiier- Jadles Programm 


oder Commodore 128 PC fertig angepaßt (Bildschirmsteuerung). Jeweils 


Und dazu die 
weiterführende 
Literatur: 


WordStar für den Schneider CPC 
Best.-Nr. MT 779, ISBN 3-89090-180-8 
WordStar für den Commodore 128PC 
Best.-Nr. MT 780, ISBN 3-89090-181-6 


dBASE II für den Schneider CPC 

Best.-Nr. MT 837, ISBN 3-89090-188-3 
dBASE Il für den Commodore 128 PC 
Best.Nr. MT 838, ISBN 3-89090-189-1 


MULTIPLAN für den Schneider CPC 
Best.Nr. MT 835, ISBN 3-89090-186-7 
MULTIPLAN für den Commodore 128 PC 
Best.Nr. MT 836, ISBN 3-89090-187-5 


‚Jedes Buch kostet DM 49;- 
(sFr. 45,10/6S 382,20). 
Erhältlich bei Ihrem Buchhändler. 


od öl * Inkl, MwSt. Unverbindliche 
a oe aehsenetsung tr son Sana KOStEt DM 199, wer ters 10007) Mianpanung 


BO 464 erhalten Sie direkt bei der Firma VORTEX oder bei Ihrem Computerhändler. 


Markt & Technik-Softwareprodukte erhalten Sie in den Computer-Abteilungen 
Kaufhäuser, bei Ihrem Computerhändler oder im Buchhandel. 


Se direkt beim Verlag bestellen wollen: gegen Vorauskasse durch Verrechnungs- 
&% oder mit der eingehefteten Zahlkarte 

gen im Ausland bitte an untenstehende Adressen. 
Markt & Technik Vertriebs AG, 


Markt&Technik 


= 3, CH-6300 Zug, @ 042/41 5656 


Buchverlag 


ch: Überreuter Media, Handels- und Verlagsges mbH, 
24, A-1091 Wien, @ 0222/48 1538-0 


Hans-Pinsel-Straße 2, 8013 Haar bei München 


HOMEGOINPERSERWEEISERTEN 


JOYCE 


Wer kann, der kann! 


Wenn viele stolze Besitzer eines 
Joyce nicht wissen, daß ihr Com- 
puter weit mehr bietet als eine 
komfortable Textverarbeitung, 
liegt das an der Werbung. Er 
kann aber mehr! 


achdem Schneider den Preis 

für den Joyce drastisch senkte 

und obendrein noch ein bes- 
ser ausgestattetes Schwestermodell 
anbot, erfreut sich dieser Computer der 
8-Bit-Generation wachsender Beliebt- 
heit. Verfolgt man jedoch die techni- 
sche Entwicklung auf dem Computer- 
markt, erkennt man schnell, daß der 
Trend eindeutig in Richtung der 16- und 
32-Bit-Prozessoren weist (beispiels- 
weise Atari ST undCommodore Amiga). 

Was macht den Joyce nun trotzdem 
noch so attraktiv? 

Zum einen wird er als komplettes 
System, bestehend aus Computer, 
monochromem Monitor, Drucker, Dis- 
kettenlaufwerk und einem umfangrei- 
chen Software-Paket geliefert. Dazu 
kommt der für eine derartige Konfigura- 
tion äußerst niedrige Preis. 

Betrachtet man die Hardware, setzt 
Schneider Maßstäbe, was Design und 
Platzbedarf betrifft. Drucker und Tasta- 
tur belegen auf einem Schreibtisch 
ungefähr den Platz einer elektrischen 
Schreibmaschine. Der Monitor stellt 
praktisch das zentrale Gehirn der 
Anlage dar, in dem alles zusammen- 
läuft. Äußerst positiv fällt auf, daß sämt- 
liche Geräte vom Monitor mit Strom ver- 
sorgt werden; das umgeht den sonst 
obligatorischen Kabelsalat und die 
Mehrfachsteckdose. 

Kommunikation zwischen verschie- 
denen Computern ist ein Thema, das 
aus der heutigen Computerszene nicht 
mehr wegzudenken ist. So findet man 
an der Rückseite des Monitors einen 
Anschluß für ein Interface mit einem 
seriellen (RS232) und einem parallelen 
(Centronics) Ausgang. Mit einem 
Modem oder Akustikkoppler steht 
Ihnen die Welt der Mailboxen und 
Datenfernübertragung offen. So lassen 
sich Programme und Daten beliebig 
transferieren. 

-Das eingebaute Diskettenlaufwerk 
besitzt eine Speicherkapazität vonrund 
170 KByte. Die Diskette hat also zirka 
340 KByte Speicherplatz, denn die 
Rückseite ist ebenfalls verwendbar. In 
der Plus-Version (PCW 8512) enthält 
der Joyce ein zweites Laufwerk mit 
einer Kapazität von 720 KByte. Für 
wirklich sinnvolle (weil umfangreiche) 
Datenbanken ist diese Ausstattung 
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sogar unerläßlich. Zusätzlich ist der 
Hauptspeicher auf 512 KByte (deshalb 
die Zahlenkombination im Namen) 
erweitert. Der PCW 8256 besitzt dem- 
zufolge einen Arbeitsspeicher mit 256 
KByte. Der Unterschied in der Spei- 
cherkapazität wirkt sich vor allem auf 
das Fassungsvermögen der RAM- 
Floppy aus, das beim PCW 8256 »nur« 
112 KByte umfaßt, beim PCW 8512 
jedoch 368 KByte. Diesen Speicherbe- 
reich spricht der Benutzer wie ein 
zusätzliches Laufwerk an. Der Vorteil 
liegt darin, daß ein Zugriff auf die Daten 
keine mechanischen Operationen 
erforderlich macht. Es findet lediglich 
eine interne Verschiebung der Daten 
statt, was einen Bruchteil der sonst 
benötigten Zeit beansprucht. Nervende 
Wartezeiten beim Nachladen wichtiger 
Programmteile oder Daten entfallen 
also. 

Auch der Drucker braucht einen Ver- 
gleich mit der Konkurrenz nicht zu 
scheuen. Er verfügt über eine reich- 
haltige Ausstattung und läßt sich in 
seinen Funktionen völlig über Loco- 
script steuern. 

Die mitgelieferten Disketten enthal- 
ten neben den Programmiersprachen 
DR Logo und Mallard-Basic sowie vie- 


len Dienstprogrammen vor allen Dingen 
ein leistungsfähiges Programm zur 
Textverarbeitung. »Locoscript« bietet 
reichhaltige Funktionen für nahezu) 
jeden erdenklichen Anwendungsfall 
und ist zudem auch sehr bediener- 
freundlich. Unter Verwendung von I“ 
dows (Einblendungen in den Bild- 
schirm, die Anweisungen oder Aus- 
wahlmenüs enthalten) steht der Benut- 
zer in ständigem Kontakt mit dem! 
Computer. Dadurch verkürzt sich die 
Einarbeitungsphase enorm; man kann) 
praktisch sofort mit dem Programm! 
arbeiten, ohne vorher die gesamte, 
sehr umfangreiche Bedienungsanlei- 
tung studiert zu haben. Die selbstver- 
ständlich deutsche Schreibmaschinen- 
tastatur besitzt 82 Tasten und erfreut so} 
sicherlich jedes Sekretärinnenherz, 
denn die zusätzlichen, von »Locoscripte 
belegten Tasten, tragen ihren Teil zur 
einfachen Handhabung bei. Wem 
jedoch immer noch der Umstieg aufl 
eine solche »Höllenmaschine« schwer- 
fällt, für den simuliert Joyce einfach eine) 
Schreibmaschine mit seinem Direkt- 
druck-Modus. 

Folgende Aufzählung, die keines- 
wegs alle Funktionen umfaßt, zeigt die) 
Vielseitigkeit von »Locoscript«: Unter- 


streichen, Fettdruck, verschiedene Zei- 
chendichten und Schriftarten, Propor- 
tionalschrift, Seitenzählung, Hoch- und 
Tiefstellen, Verwendung von Sonder- 
zeichen, Änderungen des Layouts, 
Mischen mehrerer Textbausteine und, 
und, und... 

Aber auch andere Textsysteme sind 
bereits verfügbar. So können beispiels- 
weise Wordstar-Liebhaber ihrem ver- 
trauten Programm treu bleiben. Gerade 
hier stellt sich jedoch die Frage, inwie- 
fern die Investition für eine zusätzliche 
Textverarbeitung sinnvoll ist, nachdem 
mit »Locoscript« eine leistungsfähige 
Textverarbeitung zum Nulltarif zur Ver- 
fügung steht. 

Als Erweiterung der Einsatzgebiete 
im Büro bietet sich als nächstes die 
große Gruppe der Datenverwaltungs- 
Programme an, denn in welchem Be- 
trieb fallen keine Adressen, Kunden- 
daten und ähnliches an? Meist schlum- 
mern diese in verstaubten Karteikästen 
vor sich hin und wehe, man benötigt auf 
die Schnelle bestimmte Informationen. 
‚Wie erholsam ist da der Umgang mit 
einer Datenbank im Computer. Es eröff- 
net ganz neue Perspektiven, wenn man 
auf Tastendruck eine Inventur durch- 
führen oder mit minimalem Arbeitsauf- 
wand ein Werberundschreiben an alle 
Kunden schicken kann. Die Auswahl ist 


auf diesem Gebiet besonders reichhal- 
tig: So gibt es neben speziellen Pro- 
blemlösungen (Adressen-/Lagerverwal- 
tung etc.) auch universelle Datenbank- 
Programme wie beispielsweise 
»dBase«, die der Anwender an ver- 
schiedenste Zwecke anpassen kann. 

Tabellenkalkulations-Programme wie 
»Multiplan« sind recht nahe Verwandte 
der Datenverwaltungen. Der Haupt- 
unterschied liegt in der tabellarischen 
und damit sehr übersichtlichen Darstel- 
lung der Daten und in der Fähigkeit, 
beliebige Zeilen und Spalten der Tabelle 
rechnerisch miteinander zu verknüp- 
fen. So ist zum Beispiel eine Artikel- 
Preisliste in Windeseile bei Änderung 
der Kalkulation komplett neu berech- 
net. 

Wem es auf die Automatisierung des 
gesamten Geschäftsbetriebes an- 
kommt, istmit kompletten Programmpa- 
keten gut bedient. Solche Busineß- 
Packs enthalten dann mehrere der 
genannten Einzelanwendungen für be- 
stimmte Einsatzgebiete. 

Zur Verdeutlichung erfaßter Daten 
eignen sich Programme für Geschäfts- 
Grafiken. Der geplagte Manager, der 
täglich aufs neue über den aktuellen 
Stand seines Unternehmens informiert 
sein muß, erhält mit Programmen wie 
»DR-Graph« schnellsten Überblick in 


Form anschaulicher Grafiken. Torten-, 
Balken- und Liniengrafiken sowie Histo- 
gramme auf Bildschirm oder Papier sind 
eben erheblich einprägsamer als end- 
lose Zahlenkolonnen. 

Sie sehen also: Die zur Zeit angebo- 
tene Software reicht eigentlich aus, um 
alle täglich anfallenden Arbeiten im 
Büro zeitsparend zu erleichtern. 

Falls Sie nun denken, mit diesen Ver- 
waltungsaufgaben wäre Ihr Joyce be- 
reits ausgelastet, liegen Sie mit Ihrer 
Einschätzung weit daneben. Entspre- 
chende Software (wie zum Beispiel 
»DR-Draw« und »Mica«) ermöglicht 
sogar technische Konstruktionszeich- 
nungen und beliebige andere Grafiken. 

Auch Benutzern, die ihre Problem- 
lösungen selbst programmieren wollen, 
sind genügend Hilfsmittel an die Hand 
gegeben. Da ist zunächst einmal das 
bereits erwähnte, mitgelieferte Mallard- 
Basic. Es ist zum - auf CP/M-Compu- 
tern weit verbreiteten - Microsoft-Basic 
voll aufwärtskompatibel, bietet aber 
viele mächtige Erweiterungen. So sind 
dem Programmierer mit dem relativen 
Dateizugriff über »Jetsam« alle Möglich- 
keiten geboten, eigene Datei-Program- 
me unter Basic zu entwickeln. Schlüs- 
selwörter dienen als Suchkriterien und 
gestalten eine Datenbank erst richtig 
komfortabel. Der Benutzer ist nun nicht 


Das ist die bisherige 
Gewinnsumme im 
Sommerwettbewerb des 
CPC-Magazins, 

der neuen anspruchsvollen 
Schneider-Zeitschrift. 
Insgesamt gibt es über 

200 Preise zu gewinnen. 
Alles weitere im neuesten 
CPC-Magazin. 


Außerdem regelmäßig 


me, Berichte, Softwa: 
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Vortex-Ecke, CP/M, Joyce, Superspiele, Anwenderprogram- 
ire-Reviews, Spiele-Chaı 

Buchbesprechungen, News, Assemblerkurs, Basic-Stufen, 
'Topprogramm des Monats, 500-DM-Tip... 
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DIE HARDCOPY 

DER SUPERLATIVE 

— anpaßbar an jeden Drucker 
— nachträgliche Farbeinstellung 

I Bis zu 20Ofacher Vergrößerung 
Bildschirmaus 
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— Menügesteuert und In eigene 
Programme einbindbar 
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mehr auf fertige Datenbanksysteme aus 
dem Handel angewiesen. 

Das ebenfalls im Preis enthaltene »DR 
Logo« ist nicht nur für Kinder geeignet, 
sondern kann vielmehr jedem lernwilli- 
gen Programmier-Anfänger den Ein- 
stieg erleichtern. Professionelle Pro- 
grammieraufgaben lassen sich mit pro- 
blemorientierten Sprachen besser 
umsetzen. Und so ist es kein Wunder, 
daß entsprechende Compiler für Ihren 
‚Joyce auf dem Markt sind. Für kaufmän- 
nische Anwendungen steht Cobol zur 
Verfügung, während Ingenieure und 
Techniker ihre Probleme eher mit Fort- 
ran lösen. Auch Pascal-Programmierer 
kommen mit dem entsprechenden 
Compiler auf ihre Kosten. Die Vorteile 
der strukturierten Programmierung 
unter Pascal veranlaßt immer mehr Pro- 
grammierer, sich mit dieser Sprache 
auseinanderzusetzen. Auch einge- 
schworenen Basic-Freaks gibt der 
C-Basic-Compiler die Chance zum Auf- 
stieg. Die in C-Basic verfaßten Pro- 
gramme laufen dank der Compilierung 
rund zehnmal schneller als interpre- 
tierte Programme unter Mallard-Basic. 

Ein wunder Punkt des Joyce ist seine 
eingeschränkte Eignung als Video- 
spiel. Vielen Einsteigern gibt gerade 
der Spieltrieb den Anstoß zur Auseinan- 
dersetzung mit der Computertechnik. 

Anders als bei der Serie der Schnei- 
der-CPCs ist die Spielepalette recht 
mager. Eins der wenigen Angebote ist 
ein Schachspiel mit vorzüglicher drei- 
dimensionaler Grafik. Auch Abenteurer 
finden ein Betätigungsfeld mit Grafik- 
Adventures wie »Heroes of Karn«. Kon- 
struktive Arbeitspausen verkürzt auf 
angenehme Art eine Partie Bridge 
gegen den Joyce oder ein kleines Ping- 
Pong-Match. 

Sicher wird sich auf dem Software- 
Sektor in nächster Zukunft noch vieles 
für den Joyce tun, so daß sowohl im 
Bereich der Anwendersoftware, wie 
auch auf dem Spielesektor noch eini- 
ges zu erwarten ist. 

Von der einfachen Programmierung 
unter Basic, über höhere Programmier- 
sprachen, Problemlösungen, Textver- 
arbeitungs-Programmen bis hin zu 
Spielen, macht der Joyce überall mit, 
solange es keinen mehrfarbigen Bild- 
schirm erfordert. Die mitgelieferte Soft- 
ware ist sehr reichhaltig und leistungs- 
fähig, die Hardware nahezu vollständig. 

Der Joyce steht also für ein komplet- 
tes System, bei dem man in Anbetracht 
des Preises nur staunen kann. 

‚Jedem, der nicht unbedingt den neu- 
esten Stand der Technik, sprich 16/32 
Bit, sein eigen nennen muß, wird der 
Joyce eine preiswerte Hilfe zur Erledi- 
gung seiner täglichen Arbeiten sein. 
Denn preiswert heißt noch lange nicht 
billig! (Jörg Höhnerbach/ja) 


Joyce: mehr als 


Lernen Sie, mehr aus Ihrem 
Joyce herauszuholen als Texte. 
Setzen Sie ihn als vollwertigen 
Personal Computer ein. 


a die Werbung vom Joyce 

immer als Textverarbeitungs- 

system spricht, liegt die 
Annahme nicht fern, er seinur eine bes- 
sere Schreibmaschine mit Bildschirm. 
Diejenigen, die sich mit dem Betriebs- 
system CP/M und dem Basic-Interpre- 
ter MBasic auskennen, haben sicher- 
lich schnell die über Textverarbeitung 
hinausgehenden Fähigkeiten erkannt. 
Allen, die sich in der Vergangenheit 
noch nicht mit dem Programmieren in 
Basic auseinandergesetzt haben, sol- 
len hier eine Einführung in das mitgelie- 
ferte Mallard-Basic 80 erfahren. 

Viele Probleme, ob einfacher oder 
komplexer Art, lassen sich im täglichen 
Gebrauch wesentlich schneller bewäl- 
tigen, wenn man sie mit einem Compu- 
ter bearbeitet. Dieses Programm kann 
man speichern und je nach Bedarf auf- 
rufen. Damit der Joyce in der Lage ist, 
Basic zu verstehen, muß zuerst der 
Interpreter geladen werden. Dazu 
schalten Sie Ihren Computer an und 
legen die Seite 2 der mitgelieferten Dis- 
ketten ein. Möchten Sie Basic nach 
dem Arbeiten mit Loco-Script laden, 
verwenden Sie ebenfalls die Seite 2 der 
Systemdiskette und drücken gleichzei- 
tig die Tasten SHIFT, EXTRA und EXIT. 
In beiden Fällen erscheint nach kurzer 
Zeit eine Meldung über die CP/M Plus 
Version und das Bereitschaftszeichen 
»A>«, auch Prompt genannt, auf dem 
Bildschirm. Der Befehl »DIR« listet nun 
das Inhaltsverzeichnis der Diskette auf 
dem Bildschirm auf. Suchen Sie die 
Datei mit dem Namen BASIC.COM. Tip- 
pen Sie nun »BASIC« ein, denn dies teilt 
dem System mit, daß Sie den Basic- 
Interpreter laden wollen. Nach einigen 
Sekunden meldet sich dann Mallard- 
Basic 80 mit einer Bemerkung über den 
freien Speicherplatz (»31597 free 
bytes«). Nun steht der Arbeit mit Basic 
nichts mehr im Wege. 

Unter Basic kann man grundsätzlich 
alle Befehle direkt einzugeben. Der 
Computer bearbeitet sie dann nach 
Betätigen der RETURN-Taste sofort. Da 
der Vorteil eines Computers jedoch in 


der Zusammenfassung mehrerer Be- 
fehle zu einem Programm besteht, 
beginnen wir mit einem Progammbei- 
spiel. Sie können jedoch auch einmal 
probieren, die Befehle einzeln (ohne 
Zeilennummer) einzugeben. Beobach- 
ten Sie das Ergebnis. Tippen Sie nun 
das Programm aus Listing 1 ein; zuerst 
die Zeilennummer, dann den Befehl. 
Jeden Befehl (beispielsweise PRINT) 
können Sie auch mit kleinen Buchsta- 
ben eingeben, der Computer wandelt 
diesen dann selbständig in Großbuch- 
staben um. Die Reihenfolge der Pro- 
grammzeilen spielt dabei keine Rolle. 
Geben Sie die Zeilen einfach durchein- 
ander ein. Mit dem Befehl »LIST« wird 
das bisher eingegebene Programm auf 
dem Bildschirm anzeigt. Und zwar sor- 
tiert Joyce sie numerisch aufsteigend. 

Unser Programm berechnet den 
Preis eines Artikels (Verkaufspreis 150. 
Mark) ohne Mehrwertsteuer und die 
Mehrwertsteuer (14 Prozent), die im VK 
(Verkaufspreis) enthalten ist. 

Das Komando PRINT in Zeile 10 
bewirkt die Ausgabe des Textes zwi- 
schen den Anführungszeichen auf dem 
Bildschirm. Anders in Zeile 20: Hier 
wird zuerst der Wert des Terms hinter 
der PRINT-Anweisung berechnet und: 
dann ausgegeben. Gleiches geschieht 
in Zeile 30. Beim Aufstellen von 
Berechnungstermen gilt die allgemein 
bekannte mathematische Hierarchie: 
Punktrechnung vor Strichrechnung. 
Also eventuelle Klammern nicht verges- 
sen! Zeile 40 teilt dem Computer mit, 
daß das Programm an dieser Stelle 
endet. Bei solch einfachen Program- 
men ist diese Zeile nicht unbedingt 
erforderlich, bei komplexeren Program- 
men jedoch unbedingt notwendig, wie 
Sie später sehen. 1 

Sie starten das Programm mit dem 
Befehl »RUN«, gefolgt von der Taste 
RETURN. Der Befehl RUN veranlaßt 
das Verlassen des direkten Eingabe- 
modus, um das im Speicher befindliche 
Programm zu bearbeiten. Erscheint die 
Ausgabe »SYNTAX ERROR« auf dem 
Bildschirm, haben Sie einen Befehl 
falsch geschrieben. Bei den später ver- 
wendeten Programmen ist es auch 
möglich, daß Sie anstelle eines Kom- 
mas einen Doppelpunkt gesetzt haben. 
Um die entsprechende Zeile zuändern, 


PRINT"Mehrwertsteuer und Nettopreis a 
dem Verkaufspreis" 
PRINT 15@8/1.14 
PRINT 15@8*@.14/1.14 


END 


geben sie den Befehl »EDIT Zeilennum- 
mer«, gefolgt von der RETURN-Taste, 
ein. Die zu korrigierende Zeile erscheint 
nun auf dem Monitor, und mit der DEL- 
Taste lassen sich die betreffenden Zei- 
‚chenlöschen, nachdem Sie den Cursor 
(Positionsanzeiger) mit den Pfeiltasten 
an die entsprechende Stelle gebracht 
haben. Nun können Sie die richtigen 
Zeichen einsetzen. 

‚Während der Programm-Bearbeitung 
werden sowohl der Text aus Zeile 10 
wie auch die berechneten Werte auf 
dem Bildschirm ausgegeben. Die 
Bemerkung »OK« besagt, daß das 
gesamte Programm vom Computer 
bearbeitet und für neue Eingaben oder 
eventuelle Änderungen bereit ist. Das 
‚erzielte Ergebnis ist aber in vielerlei Hin- 
sicht unbefriedigend. So können Sie 
beispielsweise nicht verschiedene Ver- 
kaufspreise bearbeiten, ohne direkt in 
das Programm eingreifen zu müssen. 
Wir wollen nun nach und nach Verbes- 
serungen vornehmen. 

Geben Sie bitte folgende zusätzliche 
Zeile ein: 

15 input vk 

Der INPUT-Befehl stoppt das Pro- 
‚gramm bei Zeile 15 und wartet auf eine 
Eingabe. Dies zeigt der Computer 
durch ein Fragezeichen am Bildschirm 
an. Der eingegebene Wert wird dann in 
der Variablen vk (Abkürzung für Ver- 
kaufspreis) gespeichert. Variablen sind 
'Speicherplätze, auf die Sie später nach 
Bedarf zurückgreifen können. Sowohl 
Zahlen als auch Text sind zulässige Ein- 
gabewerte für Variablen. Sie muß aber 
zur Aufnahme des entsprechenden 
Ausdrucks vorbereitet sein. Soll eine 
Ganzzahl (1, 2, 5, 456, 1025 und so 
eiter) gespeichert werden, ohne Spei- 
Cherplatz zu vergeuden, muß hinter 
‚dem Variablennamen ein »%« stehen: 
Beispiel»vk%«. Bei diesen Integer- 
jablen wird weniger RAM-Bereich 
gebraucht. Dadurch verkürzt sich auch 
die Rechenzeit, was bei längeren Pro- 
‚grammen einen deutlichen Zeitgewinn 
Folge haben kann. Versucht man 
doch, eine Gleitkommazahl zu spei- 
(0,1, 0,022, etc.), gehen die 
Nachkommastellen verloren. Ein Varia- 
blenname ohne Zusatz steht immer für 

eine Gleitkommazahl. 
Der Zusatz »$« ermöglicht das Spei- 


18 PRINT"Mehrwertsteuer und 
dem Verkaufspreis" 
15 INPUT vk 

PRINT vk/1.14 
PRINT vk*@.14/1.14 
END 


Nettopreis a 


chern von Zeichenketten bis zu 255 
Zeichen (zum Beispiel »vk$«). So 
gespeicherte Zahlen stehen nicht ohne 
weiteres für Berechnungen zur Verfü- 
gung, da sie das Basic als Zeichenfolge 
betrachtet. Eine Spezialität des Mallard 
Basic 80 (und MBasic) ist die Fähigkeit, 
Zahlen mit doppelter Genauigkeit zu 
verarbeiten. Normalerweise werden 
Berechnungen nur auf sieben Stellen 
hinter dem Komma genau durchge- 
führt. Für spezielle Anwendungen steht 
durch die doppelte Genauigkeit ein Mit- 
tel zur Verfügung, auf 16 Stellen hinter 
dem Komma genau zu arbeiten. Dazu 
muß ein »#« hinter dem Variablenna- 
men stehen. (Achtung! doppelt genaue 
Berechnung erfordert doppelt genaue 
Ausgangswerte! Das belegt natürlich 
mehr Speicherplatz und verlängert die 
Rechenzeit.). 

Fassen wir zusammen; es gibt grund- 
sätzlich 4 Arten von Variablen: 

1. Ganzzahl Name% (Werte von 
-32768 bis +32767) 

2. Gleitkomma Name! (Werte von 
absolut 1.7E+38 bis 2.9E-37) 

3. Doppelte Genauigkeit Name # 
(wie 2. jedoch doppelt genau) 

4. Zeichenketten Name$ 

Die Bezeichnung der Variabeln läßt 
durchaus Anschaulichkeit zu, wie zum 
Beispiel »verkaufspreise oder »ein- 
nahme«. Jedoch sollten Sie sich, um 
Schreibarbeit zu sparen, so kurz wie 
möglich (aber dennoch verständlich) 
fassen. Beachten Sie: Das erste Zei- 
chen einer Variable muß ein Buchstabe 
sein! 

Zurück zu unserem Programm. In 
Zeile 20 und 30 ersetzen wir jetzt die 
Zahl 150 durch vk, da diese Variable 
den Verkaufspreis beinhaltet. Durch 
den Befehl »EDIT 20« erhalten Sie die 
Zeile 20, und die notwendige Änderung 
läßt sich schnell erledigen (erst 
löschen, dann ersetzen, schließlich mit 
RETURN bestätigen). Vergleichen Sie 
Ihre Eingaben mit Listing 2. 

Nun starten Sie das Programm mit 
»RUN«. Erscheint das Fragezeichen, 
geben Sie den Verkaufspreis ein. Wie 
Sie sehen, ist diese Programm-Version 
schon universeller (nämlich für unter- 


schiedliche Verkaufspreise) einsetz- 
bar. Doch stellen Sie sich vor, es sollte 
jemand mit dem Programm arbeiten, 
der es nicht kennt. Sicherlich wird ihn 
das Fragezeichen vor größere Ver- 
ständnisprobleme stellen. Ebenso stört 
es, das Programm jedesmal neu starten 
zu müssen. Ändern Sie also das Pro- 
gramm wie in Listing 3. 

Wie Sie sehen istesmöglich, Textein- 
gaben und Variablen zu einer PRINT- 
Anweisung zusammenzufassen. 

Ein Semikolon trennt diese Textpas- 
sagen von den Variablen. Vergessen 
Sie dieses Zeichen, erfolgt ein »SYN- 
TAX ERROR«. Versuchen.Sie einmal, 
bei der INPUT-Anweisung, das Semiko- 
lon gegen ein Komma auszutauschen 
und beachten Sie den Unterschied im 
Programmablauf: Das Fragezeichen 
wird unterdrückt. 

Wenn Sie diese Version starten, 
erhält die INPUT-Anweisung eine Erklä- 
rung des erwarteten Eingabewertes, 
die Ausgaben werden bezeichnet und 
Zeile 80 veranlaßt einen Neubeginn 
des Programms. Der Befehl »GOTO 
(Zeilennummer)« läßt das Programm zu 
der Zeile verzweigen, die die Zeilen- 
nummer festlegt. Die GOTO-Anweisung 
beeinflußt den gradlinigen Ablauf eines 
Programms. 

Wir benötigen nun die END- 
‚Anweisung, da das Programm sonst zu 
einer nicht vorhandenen Zeilennummer 
verzweigt. Und das hat eine Fehlermel- 
dung zur Folge. Wenn Sie nun für den 
Nettopreis eine 0 eingeben, unterbricht 
das Programm, da es zu Zeile 90 (hier 
steht die END-Anweisung) verzweigt. 
Mit der IF....THEN-Anweisung lassen 
sich.also Bedingungen abfragen (Istder 
Wert für np = 0, dann mach das, was 
hinter der THEN-Anweisung steht). Ist 
die IF-Bedingung nicht erfüllt, setzt das 
Programm in der nächsten Zeile den 
Ablauf fort. Die IF...THEN-Anweisung 
läßt sich noch durch IF..THEN...ELSE 
erweitern. Das Programm führt bei 
Erfüllung der Bedingung den Teil hinter 
der THEN-Anweisung durch, anson- 
sten die Anweisung hinter ELSE. Expe- 
rimentieren Sie ein wenig mit dem Pro- 
gramm. 

Mittlerweile haben Sie sicher einige 
Befehle zwischen die üblichen Zehner- 
schritte eingefügt. Der alte Abstand läßt 
sich jedoch ohne Schwierigkeiten wie- 


18 PRINT"Mehrwertsteuer und Verkaufsprei 


s@ 
48 
so 


78 


mwst=np#®. 
vk=np+tmwst 


60T0 18 
END 


s aus dem Nettopreis" 
2@ INPUT"nettopreis:";np 
IF np=® THEN 98 


14 


PRINT"Verkaufspreis:";vk 
PRINT"Mehrwertsteuer: ";mwst 


PRINT“Berechnung der Mehrwertsteuer a 
vk oder Netto fuer mehrere Artikel" 
INPUT"Wieviele Artikel:";anzahl 

3® mwst.gesamt=®: vk.gesamt=@:np.gesamt=® 
FOR i=1 TO anzahl 

5® INPUT"Grundlage VK...->1 oder NP...-> 

2"; auswahl 

60 IF auswahl=1 THEN GOSUB 1988 

7@ IF auswahl=2 THEN GOSUB 2808 

80 IF auswahl<>i AND auswahl<>2 THEN 58 

90 must.gesamt=mwst.gesamt+mwst 


1@ PRINT"Berechnung der Mehrwertsteuer a 


Nett: er mehrere Artikel" 
ya ER Re aneahi 

38 mwst.gesamt=®: vk.gesamt=®:np.gesamt=® 
48 FOR i=1 TO anzahl 

5@ INPUT"Grundlage VK...->1 oder NP...-> 
2”z;auswahl 

68 IF auswahl <> 1 AND auswahl <>2 THEN 


se 
78 ON auswahl GOSUB 1980,2000 


samt=np.gesamt+np 
„gusantevk. „gesamt+vk 


13@ PRINT:PRINT:PRINT 


14@ PRINT"Die Artikel haben einen Gesamt 
nettopreis von: ";jnp.gesamt;" DM" 
158 PRINT"Die anfallende Mehrwertsteuer 


betraegt: ";mwst.gesamt;" 


1658 PRINT"Daraus ergibt sich ein Gesamtv 
erkaufspreis von: ";vk.gesamt;" DM" 


008 INPUT"Verkaufspreis:"zvk 


mwst=vk#@.14/1.14 
np=vk-must 


Listing 4. ...ein immer besseres... 


derherstellen. Versuchen Sie aber 
nicht, jede einzelne Zeilennummer zu 
ändern, denn dies erledigt der Befehl 
RENUM. Dieser Befehl veranlaßt eine 
neue Zeilennumerierung, beginnend 
mit 10. Dabei werden alle GOTO- 
Befehle natürlich auch entsprechend 
geändert. Geben Sie »RENUM« ein und 
lassen dann das Programm neu aufli- 
sten. Wünschen Sie eine bestimmte 
Anfangszeile, so geben Sie diese hinter 
dem Befehl ein (beispielsweise 
»RENUM 100«). Ist ein anderer 
Abstand gewünscht, muß er durch ein 
Komma getrennt hinter der Startzeilen- 
nummer stehen. Der Befehl »RENUM 
200,40« hat zur Folge, daß Ihr Pro- 
gramm anschließend mit Zeile 200 
beginnt und einen Zeilenabstand von 
40 hat. 

Wenn Sie mit der Routine später noch 
einmal arbeiten möchten, sollten Sie es 
auf einer Diskette speichern. Der ent- 
sprechende Befehl lautet: »SAVE- 
"name”«. Der Name zwischen den 
Anführungszeichen darf maximal acht 
Zeichen vor, dann einen Punkt und drei 
Zeichen nach dem Punkt enthalten. 
Lassen Sie die Stellen hinter dem Punkt 
frei, fügt der Computer automatisch 
»BAS« für Basic an. Beachten Sie, daß 
Sie keinen Namen wählen, unter dem 
bereits ein Programm auf der Diskette 
gespeichert ist, ansonsten geht dieses 
verloren. Sollten Sie sich nicht sicher 
sein, listen Sie mit »DIR« das Inhaltsver- 
zeichnis der Diskette auf. Obwohl der 
DIR-Befehl eigentlich zu den CP/M- 
Befehlen zählt, steht er auch in Mallard- 
Basic zur Verfügung. 

Wollen Sie das Programm wieder in 


11@ NEXT i 


158 PRINT 


RETURN 


80 must. gesamt=must. gesamt +mnst 
90 np. gesamt=np.gesamt+np 
1808 vk.gesamt=vk.gesamt+vk 


128 PRINT:PRINT:PRINT 

138 PRINT"Die Artikel Kende „einen Gesamt 
nettopreis von: ";np.ge DM" 

148 PRINT"Die an 
betraegt:" ia t 
"Daı 


aan vertan en 
amt;" DM" 


erg ibt sich ein Gesamt 


Verkaufspreis von: "svk.gesaat;" DH” 
16@ END 


INPUT"Verkaufspreis:";vk 
mwst=vk#@.14/1.14 


INPUT"Nettopreis: "inp 
awst=np#B.14 
vkenp+mwst 


Listing 5. ...Programm zur Mehrwertsteuerberechnung 


den Speicher des Joyce laden, geben 
Sie den Befehl »LOAD” name” «ein. Die 
Stellen nach dem Punkt können Sie ver- 
nachlässigen. 

Bisher haben wir die Ergebnisse 
immer unmittelbar vor der Ausgabe 
durch die PRINT-Anweisung berechnet. 
Dies bedeutet, daß die so ermittelten 
Werte nur für diese eine Ausgabe zur 
Verfügung stehen. 

Sicherlich sind die hier aufgeführten 
Problemstellungen recht simpel, doch 
geht es ja in erster Linie um das grund- 
sätzliche Verständnis der Progammie- 
rung. Machen Sie sich immer die erfor- 
derlichen Rechenschritte klar, wobei 
Sie sich bemühen sollten, einen Weg zu 
finden, die Ergebnisse vor der Ausgabe 
einem Speicherplatz (Variable) zuzu- 
weisen. Dies hat den Vorteil, ohne 
erneute Berechnung der Werte diese 
trotzdem zur Verfügung zu haben. 

Bevor Sie die neue Routine einge- 
ben, müssen Sie den Programmspei- 
cher des Joyce löschen. Die Anwei- 
sung SAVE hat nur den aktuellen Pro- 
grammstand gespeichert, ohne das 
Programm aus dem Speicher zu entfer- 
nen. Dies ermöglicht Ihnen ein Zwi- 
schenspeichern Ihrer Programme, die 
häufig einen weitaus größeren Umfang 
als unsere Beispielprogramme haben 
werden. Wenn dann einmal die Daten im 
Hauptspeicher verlorengehen, haben 
Sie immer noch die gespeicherte Ver- 
sion auf Diskette, und der Schaden hält 
sich in Grenzen. 

Testen Sie Ihr Programm auf richtige 
Ausführung hin. Bedenken Sie, nicht 
nur Sie sollen das Programm richtig 
handhaben können, sondern auch 


Fremdbenutzer. Ein gewisses Maß an 
Komfort ist grundsätzlich nicht zu ver- 
achten. 

Nehmen wir nun an, Sie sollen für ver- 
schiedene Artikel, von denen Sie ein- 
mal den Netto-, einmal den Verkaufs- 
preis wissen, jeweils Nettopreis, Ver- 
kaufspreis und Mehrwertsteuer be- 
rechnen. Bei dieser Problemstellung 
kann sowohl das erste wie auch das 
zweite Programm zur Anwendung kom- 
men. Sie laden dazu also immer das 
jeweils erforderliche Programm in den 
Speicher, um die entsprechende 
Berechnung durchzuführen. Dies stän- 
dige Laden ist sicherlich nicht komforta- 
bel. Deshalb scheint es günstig, die 
Programme miteinander zu verbinden. 
Wie schon erwähnt, gibt es außer‘ 
GOTO weitere Anweisungen, in Pro- 
gramme eine Verzweigung einzubauen. 
Eine davon ist die GOSUB-Anweisung. 
Sie bewirkt eigentlich das gleiche wie 
»GOTO«. Nur erhält die Verzweigungs- 
zeile bei Verwendung von GOSUB eine 
Marke, zu der das Programm zurück- 
kehrt, sobald es auf den Befehl 
RETURN stößt. Das heißt, das Pro- 
gramm fährt in der Zeile nach der 
GOSUB-Anweisung fort, sobald in der 
Befehlsfolge nach der Verzweigungs- 
dresse ein RETURN erreicht wird. 
Diese Programmteile erhalten meist 
Zeilennummern, die mehr oder weniger 
weit unterhalb (größere Zeilennum- 
mern) des eigentlichen Programms lie- 
gen (nicht zwingend erforderlich, aber 
zweckmäßig). Deshalb spricht man 
auch von Unterprogrammen. Diese Art 
der Programmierung vermeidet, be- 
stimmte Befehlsfolgen doppelt oder 


mehrfach in das Programm aufzuneh- 
‚men. Bei Bedarf verzweigt einfach eine 
GOSUB-Anweisung zu dem betreffen- 
‚den Unterprogramm. 

Gehen wir weiter zu Listing 4. Die 
Kopfzeile gibt wieder den Verwen- 
dungszweck des Programms auf dem 
Bildschirm aus. Darauf folgt,die Frage 
nach der gewünschten Berechnung 
[Taste »1« oder »2« gedrückt?). Die IF- 
Abfragen stellen sicher, daß zu dem 
richtigen Unterprogramm verzweigt 
wird. Die dritte IF-Abfrage verhindert 
eine Fehleingabe durch eine Rückkehr 
zum Auswahlmenü. Beachten Sie den 
logischen Operator AND, der eine wei- 
tere IF-Abfrage überflüssig macht. 
Bedeutung: Wenn Auswahl ungleich 1 
und Auswahl ungleich 2, dann... Die 
Unterprogramme können hinter die 
'END-Anweisung gesetzt werden. Nach 
‚dem Unterprogramm folgt die Ausgabe 
der berechneten Werte (im Unterpro- 
gramm erfolgt nur eine Zuweisung zu 
einer Variablen). Die REM- Anweisung 
hat auf das Programm keinerlei Auswir- 
kungen. Denn alles, was hinter einer 
REM-Anweisung steht, dient nur dazu, 
ein Programm übersichtlicher zu gestal- 
ten und zu kommentieren. Dasselbe gilt 
für die Zeilen, die nur einen Doppel- 
punkt enthalten. Mit diesen Zeilen 
schaffen Sie einen Abstand zu den 
nachfolgenden Zeilen, und das Pro- 
gramm läßt sich nach einer LIST- 
Anweisung leichter lesen. 

Probieren Sie das Programm einmal 
aus. Vergessen Sie aber nicht, den 
‚Speicher Ihres Joyce vor der Eingabe 
‚mit »NEW« zu löschen. 

Durch eine Erweiterung des GOSUB- 
Befehls läßt sich das Programm verkür- 
zen. Löschen Sie dazu die beiden 
ersten IF-Abfragen und fügen Sie hinter 
‚Ber dritten IF-Abfrage eine Zeile mit dem 
Befehl »ON auswahl GOSUB 
3000,2000« ein. Er hat zur Folge, daß 
bei der Eingabe einer Eins zur Zeile 
1000 verzweigt wird, bei der Eingabe 

iner Zwei analog zur Zeile 2000. Die 
Liste der Unterprogrammstartzeilen 

h dem GOSUB kann man noch 
eblich erweitern. Dasselbe gilt auch 
ür den Befehl GOTO, aber bedenken 
Sie, dort erfolgt keine automatische 


Eine weitere Problemstellung ist, die 
Verkaufspreise, Nettopreise und Mehr- 
artsteuer mehrerer Artikel zu berech- 


nen und aufzusummieren, um bei- 
spielsweise einen Kostenvoranschlag 
zu erstellen. Hierzu führen Sie die 
Berechnung für eine bestimmte Anzahl 
von Artikeln durch. Das Aufschreiben 
und Zusammenrechnen der Einzeler- 
gebnisse von Handist aufwendig. Basic 
stellt auch für dieses Problem einen 
Befehl (Mallard-Basic sogar zwei) zur 
Verfügung; eine 

1. FOR-TO-NEXT-Schleife oder 

2. WHILE-WEND-Schleife 

Der erste Befehl empfiehlt sich, wenn 
die Anzahl der zu berechnenden Artikel 
bereits zu Beginn der Programmaus- 
führung feststeht. Betrachten Sie 
Listing 5. Die Anzahl der Artikel wird 
durch eine INPUT-Anweisung abgefragt 
und anschließend einem Speicher 
zugewiesen. Die Speicher für die Sum- 
menbildung werden dann auf Null 
gesetzt, um zu verhindern, daß bei 
einem erneuten Durchlauf nach einer 
GOTO-Anweisung die Speicher noch 
durch alte Werte belegt sind. Speicher 
werden ansonsten nur nach folgenden 
Anweisungen auf Null gesetzt: RUN 
und LOAD. Im Programm beginnt nun 
die Schleife mit der Anweisung »FOR 
I=1 toanzahl«. Die Anweisung »NEXT I« 
schließt die Schleife ab. Die Befehle 
zwischen diesen Zeilen wiederholen 
sich nun so oft, bis der Speicher | den 
Wert von »anzahl« überschreitet. Dazu 
erhöht sich nach jedem Durchlauf I um 
den Wert 1. Anschließend setzt das 
Programm den Ablauf in der nächsten 
Zeile fort. Geben Sie auch dieses Pro- 
gramm ein und verfolgen Sie den Ablauf 
(vergessen Sie den Befehl NEW vor der 
Eingabe des Programms nicht). 

Der Schleifenzähler, hier die Variable 
I, ist auch direkt als Rechenvariable zu 
nutzen. 

Ist die Anzahl der Artikel zu Beginn 
des Programmablaufs nicht bekannt, 
verwendet man den zweiten Befehl. 
Ersetzen Sie »FOR.TO« durch »WHILE 
a$<>"j”« und die NEXT-Anweisung 
durch »WEND«. Fügen Sie unmittelbar 
vor »WEND« den Befehl »INPUT 
"Abbruch ?(j)”;a$« ein. Die Schleife 
wird nun so oft durchlaufen, bis die 
WHILE-Anweisung falsch ist. Solange 
das Zeichen in a$ ungleich »j« ist, wird 
die Schleife erneut bearbeitet. Möch- 
ten Sie diesen Vorgang abbrechen, 
geben Sie auf die Frage ” Abbruch ?(j)” 
»j» ein. Auf jede andere Eingabe erfolgt 


ein weiterer Durchlauf. Das »j» in der 
WHILE-Anweisung muß auf jeden Fallin 
‚Anführungszeichen stehen, da es sich 
ja um ein Zeichen handelt! 

Mit den bis hierher besprochenen 
Befehlen können Sie bereits eigene 
Programme schreiben. Stellen Sie sich 
selbst einige Aufgaben, zum Beispiel: 
Wieviel muß ein Artikel kosten, wenn er 
nach Abzug der Vorsteuer eine 
Gewinnspanne von 35 Prozent haben 
soll? Oder, berechnen Sie die Fakultät 
einer Zahl (51!=1*2*3*4*6). 

Wächst der Umfang Ihrer Programme, 
sparen Sie sich das Eingeben der Zei- 
lennummern, wenn Sie zuerst den 
Befehl »AUTO« eingeben. Es erscheint 
tatsächlich die Zeilennummer 10 und 
der Cursor zeigt an, daß Sie nun mit der 
Eingabe beginnen können. Beim 
Abschicken der Zeile erscheint die 
nächste Zeilennummer im 10er- 
Abstand. Wünschen Sie eine andere 
Startzeile und einen anderen Zeilenab- 
stand, schreiben Sie dies hinter den 
Befehl. »AUTO 500,20« bewirkt den 
Beginn der Zählung bei Zeile 500 in 
20er-Schritten. 

Ein weiterer Befehl, der das Program- 
mieren vereinfacht, heißt »DELETE«. 
Dieser Befehl entfernt bestimmte Zei- 
len (Bereiche) aus Ihrem Programm 
»DELETE 20-200«, löscht die Zeilen 
20 bis einschließlich 200. 

Schließlich gibt es noch die Möglich- 
keit, alles was auf dem Bildschirm 
erscheint, auf dem Drucker zu doku- 
mentieren. Ersetzen Sie dazu nur die 
PRINT-Befehle durch »LPRINT«. Das 
Erstellen von Listings erfolgt auf den 
Befehl »LLIST«. 

Die hier aufgeführten Befehle stellen 
nur einen kleinen Teil des Mallard- 
Basic-Befehlsvorrats dar und entspre- 
chen bis auf einige Ausnahmen 
(WHILE,WEND,ELSE) dem Standard- 
Basic. Die wohl wesentlichste Neue- 
rung ist die Dateiverwaltung mit »JET- 
SAM«, welche eine Bearbeitung mit 
Schlüsselwerten zuläßt. 

Ist Ihr Interesse geweckt und möch- 
ten Sie beginnen, sich eine Programm- 
bibliothek anzulegen, arbeiten Sie im 
Dialog mit dem Computer das mitgelie- 
ferte Basic-Handbuch durch. Lassen 
Sie sich dabei nie entmutigen, auch 
wenn dies manchmal zu einer abenteu- 
erlichen Schatzsuche ausartet. 

(Jörg Höhnerbach/ja) 


| 


\ Wichtig für alle 
Schneider-Fans 


Das nächste Schneider-Sonderheft von 

Happy Computer erscheint im Oktober 1986. 
Anzeigenschluß ist der 30.9. 1986. 

Für Fragen aus dem Anzeigenbereich steht Ihnen 
Herr Distl (089/46 13-398) zur Verfügung. 
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‚Für den Joyce war schon kurz 
nach seiner Einführung ein 
“erfreulich reichhaltiges Soft- 
'wareangebot verfügbar. Unsere 
_ große Übersicht zeigt Ihnen, wel- 
che Programme es gibt. 


in Computer ist soviel wert, wie 

sein Softwareangebot. Nach die- 

ser Formel schneidet der Joyce 

‚sehr gut ab. Bei professionellen Anwen- 
dungen, aber auch bei der Unterhal- 
tungssoftware, decken die Anbieter ein 
breites Spektrum ab. Unsere Übersicht 
_ erhebt keinen Anspruch auf Vollstän- 
digkeit. Alle Daten beruhen auf Anga- 
_ ben der Anbieter. 
4 (Matthias Rosin) 


CO Computer-Studio-Offenbach 
Kl. Biergrund 17, 6050 Offenbach, 069/81 0613 
EC EAC Rupert Zeimeier 
Dompfaftstr. 127a, 8520 Erlangen, 09131/440303 
ES Escon 
Am Rindermarkt 4a, 8050 Freising, 08161/13089 
Dr. Jürgen Fiedler 
‚Am Tönnessenkreuz 5, 5300 Bonn 1, 0228/8649240. 
Gruse Elektronik 
Stiegitzweg 1, 3300 Braunschweig, 08531/352300 
Heimsoath-Software 
Fraunhoferst.13, 8000 München 5, 089/284060. 
Integral Hydraulik 
‚Am Hochofen 108, 4000 Düsseldorl 11, 
021116085-213 
KHS-Software 
Heldemannstr, 1, 8000 München 45, - 
MarktäTechnik 
Hans-Pinsel-Str, 2, 8013 Haar, 089/48 13:0 
Profisoft 
Sutthauserstr. 50/52, 4500 Osnabrück, 
0541/65488 
Rushware, 
. And. Gümpgosbrücke 24, 4044 Kaarst 2, 
02101188499 
Walter Schloßmacher 
Tannenstr. 12, 4048 Grevenbroich, 02181/63096 
Schneider Data 
indermarkt 8, 8050 Freising, 08161/2877 
Star Division 
Zum Ellenbruch 1, 2120 Lüneburg, 04131/46093 
Valc Peter Kohl 
Waggasse 4, 8230 Bad Reichenhall, 08651/66773 
VSC-Datasysteme 
‚Austr. 34, 7730 VS-Schwenningen, 07720/61029 
WE Weeske Computer-Elektronik 
Potsdamer Ring, 7150 Backnang, 071 91/1528-29 
ZA Van-der-Zalm-Software 
Schieferstätte, 2949 Wangerland 3, 04461/71719 
25-Soft 
Posti. 2361, 8240 Berchtesgaden, 
08652/63061-2691 


Maga 106 
ProfRAM 


Prompt 
Prompt-Druck 


Quickgata + 
Quickfakt + 
Quickfibu + 
Quickmask + 
Quickwite + 
AH-Data 
Sampler | 


Adroßverwaltung 
Auftrags-Rechnungswesen 
Integriertes Paket 
Textverarbeitung 
Integriertes Paket 


Intogriertes Pakt 
Toolbox. 


Dateiverwaltung 
Datenbanksystem 
Zeichenprogramm 


Präsentationsgrafik 


Fakturlorung 
Finanzbuchhaltung 
Matoriawirtschaft 
Fakturlerung 
Geschäftaprogramm 


Fakturlerung 
Fakturlerung 


Fakturlerung 


Finanzbuchhaltung, 
‚Finanzbuchhaltung, 
Finanzbuchhältung 
Finanzbuchhaltung 


Finanzbuchhaltung 
Buchhaltung 


58- 
415, 
199- 
2736- 
798, 


Fakturlerung, Adreß-Manager, Lager-Manager 
mit Daterverwaltung und Kalkulation, 


Datenbank, Textverarbeitung, Serienbriefe 
Turbo-Pascal erforderlich; zum Erstellen von 
Dateivorwaltungsprogrammen; Quelltext vor. 
mit integrierter Kalkulation 


für technische Zeichnungen, Flußdiagramme, 
Karten, Schaubilder etc. 

für grafische Auswertungen Jeder Art; mit 
Softwareschnittatele zu Muliplan 


für Rechnungen, Lieferscheine, Eliketten, 
Mahnungen, Kundendalei, Textverarbeitung 
ic 


dBase I-Anwenderprogramm mit dokuman- 
Nortem Quollcode 


In Cobol geschrieben 
Kontenpläne, Einnahmen-{Überschußrech- 
nung, Joumalschreibung etc. 


ntspricht Datel-Star und Star-Mail 


{rel programmierbare Datelverwaltung mit 


verknüpft die Textverarbeitung LocoScript mit 
den Daten aus Datei-Star; Serlnbriet- 
ausgabe; Fremddruckerausgabe. 

englische Anleitung 


für Rundschreiben, Eiketten, Listendruck; 


' max. 1400 Datensätze, 


Routinen zur Dateivorwaltung im TURBO- 
Pascal-Quellcode: 


mit MallMorge 


anthalt Compiler, Linker, Assembler, Edtor, 
Toois 

sehr schneller Pascal-Compiler 

benötigt TURBO-Pascal 


Zinseszinsrachnung, Wechseldiskontierung, 
‚Abschreibung, Rentenrechnung, Kursrech- 
nung, Rentabilität 

maßgerechte Konstruktion in sechs Ebenen, 
‚Symbol-Blblolheken, Pioter-/Druckerausgabe 
Rogrossion, Balkendagramm, 
Druckerausgabe 


mathematische Funktionen, Diskettenrout- 
nen, Bitmanlpulation, Sortierverfahren etc. 
Statistik für Technik, Botriebswirtschaft, Medi- 
zin; Quellcode In TURBO-Pascal vorhanden 


ist identisch mit der Version vom © 64 


Basic: | 
übersichtlich 
wie Pascal 


Auch Ihr Basic-Interpreter kennt Marken und die 
REPEAT-UNTIL-Anweisung. Sie brauchen nur ein 
passendes Hilfsprogramm. 


ennzeichnend für viele Basic-Programme ist 

Unübersichtlichkeit. Zeilennummern und Befehle 

wie GOTO und GOSUB verleiten jeden Programmie- 
rer dazu, mehr oder weniger sinnvolle Sprünge in eine Rou- 
ine einzufügen, wenn der Platz eng wird. Strukturierung ist 
für die meisten Basic-Fans ein Fremdwort. 
Gegenüber den ersten Basic-Interpretern kennt das 
Mallard- und das Locomotiv-Basic der Schneider-Computer 
allerdings schon viele neue strukturierte Anweisungen. 
Besonders die WHILE-WEND-Schleife erlaubt, Programm- 
teile ohne Sprungbefehle zu verwenden. Es fehlt aber immer 
noch der von Pascal her beliebte Befehl REPEAT-UNTIL. Die- 
sen und Sprunganweisungen auf Marken - und nicht an eine 
bestimmte Zeilennummer - dürfen Sie mit unserem Prepro- 
zessor benutzen. 
Der Preprozessor bearbeitet Basic-Programme, die als 
ASCII-Datei vorliegen. Erzeugen können Sie solch eine Datei 
mit jedem Editor. Wordstar ist dazu genauso geeignet wie der 
Editor des Locomotiv- (beim CPC 6128, 664 und 464) und 
Mallard-Basic (beim Joyce). Beim Speichern auf Kassette 
oder Diskette müssen Sie nur an den SAVE-Befehl die Anwei- 
sung »,A« anhängen. Diese Maßnahme verwandelt nämlich 
alle Basic-Token wieder in ASCIl-Zeichen und speichert das 


REPEAT 

INPUT "ZAHL EINGEBEN: ",X% 

ON X% GOTO @MARKE_1@, 

GOSUB @PROMPT@: "60f0 @LOOPENDE 
*@MARKE_1@ PRINT 
*@MARKE_2@ PRINT "MARKE 2" 
*“eC@e REPEAT 

INPUT "ZAHL EINGEBEN: 
UNTIL Y%=1 Ga Ya=2 


TNEUT "LOTTI .». 
*@LOOPEND@ REM --— LOOP-EI 
UNTIL X%=9 


"y% 


PRINT "ZAHL IST GROESSER 5" 


REM --—- BEGIN OF REPEAT-LOOP 
INPUT "ZAHL EINGEBEN: ",X% 
ON X 6005 ,6,7,7, 141 
GOSUB 15 : G60TO 12 
PRINT "DIES IST MARKE 1":60T0 12 
PRINT "MARKE 2" :60T0 12 
REM --— BEGIN OF_REPEAT-LOOP 
INPUT "ZAHL EINGEBEN: ",Y% 
F NOT (Y%=1 OR Y%=2) THEN 7 
G0T0 12 
INPUT "LOTTI .. 
REM --— LOOP-END 
ER NOT CXR=9) THEN 1 


IDNEUBUN“ 


s 
- 


ENRINT "ZAHL IST GROESSER 5" 
RETURN 


Programm als ASCII-Datei. Listing 1 zeigt als Beispiel ein 
unbehandeltes Programm, das mit einer REPEAT-UNTIL- 
Schleife und Marken arbeitet. Listing 2 zeigt die vom Prepro- 
zessor umgesetzte ablauffertige Routine. 

In Listing 1 sehen Sie, daß die Marken mit »+ @« beginnen 
und mit »@« enden. Beim Aufruf dieser Marken mit GOTO 
oder GOSUB muß zur Einleitung »@« statt »» @« stehen (also 
»GOTO @Marke@«). Die Schlüsselworte »REPEAT« und 
»UNTIL < Bedingung >« müssen immer alleine in einer Zeile 
stehen. Ansonsten dürfen Sie Ihr Basic wie gewohnt benut- 
zen. 

Listing 3 beinhaltet den eigentlichen Preprozessor. Unter 
dem Mallard-Basic des Joyce wird das Programm einfach ein- 
gegeben und mit RUN gestartet. Es empfängt Sie die Frage 
nach der zu lesenden und der zu schreibenden Datei. Die zu 
lesende liegt im ASCII-Format vor. Nachdem der Preprozes- 
sor fertig ist, liegt unter dem Namen des »Outfile« das fertige 
Programm im ASCIl-Format auf dem Datenträger vor. Beim 
Laden wandelt sowohl der Mallard- wie auch der Locomotiv- 
Interpreter das Programm automatisch in eine lauffähige Ver- 
sion um. 

Besitzer des CPC 6128, 664 und 464 müssen im Listing 
3 die Zeilen aus Listing 4 ersetzen. Dann läuft auch bei ihnen 
das Programm korrekt. Da unser Preprozessor vollständig in 
Basic geschrieben ist, können Sie ihn jederzeit erweitern. 
Das Prinzip erkennt man leicht aus dem dokumentierten 
Listing. (A. Widmer/hg) 


Name: 
Computer: 


Preprozessor 
Joyce, CPC 464/664/6128 
Kassette/Diskette 


läuft nach entsprechenden 
Änderungen auf allen 
Schneider-Computern 


Datenträger: 
Besonderes: 


_2@, @Ce, @Ce, @LOTTIE 


"DIES IST MARKE 1":G0T0O @LOOPENDE@ 
:G0T0 @LOOPENDe 


" SPRUCH$: IF SPRUCH$<>"I WOT DI" THEN @LOTTI@ 
IND 


" „SPRUCH$: IF SPRUCH$<>"I WOT DI" THEN 11 


Listing 1. Unbehandelt ähnelt das Quell-Programm einem 
Pascal-Listing 


Listing 2. Jetzt hat der Preprozessor aus dem »Fast-Pascal«- 
Programm eine waschechte Basic-Routine ht 
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REM 
12 REM PROGRAM MBASIC-PREPROCESSOR 
REM 


28 REM --- KONSTANTEN 

22 TRUE%=-1:FALSE4=® 

24 MAXINDEX%=5@8: MAXSTUFE%,=20 

3@ REM --—- VARIABLEN-FELDER 

El PZEILE$ (MAXINDEX%) „SBEGINN% (MAXST 


118 ON ERROR soro soa8 

128 PRINT CHR$ (27) eg 

122 PRINT"#*** MBAS = PROGRAM-PREPROCES 
SOR (V1.1) "PRINT 


122 EINE INEUR Sdltrite : "jolmricee 


15@ REM --- PROGRAMMTEXT EINLESEN 
132 GOSUB 1998 
140 REM --- ZEILEN NUMMERIEREN 
142 GOSUB 308 
15@ REM ee MARKEN TAUSCHEN 

5a8 


152 6G08S 

1688 REM -—- REPEAT .. UNTIL - SCHLAUFEN 
TAUSCHEN 

162 GOSUB 808 

17@ REM --- GEAENDERTEN PROGRAMMTEXT SPE 
ICHERN 


172 GOSUB 2908 

18@ PRINT CHR$ (27) 5 CHR$ (12) 
199 DON ERROR GOTO ® 

208 END 


REM 
382 Ben PROCEDURE ZEILEN NUMMERIEREN 
EM 


31@ PRINT"ZEILEN WERDEN NUMMERIERT."35 
32@ FOR ZNUM%=1 TO TEXTENDE% 

330 PZEILE$ (ZNUM%) =MID$ (STR$ (ZNUMX%) „2) 
+" "+PZEILE$ (ZNUM%) 

340 PRINT"."3 

358 


M 
Ben PROCEDURE MARKEN TAUSCHEN 
RERRINTEIIORKEN WERDEN GESUCHT UND GETA 
m | 
520 FOR ZNUM%=1 TO TEXTENDE% 


5380 MPOS1%=INSTR (PZEILE$ (ZNUM%) „"*@") 
540 IF MPOS1%=® THEN 658 


5580 PRINT"."5 

va 5 MPOS2%=INSTR (MPOS1%+2,PZEILE$(ZN 
„en) 

570 5 MARKE$=MID$ (PZEILE$ (ZNUM%) „MPOS1 


Ze MPOS2%-MPOS1%) 

PZEILE$ (ZNUM%) =LEFT$ (PZEILE$ (ZNU 
m, ‚«MPOS1%-1) +MID$ (PZEILE$ (ZNUM%) „MPOS2% 
+ 


848 PRINT" 
858 STUFE%=STUFE%+1:SBEGINN% (STUFEX) 


IUM% 
868 Perle RR 
2)+" REM --- BEGIN OF REPEAT-LOOP" 
878 UPOSZZINETR (PZEILE$ (ZNUM%) „"UNTIL 
I 1 


888 IF UPOS%=@ THEN 928 

890 PZEILE$ (ZNUM%) =MID$ (STR$ (ZNUM%) „ 
2)+" IF NOT ("+MID$(PZEILE$ (ZNUM%) „UPOS% 
+6)+") THEN"+STR$ (SBEGINN% (STUFE%) ) 

990 STUFE%=STUFE%-1 

928 NEXT ZNUM% 

938 PRINT 

948 RETURN 

10900 REM 

1802 REM PROCEDURE PROGRAMMTEXT VON FIL 
E EINLESEN 

10904 M 


REI 

181@ PRINT"PROGRAMMTEXT WIRD EINGELESEN. 
“; 

182® OPEN INFILE$ AS 1 'FUER MALLARD-BAS 
1838. WHILE NOT EOF (1) 

1848 TEXTENDEZ=TEXTENDEX+1 


1850 PRINT"."3 
19868 LINE INPUT#1 ,PZEILE$ (TEXTENDE%) 


REM 
2002 REM FROCEDURE GEAENDERTEN PROGRAMM 
TEXT AUFZEICHNEN 


REM 
2@1@ PRINT"PROGRAMMTEXT WIRD AUFGEZEICHN 


"3 
2020 ‘ RESET 

203@ OPEN OUTFILE$ AS 1 

204® FOR ZNUMX=1 TO TEXTENDE% 
2050 PRINT"."; 

206® PRINT#1 PZEILE$(ZNUMX) 
207@ NEXT ZNUM% 

208@ PRINT 


REM 
3002 REM PROCEDURE FEHLER 
REM 


3@1@ PRINT CHR$ (27) ;CHR$ (12) 

3028 IF STUFE%X<B THEN FEHLER$="SCHLEIFEN 
NICHT KORREKT VERSCHACHTELT!":GOTO 3858 
3@22 IF STUFE%A>MAXSTUFE%X THEN FEHLERF="Z 
U VIELE VERSCHACHTELUNGEN! ":GOTO 3058 
3030 IF TEXTENDEX>MAXINDEX% THEN FEHLER$ 
="PROGRAMM ZU LANG!":GOTO 3858 

3048 FEHLER$="NUMMER "+STR$(ERRI+" IN ZE 
ILE "+STR$(ERL) 

3@5@ PRINT"#** FEHLER: "+FEHLER$+" — PRO 
GRAMM ABGEBROCHEN" 

3060 RESUME 198 


578 FOR I%=1 TO TEXTENDE% 

Fl MPOS%=INSTR (PZEILE$(1%) „MARKE$ 
618 IF MPOS%=@ THEN 648 

620 PZEILE$(I%)=LEFT$ (PZEILE$(IY 


) „MPOS%-1) +MID$ (STR$ (ZNUM%) „2)+" "+MID$( 
PZEILE$( 1%) „MPOS%+LEN (MARKE$) ’ 

638 "s0T0 sa8 

648 NEXT I% 

658 NEXT ZNUM% 

668 PRINT 

678 RETURN 

888 REM 

882 REM PROCEDURE REPEAT .. UNTIL-SCHLE 
IFEN TAUSCHEN 
804 REM 

818 PRINT"REPEAT UNTIL — SCHLEIFEN WE 
RDEN AUSGETAUSCH 

828 FOR ZNUM%=1 To EXTENDE% 

838 IF_INSTR(PZEILE$ (ZNUM%) ‚"REPEAT")= 
® THEN 878 


Listing 3. Mit »Preprozessor« wird Ihr Basic noch leistungs- 
stärker 


120 CLS 


OPENIN INFILE$ 
WHILE NOT EOF 
LINE INPUT#7,PZEILE$(TEXTENDEX) 
CLOSEIN 
REM 
OPENOUT OQUTFILE$ 
PRINT#9,PZEILE$ (ZNUM%) 
ELOSEOUT 
CLS 


Listing 4. Besitzer des CPC müssen nur wenige Zeilen 
ändern 


Ab 14.7.1986 


im 


Bastlers Glück. | 


64 und ee : 


aaa —, 


Brandaktuell von der CES in USA. 
Eine umfassende Übersicht Das Neueste für Amiga und Atari ST von einer der 
‚der Hard- und Software für den C16. größten Computer-Messen der Welt. 


Alle Druckerinterfaces, Floppy- 
üpocder na uhöner rien ten. Din hmienäehefürdencen. 
Insbesondere 
Spiele-Teil. 


führlich 
Informationen über den € 128. 
Neues für € 128 und Spectrum 128. Im Test ist der 
Sport-Knüller 


von Activision »Two-on-Two«. 


Listing des Monats. 
»Let’s Bounce«, spannendes Geschicklichkeits- 
spiel mit einem Tennisball. 


zen 


® | 
Sie »Happy-Computer« noch nicht regelmäßig Gu # 9 

en, sichern Sie sich jetzt Ihr persönliches Abon- | S € e I n | 

ünd nutzen Sie die damit verbundenen Vorteile: 1“ FÜR EIN KOSTENLOSES PROBEEXEMPLAR VON HAPPY-COMPUTER f 


Sie zahlen nur DM 66,- statt DM 72,- Einzelver- ich möchte »Hoppy-Computer« kennenlemen. 

kaufspreis (Ausland auf Anfrage) a ee Ich erhalte aha en 
dom regelmäßig frei Hoıs per fo und bezahle pro Jahr nur DM 69, so DM 

Sie beziehen »Happy-Computer« ohne Mehr- a i 

kosten bequem per Post frei Haus. | 

Nome: | 


Kranz 
Se erhalten Ihr »Happy-Computers früher, als Sie I 
Straße 


@s beim Zeitschriftenhändler kaufen könnten. AZ, On \ 
Sje versäumen keine Ausgabe und sind so stets | Dam T- Uneschn 
Jöckenlos informiert. Mir it bekannt, daß ich diese jmarha von 8 Togen bs der Bstlacesse widemen kam 
I: uns Desnge des rc meine zwei It. Zur er Fi genügt die rechtzeiige Absendung 
Sie mit nebenstehendem Gutschein ein kosten- 
Probeheft an. lernen Sie »Happy-Computer«, |) Der Sr 


Gutschein ausfülen, ausschneiden, in ein Kuvert stecken und absenden on. 
1} Markıß Technik Vedog Aktiengeselschaf, Verrieb, Fostiach 1304, 8013 Hioor 


Heimcomputer-Mogazin, völlig unverbind- 


HCS786. 
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Zn = 


ee 
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Voll auto- 
mahtısıerf 


Auch das CP/M des Joyce bietet genügend Hilfs- 
programme, die dem Benutzer die Bedienung ver- 
einfachen. 


enn man viel mit Compilern arbeitet oder oft glei- 

che Programmabläufe benötigt, sparen SUBMIT- 

Dateien viel Arbeit. Solche Dateien kann man 
entweder mit Locoscript (ASCII-File) oder mit dem Texteditor 
»RPED« unter Basic anlegen. Um sich den Aufbau einer sol- 
‚chen Datei klarzumachen, schauen Sie sich die Datei »PRO- 
FILE« auf der Systemdiskette an. Der erste Befehl (»SET- 
DEF«) bewirkt, daß CP/M erst nach einem SUB-File sucht 
und dies aufruft, wenn sich die CP/M-Datei SUBMIT.COM auf 
der Diskette befindet. Findet CP/M kein SUB-File mit dem 
angegebenen Namen, sucht es nach einem COM-File. Das 
System beginnt die Suche beim M- und setzt sie im A- 
Laufwerk fort. PIP kopiert dann ein paar wichtige CP/M-Files 
in die RAM-Floppy. Um andere Files zu übertragen, geben 
'Sie folgendes ein: 

»<Laufwerk x:=Laufwerk y:Programmname«. Um PIP zu 
verlassen, brauchen Sie nur »<« einzugeben. Wenn Sie bei- 
spielsweise für den C-Basic-Compiler eine SUB-Datei anle- 
gen wollen, die das File »prg.bas« compiliert, linkt und 
schließlich startet, tippen Sie folgendes in eine ASCII-Datei 
ein: 

CB80 prg 
LK80 prg 
prg 

Das wäre alles. Der Name der Datei muß die Extension 
‚SUB als Idendifikat enthalten Das File »>SUBMIT.COM« muß 
entweder im Laufwerk M oder A stehen (SETDEF beachten). 
Eine Submitdatei läßt sich wie ein normales CP/M-Programm 
starten, also mit »programmname« und ENTER. 

(Michael Straßer/ja) 


Resetperfekt 


Vielleicht haben Sie sich auch schon einmal 
gewundert, warum der Reset des Joyce nicht 
immer den gewünschten Erfolg bringt. Hier ein 
Trick, der immer funktioniert. 


legte Diskette automatisch (Autostart). Möchte man 

aus einem Programm (oder aus CP/M) eine Diskette 
booten, so geschieht dies durch Einlegen der betreffenden 
Diskette und gleichzeitiges Drücken der Tasten SHIFT, 
EXTRA und EXIT. Hatman jedoch eine falsche Diskette (ohne 
Systemprogramm) erwischt, quittiert Joyce dies mit dreimali- 
gem Piepsen und stellt seinen Dienst vorübergehendein. Bei 
einem erneuten Versuch, durch Drücken der drei Tasten die 
Diskette nochmals zu booten, passiert nichts. Es ist jedoch 
nicht erforderlich, den Computer für einen weiteren Versuch 
auszuschalten. Es genügt, das Drücken der drei Tasten über 
die Leertaste zu bestätigen. (Jörg Höhnerbach/ja) 


Ki ach dem Anschalten bootet der Joyce die einge- 


Na Logo! 


Außer dem Mallard-Basic gehört zum Lieferum- 
fang des PCW 8256/8512 die Programmiersprache 
Logo. Aber wer sich damit auseinandersetzt, steht 
bald vor »unlösbaren« Problemen. 


den sich schwertun, beim Aufbau von Listen in Proze- 
duren, die richtigen Klammerausdrücke zu finden. Das 
Benutzerhandbuch zeigt folgendes Beispiel: 
repeat 4 [fd 60 rt 90] 

Bei dem Versuch, diesen Befehl auszuführen, reagiert 
Logo mit wenig Verständnis für das Eingabeformat. Obwohl 
die Klammerzeichen bei der Tastaturbelegung für Logo ver- 
fügbar sind, werden sie nicht entsprechend interpretiert. Das 
hat folgenden Grund: Bei der deutschen ee 
muß man anstelle der eckigen Klammern die Buchstaben 
und Ü benutzen. Obige Zeile muß also wie folgt aussehen: 
repeat 4 Äfd 60 rt 900 

Nach einiger Zeit gewöhnt man sich an das merkwürdige 
Aussehen der Befehlszeilen und kann dann vernünftig mit 
Logo arbeiten. Wer sich näher für Logo interessiert, dem sei 
das 2. Schneider Sonderheft von Happy-Computer (SH1/86) 
empfohlen. Dort gibt es eine Einführung in diese interessante 
Sprache. (Jörg Höhnerbach/ja) 


Buchstaben- 
salat 


Man programmiert in Mallard-Basic und hat 
irgendwann den ganzen Bildschirm voller »Müll«. 
Wie Sie ihn wieder loswerden, steht aber nirgends 
im Handbuch - genausowenig, wie die Fähigkeit: 
des Joyce, Hardcopies anzufertigen. 


iele Benutzer des Joyce haben sicher schon ver- 
geblich nach zwei bestimmten Befehlen in dem 
umfangreichen Benutzerhandbuch gesucht. Sie‘ 
dürfen Ihre Suche beenden: Mallard-Basic kennt keinen! 
Befehl zum Bildschirmlöschen! 
Diese Funktion läßt sich aber durch die Eingabe der nach- 
folgenden Zeilen erzielen. 
10 e1$=(chr$(27)+”E”)+(chr$(27)+”H*) 
20 print e1$ 
Hat man die notwendigen Steuerzeichen in einer Pro- 
grammzeile definiert (hier Zeile 10), löscht man den Bild“ 
schirm durch den Befehl in Zeile 20. Es empfiehlt sich, di 
zwei Zeilen zu speichern und vor der Eingabe jedes neue 
Programms in den Speicher zu laden. 
In vielen Situationen ist es wünschenswert, eine Hardcop 
auszudrucken. Dies bedeutet eine Ausgabe des aktuelleı 
Bildschirminhaltes Punkt für Punkt auf den Drucker. 
Durch gleichzeitiges Drücken der Tasten EXTRA und PTR} 
ist dies jederzeit möglich. (Jörg Höhnerbachj/ja]) 


= insteiger, die mit Logo erstmals konfrontiert sind, wer- 


Das SOUND-Kommando, das 
beim CPC die Klangerzeugung 
steuert, ist einer der komplexe- 
sten Befehle dieses Computers. 
Wie arbeitet der Befehl, und wel- 
che Klangeffekte sind machbar? 
Anhand eines Beispiels erken- 
nen Sie die Zusammenhänge. 


erade da die Soundsteuerung 
beim Schneider eine ziemlich 
komplexe Angelegenheit ist, 
Bietet sie aber auch viele Möglichkei- 
en. Angefangen bei einem einfachen 
Piepser erstrecken sich die Fähigkeiten 
@er CPCs über ein weites Feld. Das 
Sound-IC der Schneider-Computer 
Serfügt über drei Oszillatoren, die 
“weils einen Ton erzeugen. Der Befehl 
SOUND spricht jeden dieser Oszillato- 
separat an. Wir haben also insge- 
amt drei Kanäle zur Verfügung. Diese 
nd allerdings so zusammengeschal- 
#et. daß sich zwei Stereokanäle erge- 
en. Kanal A liegt links, C rechts und B 
# der Mitte der Hörerposition. Den 
Slereoeffekt erhalten Sie natürlichnicht 
ber den eingebauten Lautsprecher. 
Dazu müssen Sie Ihren Schneider an 
en Kopfhörer-Ausgang Ihrer Stereo- 
enlage anschließen. 

Dem Computer muß bei Aufruf des 
SOUND-Befehls bekannt sein, auf wel- 
hen Kanal er den Ton ausgeben soll. 
#5 erste Angabe hinter dem Befehl 

t daher die Kanalnummer. Der 
#ogik zufolge sollten nun die Kanäle mit 
Nummern 1, 2 und 3 bezeichnet 
Das ist aber nicht der Fall: Kanal A 

imt zwar eine »1« und Kanal B 

»2«. Wenn jedoch eine Ausgabe an 
Cogehen soll, isteine»4«einzuge- 

Dies hat etwas mit der binären 


Codierung der Kanäle zu tun. Für uns 
ergibt sich daraus eine recht praktische 
Anwendung. Wenn wir nämlich zwei 
oder alle drei Kanalnummern addieren, 
erhalten wir als Ergebnis einen Klang 
auf allen angesprochenen Kanälen 
gleichzeitig. Beispielsweise spricht ein 
mit »SOUND 3,...e produzierter Ton 
sowohl Kanal A als auch Kanal B an. 
Wie kommt nun die Tonhöhe, also die 
Frequenz eines Tones, zustande? Auch 
wenn wir die genaue Frequenz kennen, 
ist etwas Rechenarbeit nötig, um den 
richtigen Wert zu ermitteln. Der Compu- 
ter erwartet die Tonhöhe nämlich in 
codierter Form. Nehmen wir an, wir 
wollten den Kammerton A ausgeben. 


Töne mit »Hertz« 


Dazu benötigen wir eine Frequenz 
von 440 Hertz (Hertz ist die physikali- 
sche Einheit für Schwingungen pro Se- 
kunde). Jetzt ist es aber nicht möglich, 
diese »440« als zweiten Parameter ein- 
zugeben, da der Computer mit anderen 
Frequenzbereichen arbeitet. Er errech- 
net nämlich die Frequenz aus seinem 
internen Systemtakt. Aus dieser Grund- 
schwingung von 62500 Hertz gewinnt 
er durch Teilung alle anderen benötig- 
ten Frequenzen. 


Um den richtigen Wert zu ermitteln, 
dividieren Sie also 62500 durch die 
gewünschte Frequenz (440 Hertz). So 
erhalten Sie die Zahl 142. Diese stellen 
Sie nun an die zweite Stelle im SOUND- 
Kommando. Nun ist es relativ mühsam, 
für jeden Ton die Tonhöhe nach diesem 
Prinzip zu bestimmen. Gott sei Dank 
hilft Ihnen die Tabelle im Anhang des 
Bedienerhandbuches Ihres Computers 
weiter. Dort finden Sie zu jeder Note in 
den gängigen Oktaven die notwen- 
digen Parameter. Wenn Sie jetzt also 
auf Kanal A den Kammerton A ausge- 
ben wollen, lautet das SOUND-Kom- 
mando bis jetzt: 

SOUND 1,142 

Als dritten Parameter fordert der 
SOUND-Befehl noch die Eingabe über 
die Dauer des Tones einzugeben und 
zwar in hundertstel Sekunden. Wenn 
Sie hier also »100« eingeben, beträgt 
die Tondauer eine ganze Sekunde. Dain 
der Regel meist aber die Notenwerte 
der Töne bekannt sind, empfiehlt sich, 
die Werte für bestimmte Notenlängen 
einmalig festzulegen und dann die ent- 
sprechenden Werte für andere Töne 
danach zu berechnen. 

Die bis jetzt beschriebenen Parame- 
ter sind Pflichtübungen bei der Eingabe 
jedes SOUND-Kommandos. Kommen 
wir jetzt zur Kür. Parameter Nummer 4 
regelt die Lautstärke: Sie können dabei 
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zwischen Werten von O (stumm) bis 15 
(volle Lautstärke) wählen. Sie dürfen 
diese Angabe aber auch weglassen. 

Auch variable Lautstärkenverände- 
rungen im Tonverlauf sind machbar. 
Dazu verhilft der nächste Parameter. Er 
bestimmt, welches der 15 ENV-Re- 
gister (ENV steht für envelope=umhül- 
len) für diesen Ton gilt. Sie können also 
ein An- und Abschwellen eines Tonesin 
der Lautstärke definieren. Damit ist bei- 
spielsweise ein Vibrato-Effekt realisier- 
bar. Gerade mit »ENV« lohnt essich, ein 
bißchen herumzuexperimentieren; die 
Variationen sind sehr vielfältig in ihren 
klanglichen Auswirkungen. 

Das ENV-Kommando hat folgende 
‚Struktur: An erster Stelle steht die Num- 
mer der Lautstärkehüllkurve. Es folgen 
maximal fünf Gruppen mit je drei Wer- 
ten, wobeiim ersten Wert die Anzahl der 
Wiederholungen, im zweiten die Höhe 
der Volumenänderung bei jeder Wie- 
derholung - und zwar positivodernega- 
tiv - und im dritten Wert der Abstand 
zwischen den einzelnen Wiederholun- 
gen, also die Länge der Pause, anzuge- 
ben ist. Wenn Sie beispielsweise defi- 
nieren: »ENV 1,15,-1,10,15,1,10«, bedeu- 
tet dies, daß sich zuerst 15mal die Laut- 
stärke um den Betrag 1 vermindert, 
bevor sie sich dann in 15 weiteren Stu- 
fen wieder erhöht. Zwischen jeder 
Änderung wird eine Pause von der 
Länge einer zehntel Sekunde (10 x 
0,01 Sekunden) eingelegt. 


Laut und leise 


ENV wirkt aber nicht allein, sondern 
dient nur als Unterprogramm zum 
SOUND-Befehl. Denn schließlich exi- 
stieren im ENV-Kommando ja keine 
Angaben über Tonhöhe oder Länge. 
Diese entnimmt der CPC bei der Klang- 
ausgabe dem SOUND-Befehl. Wenn 
Sie nun also »SOUND 1,142,300,15,1« 
eingeben, erklingt auf Kanal A der Kam- 
merton »A« mit einer Länge von drei 
Sekunden in der maximalen Lautstärke 
(Lautstärke 15) und Lautstärkefolge 
(ENV) 1. Tippen Sie jetzt einmal die bei- 
den Kommandos ein und hören Sie sich 
das Ergebnis an. Der Lautstärkewert 15 
stellt die Ausgangsbasis dar, ab der 
dann die Änderungen durch ENV wir- 
ken. 

Nun läßt sich nicht nur die Lautstärke, 
sondern auch die Tonhöhe nach diesem 
Prinzip verändern. Damit kann man zum 
Beispiel täuschend echt das Heulen 
einer Sirene imitieren. Aber auch musi- 
kalisch ist der Effekt nützlich, denn ver- 
schiedene Töne lassen sich fließend 
»ineinander ziehen«. Undein Tremoloist 
überhaupt kein Problem. Dazu dient die 
Tonänderungsfolge »ENT« (envelope 
tone). Auch hier stehen Ihnen 15 Regi- 
ster zur Verfügung, die Sie variieren 
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können. Die Syntax ist ähnlich zu 
»ENV«. Bei »ENT« gibt der erste Wert 
wiederum das Register an - bezie- 
hungsweise die Nummer der Tonfolge, 
mit der gearbeitet werden soll - der 
zweite Wert die Höhe der Frequenzver- 
schiebung, der dritte die Anzahl der 
Wiederholungen und der vierte die Pau- 
sen zwischen den einzelnen Wiederho- 
lungen. 

Die Tonänderungsfolge rufen Sie auf, 
indem Sie die betreffende Nummer an 
sechster Stelle im SOUND-Befehl 
angeben. Bevor wir uns mit der 
genauen Wirkung dieses Zusatzbefeh- 
les anhand eines Beispiels befassen, 
soll nun noch kurz der letzte Parameter 
beschrieben werden. 

Die letzte Zahl hinter dem SOUND- 
Befehl sagt aus, ob und wie ein 
Rauscheffekt auftreten soll. Steht an 
dieser Stelle eine Null, unterbleibt das 
Rauschen; befindet sich hier eine Zahl 
zwischen 1 und 15, wird ein Rauschen 
unterschiedlicher Art zugefügt. Es han- 
delt sich dabei jedesmal um sogenann- 
tes »weißes Rauschen«, das je nach 
Eingabe einer Zahl dumpfer oder heller 
klingt. Dieser Effekt ist schwer zu 
beschreiben, deshalb sollten Sie ihn 
einmal ausprobieren und alle Zahlen 
durchspielen. So sehen Sie am besten, 
welcher Effekt bei jeder dieser Zahlen 
auftritt. Eine FOR-NEXT-Schleife kann 
Ihnen dies abnehmen, indem Sie zum 
Beispiel folgendes eingeben: 

10 FOR i=1 TO 15 
20 SOUND 1,100,100,10,0,0,i 
30 NEXT i 

Nach dem Start dieses kleinen Pro- 
gramms hören Sie einen Ton und dann 
nacheinander die verschiedenen Mög- 
lichkeiten des Rauschens. Wollen Sie 
das Rauschen allein hören, geben Sie 
anstelle der ersten »100« eine »0« ein. 
Zur besseren Identifikation der Rausch- 
klänge können Sie sich innerhalb der 
Schleife den aktuellen Rauschwert mit 
»PRINT i« ausgeben lassen. 

Nachdem Sie nun die Syntax des 
SOUND-Kommandos kennen und auch 
die Wirkung eines zugeschalteten 
»ENV« oder »ENT« im Griff haben, soll- 
ten Sie eigentlich in der Lage sein, ein 
kleines Programm mit diesen Befehlen 
zu schreiben. Programmieren wir jetzt 
einen kleinen Sound-Gag, der einen 
startenden und wegfliegenden Hub- 
schrauber simuliert. Ein startender 
Hubschrauber läßt zunächst einen 
langsam laufenden Motor hören, der 
dann immer mehr beschleunigt, bis er 
startet, in der Ferne verschwindet. Wir 
versuchen also dies auch mit Hilfe der 
SOUND-Kommandos nachzuvollzie- 
hen. 

10 ENT 1,200,-2,10 
20 SOUND 1,500,2000,15,1,1,3 
30 ENV 2,1,-1,12 


40 FOR i=14.9 TO O0 STEP -1 
50 SOUND 1,250,10,INT(i)+1,2,5 
60 SOUND 1,0,2 
70 NEXT i 

Wir wollen hier einmal zwei Phasen 
realisieren. Zunächst das Starten. Der 
Motor läuft langsam hoch. Dann fliegt 
der Hubschrauber und entfernt sich 
langsam. Beide Geräusche müssen Sie 
daher mit relativ komplexen Lautstärke- 
und Tonfolgen programmieren. Den 
ersten Teil verwirklicht ENT und ein kon- 
stant zugeschaltetes Rauschen. Der 
zweite Teil bedarf der Definition einer 
Lautstärkehüllkurve (entfernen durch 
leiser werden) und einer gleichzeitigen, 
unterbrochenen Ausgabe des Tones, 
um die Rotorgeräusche zu erzeugen. 
Mit Hilfe der ENT-Folge in Zeile 10 erhö- 
hen Sie in 200 Schritten langsam die’ 
Tonhöhe. Das zugemischte Rauschen 
in Zeile 20 (letzter Parameter) sorgt für 
den maschinenhaften Klang. 


Auf und davon 


Das Fliegen der Maschine stellt sich 
als eine relativ trickreiche Angelegen- 
heit heraus. Zum einen vermindern Sie 
ganz langsam in einer FOR-NEXT- 
Schleife die Lautstärke. Die Schrittweite 
ist der Einfachheit halber gering 
gewählt. Die Änderungen der Laut- 
stärke sollen dabei in möglichst kleinen. 
Schritten erfolgen. Es sind 150 dazu! 
vorgesehen. Nun kann allerdings der 
Gesamtumfang der Änderung 15 Werte 
nicht übersteigen, denn die Lautstärke‘ 
erlaubt janur Werte zwischen O und 15. 
Während dieser 150 Schritte führt der 
Computer nun permanent SOUND-Be- 
fehle aus und benutzt dabei die zweite‘ 
Lautstärkehüllkurve, die in Zeile 30 defi- 
niertist. Sie stellt ein nur kurzes Hüllkur- 
venfragment dar. Die Lautstärke ver- 
mindert sich danach um 1 undanschlie- 
Bend wird jeweils eine Pause von 12 
hundertstel Sekunden eingefügt. Der 
SOUND-Befehl in Zeile 50 gibt nun den 
Grundton (»250«) mit einem hellen‘ 
Rauschen (letzter Parameter) unter die- 
ser Hüllkurve aus. »ENV« vermindert 


zeitige Lautstärkeänderung im ersten‘ 
SOUND-Befehl und das zweite SOUND- 
Kommando, das für Ruhe sorgt, ent- 
steht ein durchbrochener Klang, der 
einem Hubschrauberknattern sehrähn- 
lich ist. 

Die angegebenen Parameter erga- 
ben sich aus einigen Probeläufen. Es 
fällt Ihnen aber nun sicher nicht mehr 
schwer, zu noch besseren Ergebnis- 
sen zu gelangen. 

Probieren Sie es doch einmal aus und 
... einen guten Flug! 

(Carsten Straush/ja) 


ohl Computer in erster Linie 
ernsthafte Anwendungen 
ickelt wurden, lernt man sie 
besten spielerisch kennen. 
finden Sie einige Anregun- 
aus dem Bereich der Grafik. 


as Staunen ist oft groß, wenn 

IB man sieht, was sich Software- 

firmen einfallen lassen. Bel 

gen Softwaretricks fragt man sich: 

8 ist das möglich? Wie gelangt man 

‚die Leistungsgrenze seines Compu- 

s? Ganz einfach: Spielerisch und mit 
tem. 

‚Beim Schneider bieten sich zwei sehr 
essante Arbeitsfelder an. Die Kom- 

on von Text und Grafik durch den 
auflösenden Grafikspeicher und 
Farbgebung. Besonders letzterer 
tet durch zahlreiche Varianten unge- 
Ergebnisse. Beginnen wir beiden 
dlagen. Die Farbe wird beim CPC 
definiert. Es ist also nicht fest- 
gt, daß 6 beispielsweise rot sein 
und damit bei »PEN 6« die Schrift- 
e auf rot umgeschaltet wird, wie 
s beianderen Computern der Fall ist. 
ehr sind zwischen die Farbnum- 
und die dann gesetzte Schrift- 
ziehungsweise Hintergrundfarbe 
Reihe von Farbregistern, die soge- 
Anten INK-Register, eingeschaltet. 
'6« greift also auf den Inhalt des 
bregisters 6 und die Farbe, die dort 
t, zurück. Hierbei ist allerdings 
eh noch eines zu beachten. 

Der Schneider verfügt bekannterma- 
über drei verschiedene Darstel- 
smodi, Modus O (mit 20 Zeichen 

ö Zeile), Modus 1 (mit 40 Zeichen pro 
) und Modus 2 (den hochauflösen- 
Modus mit 80 Zeichen). Nur bei 

dus O wäre die oben angegebene 

foanweisung von Erfolg gekrönt. Der 
wendet nämlich auf alle Farbwerte 
Modulo-Funktion an. Im Modus O 
en alle Farbwerte MOD 16 genom- 
im Modus 1 mit MOD 4 und im 
odus 2 mit MOD 2. Machen wir unsan 
Beispiel klar, was hier passiert. 
Modulo-Funktion bewirkt eine Divi- 
durch den nachfolgenden Wert, 
bei der Rest als Funktionsergebnis 
geben wird. »11 MOD 4« ergibt bei- 
sweise den Wert 3. Damit verste- 

a Sie nun auch, wieso der CPC trotz 
schiedener Farbangaben manchmal 


mit derselben Farbe schreibt. Es ist 
egal, ob Sie im Bildschirmmodus 1 PEN 
1, PEN 5, PEN 9 oder PEN 13 einge- 
ben. In jedem Fall wird als Schriftfarbe 
der Farbwert genommen, der in Regi- 
ster 1 gespeichert ist. Alle diese Werte 
haben nämlich als Rückgabe der Modu- 
lo-Funktion das Ergebnis 1. Probieren 
Sie es aus! Im Bildschirm-Modus 2 
kehrt ein Farbwert sogar alle zwei Farb- 
angaben wieder. PEN 1 entspricht also 
PEN 3, PEN 5 etc. Daraus resultiert 
auch eine Unzulänglichkeit des Com- 
puters, die den Anfänger oft zur Ver- 
zweiflung treibt. Wenn Sie im Modus 2 
die Pen-Farbe 2 auswählen, so hängt 
sich der Schneider scheinbar auf. Kein 
ESC kann ihn in die Welt der Lebenden 
zurückbringen. Daaber 2MOD 2 gleich 
0 ist, hat der CPC für die Vordergrund- 
farbe dieselbe Farbe wie für den Hinter- 
grund ausgewählt. 


Der schwarze Schirm 


Nun wissen wir, wie die Farbgebung 
beim Schneider funktioniert. Diese Art 
der Farbdefinition bietet eine ganze 
Reihe von Effekten, die man mit einer 
direkten Farbdefinition nicht erreichen 
könnte. Erstes Beispiel: Das Auftasten 
von Farben. Dieser Trick bietet die 
Lösung für ein Problem, das des öfteren 
bei der Titelgestaltung auftaucht. Die 
Titelausgabe in Basic braucht meist 
einige Zeit. Nun sieht es aber nicht 
besonders professionell aus, wennman 
ein Titelbild oder einen Spielschirm bei 
‚Action-Spielen Stück für Stück aufbaut. 
Eine Lösung dieses Problems ist mit 
Hilfe der INK-Register möglich. Man 
setzt zunächst alle »INKs« auf O, also 
schwarz. Dann schreibt man den Bild- 
schirmtitel wie gewohnt. Als dritter 
Schritt werden dann die einzelnen Farb- 
register mit den darzustellenden Far- 
ben belegt. Ergebnis: Zunächst bleibt 
der Schirm dunkel. Die Darstellung 
schwarz auf schwarz sieht man janicht. 
Nach einer Kunstpause wechselt der 
Schirm seine Farbe und auf einen 
Schlag erscheint das Titelbild. Diesen 
Vorgang zeigt Ihnen das folgende 


Listing: 
10 INK 0,0:INK 1,0:INK 2,0: 
INK 3,0 


20 PEN 1:PRINT’DIES IST MIT 
PEN 1 GESCHRIEBEN” 
30 PEN 2:PRINT”UND DIES MIT 


Farb-Spielereien auf dem 
Schneider 


PEN 2” 

40 PEN 3:PRINT”JETZT NOCH EINE 
ZEILE IN PEN 3” 

50 FOR i=1 TO 200:NEXT 

60 INK 1,24:INK 2,6:INK 3,11 
Dieselbe Technik können Sie natür- 
lich auch verwenden, um in einem erklä- 
renden Text Worte zu unterstreichen. 
Tippen Sie dazu einmal 
10 INK 0,0:INK 1,24:INK 2,0:PAPER 
0:PEN 1 

20 PRINT”In einem ganz normalen 
Erklaerungstext ”;:PAPER 
2:PRINT”soll diese Stelle 
*;:PAPER O:PRINT”besonders 
hervorgehoben werden.” 

30 PRINT”So sieht der Text im 
Normalfall aus” 

40 FOR i=1 TO 300:NEXT 

50-INK 2,6 

60 PRINT”Und jetzt mit der 
hervorgehobenen Stelle!” 

ein. 

Es geht sogar noch kürzer. Mit einem 
Trick können Sie innerhalb eines Zei- 
chens die Farbe umschalten. Wie Sie 
vielleicht wissen, verfügt der CPC über 


einen sogenannten Transparent- 
Modus. In dieser Darstellungsart wer- 
den die Zeichen übereinander 


geschrieben. Der CPC legt jedes Zei- 
chen als hochauflösendes Grafiksym- 
bolin einer Matrix aus 8 mal 8 Bildpunk- 
ten im Grafikspeicher ab. Für ein A wird 
kein Code gespeichert, sondern die 
Bildpunkte, die dem Buchstaben ent- 
sprechen, im Grafikspeicher mit der 
Schriftfarbe gesetzt. Analog dazu wird 
der durch das Zeichen nicht belegte 
freie Raum mit der Hintergrundfarbe 
belegt. Diesen letzten Teil der Opera- 
tion, das Setzen der Hintergrundfarbe, 
können Sie durch Einschalten des 
Transparent-Modus verhindern. Es 
werden dann nur noch die durch das 
Zeichen selbst belegten Bildpunkte 
gesetzt. Die Umschaltung zwischen 
Normal- und Transparent-Modus ge- 
schieht dabei mit »PRINT CHR$(22)+ 
CHR$(1)«. »PRINT CHR$(22)-+CHR$ 
(0)« schaltet wieder zurück. Probieren 
Sie einmal, nach der Eingabe von 
»CHR$(22)« den Bildschirm mit DEL zu 
löschen. Es funktioniert nicht mehr. Der 
Grund dafür ist einfach. DEL schreibt 
die zu löschende Zeichenposition mit 
einem Quadrat von der Größe eines Zei- 
chens mit Hintergrundfarbe voll. Und 
genau dieses Beschreiben mit der Hin- 
tergrundfarbe funktioniert janichtmehr. 


855 


Schauen Sie sich einmal an, wie der 
Transparent-Modus wirkt. Ein einfa- 
ches PRINT-Kommando genügt dazu: 
»PRINT CHR$(22). Wenn Sie 
»PRINT”AAAAAA<6 mal CTRL-H> 
<6 mal SHIFT 0O>*« eintippen, wer- 
den die beiden Zeichen überlagert. Sie 
erhalten unterstrichene Buchstaben. 
Auf diese Weise können Sie sich einen 
neuen Zeichensatz definieren. Dane- 


Unterstreichen 
in Basic 


ben ist es natürlich möglich, in einem 
Zeichen mit mehr als zwei Farben zu 
arbeiten. Man überlagert einfach die 
dritte und jede folgende Farbe. Wenn 
Sie beispielsweise zwischen »AAA« 
und dem Strich die Farbe umschalten, 
wird der Strich in einer anderen Farbe 
dargestellt. Die gelben »As« werden rot 
unterstrichen. 

10 INK 0,0:INK 1,24:INK 2,6 

20 PEN 1:PAPER 0:LOCATE 1,10 

30 PRINT "AAAAAA” 

40 PEN 2:LOCATE 1,10 

50 PRINT”<6 mal SHIFT 0>” 

Wie können wir aber diese Eigen- 
schaft des CPC für unsere Farbum- 
schaltung innerhalb eines Zeichens 
benutzen? Stellen Sie sich vor, Sie 
überschreiben ein Zeichen mit einem 
neuen, wobei die Schriftfarbe des 
neuen Symbols mit der Hintergrund- 
farbe des alten übereinstimmt. Die 
Schriftfarbe des neuen Zeichens ent- 
nehmen Sie dabei einem neuen Farb- 
Register. Sie setzen also mehrere INKs 
auf denselben Wert. Bleiben Sie dabei 
im Normal-Modus, so wird nur das neue 
Zeichen dargestellt. Beim Transparent- 
Modus hingegen bleibt der Rest des 
alten Zeichens erhalten, der nicht von 
dem neuen überdeckt wird. Nach der 
‚Ausgabe sehen Sie zunächst das alte 
F Zeichen, soweit es nicht überschrieben 
e wurde. Durch Umdefinition des Farb- 
B Registers, aus dem die Schriftfarbe 
kam, können Sie dann das neue überla- 
gerte Zeichen einblenden. 

Ein Beispiel soll dies illustrieren. 
Wenn Sie im Anhang Ihres Benutzer- 
handbuches nachschlagen, finden Sie 
dort als Zeichen 239 ein Raumschiff- 

u ähnliches Gebilde. In der untersten 
i Bildpunktreihe sind zwei Öffnungen 

ausgespart, die man mit ein wenig 
he Phantasie als Triebwerke definieren 
Z kann. Allerdings scheintsich die Rakete 

2 in Ruhestellung zu befinden. Wir wollen 
nun dieses Manko beheben. Dazu defi- 
nieren wir mit »>Symbol« ein neues Zei- 
chen. »SYMBOL 240,0,0,0,0,0,0,0, 
&x00101000« belegt die gesamte Flä- 
che des Zeichens mit der Hintergrund- 
_ farbe. Nur zwei Punkte sind davon aus- 


genommen, die Triebwerköffnungen. 
Wir wollen nun dieses neue Zeichen 
und Symbol Nummer 239 übereinan- 
derdrucken. Zuerst wird dabei Zeichen 
239 ausgegeben. Die Überlagerung 
durch das Triebwerkfeuer folgt dann im 
zweiten Schritt. 
10 MODE O:INK 0,0:INK 1,11:INK 
2,0:PAPER O:PEN 1 
20 PRINT CHR$(22) 
30 SYMBOL 
240,0,0,0,0,0,0,0,&< 00101000 
40 CLS:LOCATE 20,10:PRINT CHR$ 
(239) 
50 PEN 2:LOCATE 20,10:PRINT 
CHR$(240) 
60 FOR i=1 TO 800:NEXT 
70 INK 2,6,24 

Durch Setzen des Farbregisters 2 auf 
Ost die Vordergrundfarbe von Zeichen 
240 gleich der Hintergrundfarbe von 
Zeichen 239. Erst die Umdefinition der 
Farbe in Programmzeile 70 sorgt dafür, 
daß das Triebwerk gestartet wird. Es 
wird durch INK 2,0 wieder abgeschal- 
tet. Man kann diesen Effekt allerdings 
auch in der umgekehrten Richtung ein- 
setzen, um beispielsweise eine Öff- 
nung zu schaffen, wo vorher keine war. 
Dies ist zum Beispiel bei Adventures oft 
der Fall. Durch eine Eingabe soll sich 
eine Tür im bereits dargestellten Spiel- 
bildschirm öffnen. Mit der Farbumdefi- 
nition ist dies leicht zu lösen. Man defi- 
niert wiederum zwei »INKs« auf die- 
selbe Farbe. Mit der einen »INK« wird 
dann die Tür, mit der anderen die Wand 
beschrieben. Ein einfaches INK- 
Kommando reicht aus, um auf Knopf- 
druck den Spielbildschirm zu verän- 
dern. »Elektro Freddy« arbeitet bei- 
spielsweise mit diesem Trick. 

Man kann die Farbumdefinition aller- 
dings nicht nur bei der Zeichenaus- 
gabe, sondern auch im Bereich der 
hochauflösenden Grafik einsetzen. 
Besonders wichtig ist dies, wenn man 
mit dem TAG-Befehl arbeitet. Diese 
Anweisung erlaubt, die Zeichenaus- 
gabe an der Stelle zu positionieren, an 
der sich der Grafikcursor befindet. 
Dabei stimmt die oberstellinke Ecke des 
‚Ausgabezeichens mit der Position des 
Grafikcursors überein. So kann man ein 
Objekt von der Größe eines Zeichens 
kontinuierlich über den Bildschirm 
bewegen. Wir wollen dies einmal 
anhand unserer Rakete demonstrieren. 
10 CLS:FOR i=600 TO 1 STEP-2:TAG: 

CALL&BD19:MOVE 1,250: 
PRINT CHR$(239) ; :NEXT 

Mit dieser Zeile wird das Raumschiff- 
Zeichen über den Bildschirm bewegt. 
Der MOVER-Befehl bewegt den Grafik- 
cursor innerhalb der FOR-TO-Schleife 
langsam nach links und gibt durch den 
nachfolgenden PRINT-Befehl an dieser 
Stelle das Raumschiff-Zeichen aus. Das 
zwischengeschaltete CALL-Komman- 


do hat dabei eine Synchronisations- 
funktion. Der Bildschirm wird im Monitor 
dadurch aufgebaut, daß ein Elektronen: 
strahl über die gesamte Bildschirmflä- 
che gelenkt wird, wobei er je nach Aus 
lenkungswinkel und Auftastung die ein- 
zelnen Farbpunkte auf der Bildschii 
oberfläche zum Aufleuchten bringt. De 
Strahl wandert dabei zeilenweise ii 
jeder fünfzigstel Sekunde einmal voı 
oben links nach unten rechts. Danacl 
wird der Strahl ausgetastet und läı 
»blinde zu seinem Ausgangspunl 
zurück. Ein Zeichen wird beim CPC) 
Bildpunkt für Bildpunkt im Grafikspei: 
cher abgelegt. Nun kann es vorkoı 
men, daß der Strahl gerade in deı 
Moment Bildschirmpunkte darstelle 
will, in dem diese vom Computer fa 
lich geändert werden. Ergebnis: 
eine Teil des Zeichens wird noch in def 
alten Position dargestellt; der Restabe 
schon in der neuen. Unser Zeiche 
wird also auseinandergerissen. Wen: 
Sie den CALL-Befehl weglassen, wer- 
den Sie sehen, daß das Oberteil de 
Rakete etwas verschoben gegen da 
Unterteil dargestellt wird. Der CALL: 
Aufruf vermeidet diese Probleme. Ei 
hält die nachfolgenden Operatione 
solange an, bis der Strahl zurückläuft. 

Kehren wir zurück zur Farbumdefi 
tion im Bereich der hochauflösende 
Grafik. Obwohl Sie mit TAG ein Zeiche 
in Abhängigkeit von der Grafikcursor- 
position bewegen können, wird bei defl 
HiRes-Grafik auch in diesem Fall di 
Farbe des Grafikcursors zum Setze 
der einzelnen Bildpunkte verwendet 
Es hat daher keinen Sinn, wenn Sie 
versuchen, mit »PEN« und »PAPER 
irgendwelche Effekte zu erzielen. 
der Transparent-Modus in Zusamme 
hang mit »TAG« nicht funktioniert, ist 
dies auch kein Manko. Das Aufleuchte 
des Triebwerkfeuers können Sie aı 
durch ein »PLOTe realisieren. Dazu müs 
sen wir uns allerdings ein wenig mit def 
Bildschirm-Arithmetik beschäftige: 


3,2,1 = PLOT 


Wenn Sie mit x,y die Position bezeich- 
nen, an der sich der aktuelle Grafikcur- 
sor befindet, so können Sie die Position 
der Triebwerkdüsen relativ einfacl 
bestimmen. 

Im Modus O werden jeweils vier Bild- 
punkte in der Horizontalen mit dersel 


Modus auf je vier Bildschirmpunkte ii 
der Horizontalen gedehnt. Je vier 
nebeneinanderliegende Bildpunkte 
erhalten denselben Farbwert. Beiunse- 
rer Rakete sind die ersten beideı 
Punkte unseres Zeichens in der unter- 


sten Bildschirmlinie gesetzt (Verglei- 
chen Sie dazunoch einmal die Zeichen- 
matrix im Anhang Ihres Handbuchs). 
Die Bildpunkte X bis X+7 in dieser 
Bildschirmlinie werden also bei der Aus- 
gabe dieses Zeichen gesetzt. Wenn Sie 
nun 8 zu unserem X-Wert addieren, so 
treffen Sie genau auf den durch das 
"Tiebwerk freien dritten Punkt von links. 


8 Punkte entfernt 


8 zweite Triebwerköffnung liegt dann 
\ jer acht Bildpunkte weiter in der 
Position X-+16. Nach der X-Verschie- 
"Bung müssen Sie nun noch die Y-Ab- 
eichung bestimmen. Für jede Bild- 
‚schirmlinie, die Sie weiter nach unten 
en, müssen Sie eine 2 von der Y- 
oordinate subtrahieren und umge- 
ehrt. Sie erhalten damit Y-14 als Verti- 
ert. Der Grafikcursor liegt in der 
öbersten Bildschirmlinie dieses Zei- 
ens und sieben Bildschirmlinien tie- 
spielt sich unser Triebwerkfeuer ab. 
'h dieser Vorarbeit ist das Setzen 
Triebwerkpunkte kein Problem 
ehr. Wir müssen nur die Punkte 
X+8,Y-14) und (x+16,Y-14) mit einer 
seigneten Farbe setzen.Wenn Sie das 
imschiff auf die Position 300,200 


Der neue Checksummer für die 
Schneider-Computer ist da. 
= a 2.0 macht die Eingabe 
Programmen noch einfa- 
sher. Aber keine Angst, Explora 

d dürfen Sie auch noch benut- 


iele unserer Leser haben 
Explora 1.0 schon schätzen 
gelernt. Ist doch die Eingabe 
Programmen bedeutend einfacher 
d sicherer geworden. Doch die erste 
ersion unseres Checksummers zeigte 
och einige Schwächen. Der Neue hat 
@ nicht mehr. Aber kompatibel zuein- 
r, das sind sie beide. 

Zuerst einmal Informationen für alle, 
= noch nicht wissen, was Explora ist. 
a ist ein Prüfsummenprogramm, 
s jede eingegebene Zeile auf ihre 
Sichtigkeit hin überprüft. Dazu müssen 
zuerst Explora laden (oder eintip- 
), einmal laufen lassen und dann 


setzen, so sind im Modus O die Punkte 
(308,186) und (316,186) zu setzen. Die 
notwendigen Befehle dazu: 
10 INK 0,0:INK 1,11:INK 2,0:MODE 
0:PLOT 300,200,1:TAG: 
PRINT CHR$(239) ; 

20 PLOT 308,186,2:PLOT 316,186,2 
30 FOR i=1 TO 800:NEXT 
40 INK 2,24,6 

Dabei werden die Punkte zuerst mit 
der auf 0 gesetzten Farbe 2 geschrie- 
ben. Erst nach der Zeitverzögerung in 
Zeile 30 wird dann das Triebwerk zuge- 
schaltet. Zwei Anmerkungen sind in 
diesem Zusammenhang noch notwen- 
dig. Erstens muß nach jeder Zeichen- 
ausgabe mit TAG ein Semikolon stehen. 
Sonst wird als Äquivalent zum 
RETURN-Befehl ein linksgerichteter 
Haken ausgegeben. Zweitens sollten 
Sie darauf achten, bei Anwendung der 
hochauflösenden Grafik immer die Gra- 
fikfarbe mit zu spezifizieren. Diese wird 
durch das MODE-Kommando nicht ver- 
ändert. Wenn Sie also in dem PLOT- 
Befehl in Zeile 10 die 1 als dritten Para- 
meter weglassen und das Programm 
zweimal hintereinander mit RUN star- 
ten, so wird das Raumschiff beim zwei- 
ten Mal nicht mehr dargestellt. Grund: 
Am Anfang von Zeile 10 wird Farbe 2 
auf O gesetzt. Vom ersten Durchgang 


her war als Grafikfarbe aber Register 2 
spezifiziert. 

Ergebnis: Das Raumschiff wird in die- 
sem Durchgang mit der Hintergrund- 
farbe geschrieben. Nach der Zeitverzö- 
gerung wird zwar Farbe 2 aufgerufen, 
aber da Sie nun das ganze Raumschiff 
mit dieser Farbe geschrieben haben, 
blinkt auch die Rakete als Ganzes. 
Experimentieren Sie auch mit anderen 
Zeichen und Kombinationen. 

(Carsten Straush/Matthias Rosin) 
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wieder (mit »NEW«) löschen. Die 
Maschinencode-Routine im Speicher 
überprüft jetzt automatisch Ihre Einga- 
ben. Sobald Sie am Ende einer Pro- 
grammzeile ENTER oder RETURN 
drücken, erscheint in eckigen Klam- 
mern eine vierstellige Hexadezimalzahl 
auf dem Bildschirm. Das im Heft abge- 
druckte Listing enthält ebenfalls solche 
Zahlen. Stimmt die Prüfsumme auf dem 
Bildschirm mit der im Heft überein, so 
haben Sie die Zeile richtig abgetippt. 
Gibt es Unterschiede zwischen den 
Werten, müssen Sie auf Fehlersuche 
gehen und die Zeile noch einmal kon- 
trollieren. 


lora 1.0 und 2.0 
en sind Brüder 


Das alles konnte Explora 1.0 auch 
schon. Der Vorteil der neuen Version 
besteht darin, daß Sie nun größere 
Freiheiten bei der Eingabe der Zeilen 
haben. So dürfen Sie die Basic-Schlüs- 


Mehr Komfort 
mit »Explora 2.0« 


selwörter in Klein- oder Großbuchsta- 
ben (oder auch gemischt) eingeben. 
»PRINT« darf mit einem Fragezeichen 
abgekürzt werden. Explora 2.0 akzep- 
tiert zum Beispiel für die Zeile »100 
PRINT« folgende verschiedene Einga- 
ben: 
100 PRINT 
100 print 
100 ? 
100 PrInT 

Die Zeilen müssen also nicht mehr 
schon beim Eintippen wie abgedruckt 
aussehen, sondern erst beim Auflisten. 
Außerdem werden Prüfsummen nur 
noch für Programmzeilen ausgegeben 
und nicht mehr wie früher auch bei 
Direkteingaben. Vor der Zeilennummer 
stehende Leerzeichen, Line-Feeds und 
Tabulatorzeichen überliest Explora 2.0 
selbständig. Leerzeichen innerhalb der 
Zeile zählen aber weiterhin und verän- 
dern die Prüfsumme. 

Explora erlaubt die Verwendung des 
EDIT-Befehls. AUTO ist in der neuen 
Version ohne Einschränkungen zu 
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benutzen, allerdings nur beim CPC 664 
undCPC 6128. Explora 1.0 lagim Spei- 
cher fest zwischen AO00 und A086 
hex. Die neue Version wird vom Basic- 
Lader automatisch im Speicher direkt 
unter HIMEM abgelegt. Somit arbeitet 
auch SYMBOL AFTER einwandfrei. 

‚Allerdings sollten Sie Programme nur 
starten, wenn Sie vollständig eingege- 
ben sind. Denn dann können Sie 
Explora aus dem Speicher eliminieren 
und es gibt auch bei Maschinen- 
code-Routinen keine Platzprobleme. 

Eine kleine Einschränkung gibt es 
aber doch: Löschen Sie keinesfalls Zei- 
len durch Eingabe der Zeilennummer 
und Drücken der ENTER-Taste. Die 
Zeile wird dann gar nicht wirklich 
gelöscht, sondern ist ein Duplikat der 
folgenden Zeile. Verwenden Sie statt 
dessen DELETE. Statt »20« müssen 
Sie also »DELETE 20« schreiben. 

Das Wichtigste dürfen wir aber nicht 


Name: 
Computer: 
Checksummer: 


Explora 


Explora 2.0 308 
CPC 464/664/6128 
320 


vergessen! Explora 2.0 ist aufwärts- 
kompatibel zu Explora 1.0. Das heißt, 
daß Sie sowohl mit Explora 2.0 alte Pro- 
gramme abtippen können als auch mit 
Explora 1.0 alle zukünftigen Pro- 
gramme. Denn die Prüfsummen sind 
identisch. 


Die Prüfsummen 
sind identisch 


Steuerzeichen und mehrere Leerzei- 
chen, die in Strings aufeinanderfolgen, 
sind in geschweiften Klammern im Klar- 
textangegeben. So bedeutet |[CTRLA], 
daß Sie die CTRL-Taste gemeinsam mit 
»A« drücken müssen. Aber Vorsicht, 
daß Sie solch ein Zeichen nicht mit den 
ASCII-Sonderzeichen | oder | verwech- 
sein! 

Die Bedeutung der geschweiften 
Klammer erkennen Sie jedoch sehr 


leicht. Denn als ASCIl-Sonderzeichen 
steht sie meist allein. Im anderen Fall 
umschließt sie immer Control- oder 
Leerzeichen. Denn auch die Leerzei- 
chen werden mit [5 SPACE] (fünf Leer- 
zeichen) angezeigt. 

Da die Tastatur der Schneider-Com- 
puter sehr leicht umdefiniert werden 
kann, arbeitet jeder Computer-Besitzer 
mit einer anderen Tastenbelegung. Wir 
verwenden nur den Original-ASCIl- 
Code. Deutsche Sonderzeichen wer- 
den dabei als amerikanische Sonder- 
zeichen (siehe Tabelle) dargestellt. 
Benutzen Sie einen umdefinierten Zei- 
chensatz, so müssen Sie natürlich 
immer die analogen Zeichen einsetzen. 
Übrigens, das Zeichen » « für das deut- 
sche »ß« wird mit CTRL-2 aufgerufen. 

Listing 1 enthält das Programm »Ex- 
plora 2.0«. Listing 2 zeigt die Besonder- 
heiten noch einmal mit Erklärung. 


(Martin Kotulla/hg)) 


Kted+2) 


Datenträger: Kassette/Diskette 


xT i 


Sonderzeichen 
amerikanische 


Das Symbol »"« steht für »1« 


deutsche 


A,5F,16,08 
DATA 


AB, 7C 


aco»co>e 


Listing ihr Komfort mit »Explora 2.0« 


IF PEEK(6)=&91 THEN ed=&BD5EıPOKE &B 
F28,&8A: RESTORE 498 

POKE &BF21 ,&ACıPOKE &BF22, 

POKE &BF23,PEEK (ed+1):POKE &BF24,PEE 


POKE ed,&C3; 
OKE ed+2,FNmsb (start) 
IF PEEK(&)=&8@ THEN END 
FOR i=1 TO 7:READ 
)+startıb=VAL("&"+b$) 

POKE a,FNIsb(b):POKE a+1,FNmsb (b) NE 


DATA CD,22,BF,F5,C5,D5,E5,2A,2@,BF,C 
D,61,DD,B7,28,62 
DATA ESY2A,28 BF ‚CD,88,AB,E1,30,58,C 


DATA EDIES!EL.ED, 48,28, BF ,21,28,00,8 


FE,@8,20,F6,DD,2A,28,BF,91,28,8 
8,DD,7E,00,5F,1& 

DATA 08, 19,84, F5,A8,47,F1,89,DD,23,F 
E,2@,2@,ED,SE,@aD 
DATA'CD,SA,BB,SE,@A,CD,5A,BB,3E,5B,C 
D,5A,BB,7C,CD,77 

DATA 


PEEK (ed) 


:POKE ed+1,FNlsb(start):P 


a$,b$1a=VAL("&"+as 


17,83 


CD, 7B,A@,7D,CD,77,AB,7D,C 


FE 
‚C6,87,C3,5A,BB,CD,61,D 
Fe, 


lautet »WW]l« 


478 DATA @B,DES2,1B,EED4, 1E,E869 17B141 
488 DATA 21,E259,89,DES2,8F ‚EED4,99,E7AA 
100 RR DFCCI 185861 
110 ' * * TFADA] 498 DATA @B,DE4D,1B,EECF,1E,EB64 E1FS2] 
120 ' * EXPLORA v2.8 * L761E] 508 DATA 21,E254,89,DE4D,8F ‚EECF ‚99,E7AS 
130 ' * * EDCDEI 124981 
BO CC3D41 sı@ END LAA1Aı 
158 TE1BA] 
168 DEF FNIsb (x)=255 AND UNT (x) [39E8] Listing 1. Mehr Komfort mit »Explora 2.0« (Schluß) 
170 DEF FNmsb (x)=255 AND INT (x/256) 188641 
198 SymBDL. AFTER 238: MENORY HIHEN-161 194801 
198 start=HIMEM+1:1SYMBOL AFTER 248 128921 
20® FOR i=&AB@B TO &AB9D:READ af: sum=sum 
+VALC"&"+a$) :NEXT i 1B2C81 
21® IF sum<>19814 THEN PRINT "DATA-Fehle 
r!"zEND » EFCCEI 400 DATA &BB,&E1,%&D1,&C1,%F1,&C9, ur, Ir 
22@ RESTORE:FOR i=start TO start+&9D:REA „EIF,„EIF)SE6,LOFUChESO,LFE,ESA tcacaı 
ER R LEBBEI 418 DATA’L38,402,&06,407 ,03,E5A,&BB L633C] 
230 FOKE i ‚VAL("&"+a$) NEXT i 124021 428 NEW TEEABI 
24® FOR i=i_TO S:READ arasatstart 430 PRINT "(CTRL APCCTRL VILCTRL VILCTRL 
250 wert=PEEK (a) +PEEK (a+1)#256-49960+sta Ar“ LeDBBI 
re 12776] 448 PRINT "5 SPACEIWWIT" CSCDEI 
26@ POKE a,FNIsb(wert):POKE a+1,FNnsb (we z 
rt)sNEXT i t@1B21 Listing 2. Im Beispiel müssen Sie die Zeile 400 wie folgt 
Te as =uBQ THEN ed=&BDSA,POKE &B 2, | | eingeben (Modus 1): 400 DATA &BB,$E1,&D1,&C1,&F1,&C9, 
288 IF PEEK(6)=&7B THEN ed=%BDSB:POKE &B SAF&1F ‚SiF,&1F,&E6,&0F,&C6,&30,&FE,&3A Zeile 430 be- 
F2@,&BA: RESTORE 478 1768C3 steht in der PRINT-Anweisung aus den vier Tastendrucken 


CTAL-A, CTRLY, CTRL’Y und CTRL-A. Der String in Zeile 440 


‚Das Betriebssystem und speziell 

das Basic der Schneider- 
omputer gehört zum Besten, 
s es in dieser Art zur Zeit auf 
d Heimcomputermarkt gibt. 

llerdings haben auch die CPCs 
h einige Macken. Hilfe ist oft 
r einfach. 


aß bei der Entwicklung der 
Software der Schneider- 
Computer gute Arbeit gelei- 

st wurde, ist allgemein bekannt. Aber 
ih das beste Betriebssystem weist 
er noch einige Fehler auf. So auch 
gas Schneider-Basic. Und dies sind 
ht nur schon relativ bekannte 
lacken«, wie der DEC$-Befehl, son- 
dern oft Kleinigkeiten, die anfangs zu 
iger Verwunderung führen und sich 
st nach genauerem Hinsehen als 
'hte Fehler - und nicht etwa Program- 
sierfehler - entpuppen. Leicht zu ver- 
ehen ist der gerade beschriebene 
ehler beim DEC$ des CPC 464. Die- 
8s Kommando dient der Formatierung 
es Strings. Das heißt, es baut eine 
orgegebene Zeichenkette so um, als 
öb diese mit einem PRINT-USING-Kom- 
ando ausgegeben würde. Leider 
terlief bei der Entwicklung des 
Betriebssystems beim 464 ein Fehler. 


®e Anfangsklammer wird zweimal 
erprüft, weshalb man bei diesem 
imando immer zwei Klammern öff- 
en muß, aber nur eine schließen darf. 
@ Funktion DEC$ hat dabei folgendes 
jat: 
=DEC$((a$, "<Formatierungs- 
rameter>") 
Die Formatierungsparameter ent- 
prechen denen des PRINT-USING-Be- 
ehls. Nähere Angaben zur Verwen- 
dung dieser Parameter finden Sie im 
andbuch. 
Während die Falsch-Interpretation 
ei DEC$ eindeutig erkennbar ist, 


bereiten andere Fehler mehr Schwierig- 
keiten. Ein Problem im mathematischen 
Bereich stellt beispielsweise die 
Potenzfunktion dar. Wenn man hier mit 
einer negativen Basis arbeitet, liefert 
der CPC 464 in manchen Fällen ein fal- 
sches Ergebnis. Laut Handbuch ist die 
Potenzfunktion b° in zwei Fällen defi- 
niert. 

1. Wenn die Basis (b) positiv ist, soll 
die Potenzfunktion für beliebige Expo- 
nenten (e) definiert sein. 

2. Bei negativer Basis ist sie nur für 
ganze Exponenten definiert. 

Der Exponent darf dabei sowohl posi- 
tiv als auch negativ sein. Probleme hat 
der Interpreter dabei mit einem an sich 
völlig einfachen Problem. Was passiert, 
wenn man eine negative Zahl mit 1 
potenziert? Sie wird positiv - jedenfalls 
beim 464. Bei den Nachfolgemodpllen 
wurde dies kuriert. Wenn Sie also 
PRINT(-12)11 
eingeben, so lautet das Ergebnis nicht 
-12, sondern 12. Der Schneider inter- 
pretiert hier also die negative Basis als 
positiv und rechnet mit dem positiven 
Ansatz weiter. Eine einfache Abhilfe 
bietet die Multiplikation mit der Signum- 
Funktion. SGN(<Wert>) liefert -1 für 
einen negativen Wert, ObeiNullund +1 
für einen positiven Eingabewert. Wenn 
Sie also beim 464 
PRINT SGN(b)*ble 
statt des normalen Funktionsaufrufes 
benutzen, erhalten Sie immer die rich- 
tige, korrigierte Ausgabe. Hierzu aller- 
dings gleich eine Nebenbemerkung. 
Sie dürfen den gerade beschriebenen 
Fehler des Computers - genauer sei- 
nes Interpreters - nicht mit einem ande- 
ren »Fehler« verwechseln, der auf den 
ersten Blick auch zu Verwunderung 
führt. Wenn Sie nämlich 
2-1212 
eingeben, erhalten Sie - und dies gilt 
nun gemeinsam für alle Schneider- 
Computer - nicht etwa, wie Sie viel- 
leicht erwarten, 144, sondern vielmehr 
-144, also den erwarteten Wert mit 
negativem Vorzeichen. Dies ist aber 
kein Interpreterfehler, sondern liegt in 
der Hierarchie der einzelnen Verknüp- 
fungssymbole begründet. Sie kennen 


»Fehler« — 
selbst behoben 


sicher die mathematische Grundregel 
»Punkt-vor-Strich-Rechnungs. Diese 
richtig anwendend, würden Sie bei- 
spielsweise den Term »2+3-3+3« als 
»(2»3) - (3*3)« berechnen. Also 
zunächst die mit dem Malzeichen ver- 
bundenen Werte bestimmen und diese 
dann mit »-« verknüpfen. Analog dazu 
werden Potenz- und andere Funktionen 
vor der Verknüpfung mit »*« oder »/« 
berechnet. Auch der Schneider macht 
das so. Er gliedert den eingegebenen 


Hierarchie der 
Rechenzeichen 


Ausdruck mittels der einzelnen Ver- 
knüpfungszeichen (»+«, »-«, »*«, »/« 
und Funktionsaufrufe). Dabei gilt fol- 
gende Hierarchie: 
1. Klammern: haben höchste Priorität 
2. Funktionsaufrufe: SIN(), SOR() 
und so weiter werden zuerst 
bestimmt 
. Potenzfunktion »1« 
. »=« negatives Vorzeichen für eine 
Zahl 


. »*« Multiplizieren 
. MOD Modulo-Funktion (liefert 
den Rest einer Division) 
. »/« Dividieren 
. »\« Ganzzahldivision (nur der 
ganzzahlige Wert des Ergebnis- 
ses wird angezeigt) 
9. »+« Addition 
10. »-« Subtraktion 
Das Rechensymbol mit der niedrig- 
sten Zahl hat dabei die höchste Priori- 
tät. Wie Sie sehen, kann dabei das 
Minuszeichen zwei verschiedene 
Bedeutungen einnehmen. Zum einen 
kann es die Operation »-«, also eine 
Subtraktion, anzeigen. Ferner kann das 
Minuszeichen als Vorzeichen stehen. 
Diese typisch menschliche Doppeldeu- 
tigkeit macht dem Schneider nun aber 
arg zu schaffen. Er hat das Minus in bei- 
den Versionen gespeichert, erkennt es 
auch richtig, und führt demnach dann 
die richtige Operation aus. Allerdings 
setzt er das Vorzeichen in seiner Priori- 
tätsbestimmung geringer als Funktio- 
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nen an. Während ein Mensch also -122 
- mathematisch falsch - als Aufforde- 
rung verstehen würde, die Zahl -12 mit 
sich selbst zu multiplizieren, denkt der 
Schneider hier korrekt. Er analysiert 
das Minuszeichen und bestimmt, daß 
zu seiner Definition eine Minusfunktion 
auf den Ausdruck, der nach diesem Zei- 
chen steht, angewendet werden soll. 
Wenn Sie also 
PRINT-1212 
eingeben, so interpretiert der Schnei- 
der mathematisch korrekt: »Zahl 12 mit 
sich selbst multiplizieren und darauf 
dann die Minusfunktion anwenden - 
also das durch die Potenzierung ent- 
standene Ergebnis mit -1 multiplizie- 
ren.« Das Endergebnis lautet also -144. 

Überhaupt ist der Umgang mit Zahlen 
bei Computern - und hier machen die 
Schneider-Geräte keine Ausnahme - 
eine Wissenschaft für sich. Ein weiterer 
Punkt, der oft zu Ärger führt, ist die teil- 
weise ungenügende Rechengenauig- 
keit - speziell bei kleinen Zahlen. Oft will 
man in einer Schleife mit relativ hoher 
Auflösung nahe beieinander liegende 
Punkte berechnen, um beispielsweise 
eine Funktion zu plotten. Dann darf man 
sich aber nicht mehr auf seinen Compu- 
ter verlassen, weil dieser ungenauer 
arbeitet, als das Problem es erlaubt. 
Nehmen wir ein ganz einfaches Bei- 
spiel: 
10 FOR i=0.1 TO 10 STEP 0.1 
20 PRINT i 
30 NEXT i 

Was erwarten wir bei einer solchen 
Schleife? Das Programm beginnt mit 
i=0,1. Das ist der erste Schritt, beidem 
als Beispiel der erste darzustellende 
Wert berechnet werden soll. Es folgt 
0,2, 0,3 und so weiter. Bei 1,0 haben 
wir die ersten 10 Werte berechnet, bei 
2,0 20 und demnach bei 10,0 genau 
100. Nun schauen Sie sich einmal an, 
was Ihr CPC berechnet hat. Am Anfang 
ist alles noch korrekt. Auf 0,1 folgt 0,2. 


Eins und eins ist 
nicht immer zwei 


Ab 3,7 wird es jedoch ungenau. Jetzt 
gibt es als nächste Stufe 3.79999999. 
Das wäre nicht weiter schlimm, wenn 
der Schneider in seiner Vergleichsbe- 
trachtung, mit der er feststellt, ob der 
letzte Schleifenwert bereits erreicht 
oder überschritten wurde, genauso 
wenig pingelig wäre und diese Werte 
entsprechend runden würde. Hier ver- 
hält er sich aber nun extrem kleinlich. 
3.7999999 ist kleiner als 3.8 und 
‚obwohl es eigentlich 3.8 sein muß, fährt 
der Schneider noch einmal durch die 
Schleife. Die FOR-TO-Schleife wird ja 
bekanntlich abgebrochen, wenn durch 
laufende Additionen ein größerer Wert 


als der Schleifenendwert erreicht wird. 
Dies gibt keine Probleme, wenn die Dif- 
ferenz (der Abstand, in dem wir die ein- 
zelnen Werte ausdrucken) groß im Ver- 
gleich zu der Abweichung ist. Es ist 
nämlich egal, ob wir zu 3.99999 oder 
zu 4 den Wert 0.1 addieren. Ist 4 unser 
Schleifenendwert, fällt der Vergleich 
immer positiv aus. Der Computer been- 
det die Schleife. Gehen wir aber bei- 
spielsweise in Tausendstel-Schritten 
voran, so kann es durchaus passieren, 
daß der CPC ein paar Berechnungen 
mehr macht als eigentlich vorgesehen. 


Nun aber subtrahiert der Schneider 
nicht nur, manchmal fügt er auch ein 
bißchen dazu. Am Ende unserer 
Schleife (ab 9.7) wird das klar. Und 
wenn er gerade zu glatten Werten 
zurückgekehrt ist, legt er noch ein biß- 
chen drauf. Der CPC entscheidet, daß 
9.9000001 + 0.1 bereits größer als 10 
und damit der Schleifenendwert 10 
überschritten ist. Die Schleife muß ver- 
lassen werden. Leider ist dies ein 
Schritt zu früh. Statt 100 Durchgängen 
hat der Schneider nur 99 gemacht. Um 
diesem Problem abzuhelfen, gibt es 
zwei Methoden. Zum einen kann man 
den Teufel mit dem Beelzebub austrei- 
ben, genauer: die eine Ungenauigkeit 
durch eine geplante zweite ausglei- 
chen. In unserem Fall heißt das, den 
Schleifenendwert auf 10,000001 zu 
erhöhen, womit auch noch der letzte 
Vergleich positiv ausfällt und die 
gewünschten 100 Schleifendurch- 
gänge stattfinden. Dies ist aber eine 
wenig schöne Variante. Besser ist es, 
sich mit dem Grund für diese Ungenau- 
igkeiten auseinanderzusetzen. Wie 
jeder Computer rechnet auch der 
Schneider intern binär - das heißt im 
Zweiersystem. Um nun mit uns Men- 
schen zu kommunizieren, formt er 
seine Binärwerte in unsere Dezimalzah- 
len um. Es gibt aber Dezimalzahlen, die 
im Dezimalsystem ganz glatt aussehen, 
binär jedoch zu einem unendlich langen 
Bandwurm werden - wie beispiels- 
weise 0,1. Binär lautet dieser Wert 
0,000110110110110110110... Der 
Computer muß hier runden. Damit 
schleichen sich Ungenauigkeiten ein. 
Bei hundert aufeinanderfolgenden 
‚Additionen kommt Fehler zu Fehler, und 
am Schluß stimmt das Ergebnis nicht 
mehr. Hier gibtes aber einerelativ einfa- 
che Lösung. Statt »ie in solch binär 
schwer faßbaren Werten zu verändern, 
addieren Sie besser Ganzzahlen und 
setzen die Schleifenobergrenze ent- 
sprechend herauf. Die richtigen Werte 
von i für die Verarbeitung erhalten Sie 


dann durch einfaches Teilen - bei- 
spielsweise durch 10. Wenn Sie also. 
statt der ersten Schleife mit 

10 FOR i=1 TO 100 

20 PRINT i/10 

30 NEXT 

arbeiten, so haben Sie exakt dieselbe 
Zahl an Schleifendurchläufen zur Verfü- 
gung. Nur die Additionsfehler werden 
vermieden. Denn 1 dezimal ist auch für 
den Computer 1 binär und damit pro- 
blemlos zu verarbeiten. 

Die Schneider machen jedoch nicht 
nur bei der Arithmetik manches anders, 
alsman sich wünscht. Zwei weitere Pro- 
bleme treten auf, wenn man sich inten- 
siv mit dem Ablegen von Programmen 
beschäftigt. In einem vernünftigen Pro- 
gramm muß der Benutzer den Namen 
einer zu speichernden Datei eingeben 
können. Dazu reicht eine einfache 
INPUT-Abfrage. Wenn man mit 
INPUT”Name der Datei”;n$ 
einen Namen einliest, sollte man diesen 
problemlos mit OPENOUT n$ an die 
Disketten- oder Kassettenverwaltung 
weiterleiten können. Diese $oll dann die 
Datei unter dem Namen speichern. Das 
klappt aber nur manchmal. Wenn man 
viele Strings im Speicher verwaltet, 
streikt der CPC. Statt eine Datei zu öff- 
nen, wirft er eine Fehlermeldung aus. 


. ohne 
Abhilfe ist auch hier wieder relativ ein- 
fach. Man muß nur vor dem String ein. 
»""« ausgeben. Obwohl der Dateiname. 
durch OPENOUT ""+n$ natürlich nicht 
geändert wird, akzeptiert der Computer 
nun das Kommando. 

Ein weiterer Fehler wird Ihnen auffal- 
len, wenn Sie des öfteren mit RENUM 
arbeiten, um sich Platz für neue Zeilen 
zu schaffen. RENUM renumeriert »fast 
alles«. Eine Zeilenangabe läßt der 
Befehl jedoch aus - die Zeilenangabe 
bei CHAIN MERGE. Mit diesem Kom- 
mando ist es möglich, ein Programm zu 
einem aktuellen Programm hinzuzula- 
den. Das neue Programm fügt sich 
dabei nahtlos in das alte ein. Zeilen mit 
gleicher Zeilennummer werden über- 
schrieben. Durch eine nachfolgende 
Zeilenangabe kann man dabei den CPC 
anweisen, nach dem Ladevorgang das: 
neuentstandene Programm ab einer 
beliebigen Stelle aufzurufen. Das For- 
mat lautet dabei: 

CHAIN MERGE ”Dateiname”, <Zeile> 

Diese nachgestellte Zeilenangabe 
verändert RENUM nicht. Wenn Sie also 
ein Gesamtprogramm mit CHAIN 
MERGE aus mehreren Teilen zusam- 
mensetzen wollen, so müssen Sie die 
Startadresse gegebenenfalls von Hand 
anpassen. (Carsten Straush/hg) 


KOM FUTER 


un soll aber nicht nur das Pro- 
grammieren auf den Schnei- 
der-Computern gezeigt wer- 
sondern am Ende wollen wir auch 
er ein lauffähiges, praktisches Pro- 
im verfügen. Das Listing »Band- 
jei« ist ein Hilfsprogramm, das Ord- 
g in den Band- beziehungsweise 
tensalat bringt. Wenn Sie nur 
464 ohne Diskettenstation besit- 
, kennen Sie das Problem sicher- 
. Aber auch die Eigentümer der 
Soppy-bestückten großen Brüder wer- 
es im Laufe der Zeit - mit zuneh- 
dem Diskettenbestand - kennen- 
en. Der Anlaß zu diesem Programm 
ein bemerkenswertes Computerge- 
tz: Eine Dateiistimmer gerade da, wo 
sie nicht vermutet. Also sucht man 
duldig auf seinen Bändern und Dis- 
ten hin und her, und manchmalfindet 
das Gesuchte dann auch. Man 
sich hier natürlich mit beigelegten 
telchen oder Aufklebern etc. helfen. 
diese sind oft nicht mehr »up to 
®«, weil die Diskette schon dreimal 
federverwendet worden ist. Beipack- 
tel haben dagegen die Eigenschaft, 
janent zu verschwinden. Was fehlt, 
eine Art Katalogisierungsprogramm, 
s alle Bänder und Disketten enthält. 
enn man ein bestimmtes Programm 
cht, muß man nur noch seinen 
jen eingeben und schon erhält man 
Bandnummer und den Zählwerk- 
id, wo sich dieser Titel befindet, auf 
Bildschirm. Zu schön um wahr zu 
än? Nein, wir müssen nur ein wenig 
jrammierarbeit leisten, um dieses 
zu erreichen. 
Machen wir uns zunächst ein paar 
ken darüber, was ein solches 
jramm eigentlich alles ausführen 
Vor allem benötigen wir ein umfang- 
ches Inhaltsverzeichnis. Für jedes 
d, beziehungsweise jede Diskette, 
an dabei die einzelnen gespeicher- 
Dateien abrufbar sein. Nun können 
aus Platzgründen nicht den Inhalt 
abgespeicherten Bänder gleich- 
9 auf den Bildschirm bringen. Wir 
schränken uns also am besten auf 
Inhalt eines Bandes. Um etwas 
ing in unsere Dateien zu bekom- 
überlegen wir uns die benötigten 
en und deren maximale Größe und 
. Das beste Programm nützt 
h wenig, wenn am Schluß Pro- 
e mit dem Speicherplatz auftreten. 
Berdem kann der Schneider keine 
dlich großen Datenfelder verwal- 
Er braucht eine Maximalangabe 
er deren Größe, die sogenannte 
nsionierung. 
erste Größe kennen wir bereits 


Jedes Programm in diesem Son- 
derheft enthält eine Programm- 
beschreibung. Für den Einstei- 
ger bleiben aber trotzdem oft 
noch Fragen offen. Deshalb 
erklären wir Ihnen hier ein 
Listing Befehl für Befehl. 


schon, die maximale Zahl der Bänder, 
die erfaßt werden soll. Die nächste 
Dimensionierung betrifft die einzelnen 
Programmtitel. Hier gehen wir von 20 
zu katalogisierenden Bändern mit je 
maximal 15 Titeln aus. Für deren Ablage 
bietet sich bei der Basic-Programmie- 
rung ein zweidimensionales Datenfeld, 
ein sogenanntes Array an. Bezeichnen 
wir es mit n$. Die erste Dimension, also 
der erste Index, soll dabei die Nummer 
des Bandes sein. Index Nummer 2 ist 
die Nummer des Programms auf dem 
Datenträger. n$(1,3) bezeichnet damit 
das dritte Programm auf Band Nummer 
1, n$(3,4) bezeichnet die vierte Datei 
auf Band Nummer 3. Die einzelnen Ele- 
mente unseres Datenfeldes sind einfa- 
che Strings, die die verschiedenen Pro- 
grammtitel enthalten sollen. 


Felder der 
Dimension 300 
haben 336 Elemente 


Nun wissen Sie sicher, daß, wenn wir 
ein Feld auf 20-15 dimensionieren, 
dieses aus 21 +16 Elementen besteht, 
denn der Schneider rechnet ab Null. 
n$(Bandnummer,i) bis n$(Bandnum- 
mer,15) enthalten die Programmtitel. 
n$(Bandnummer,O) bleibt damit aber 
noch frei. Da wir aber beabsichtigen, 
noch einen weiteren String je Band 
abzuspeichern - irgendwo soll ja 
schließlich auch noch der Name des 
Bandes zu finden sein - kommt uns dies 
ganz gelegen. Der Bandname wird je- 
weils in n$(Bandnummer,O) abgelegt. 

Nun fehlt noch der Zählwerkstand, 
der auch wichtig ist, um einen gezielten 
Zugriff auf ein Band zu ermöglichen. 
Dazu benötigen wir noch ein ebenso 
großes numerisches Array, das für 
jedes Programm den Zählwerkstand 
aufnimmt. Es trägt die Bezeichnung n. 
Wieder bleibt der Nullindex unbelegt. 
Und auch hier erhält er einen neuen 
Sinn: Er beinhaltet die Anzahl der auf 
einem Band befindlichen Programme. 

Der Datenrahmen ist nun festgelegt. 
Bevor wir uns jedoch nun direkt auf das 
Listing stürzen, kurz noch ein paar 
Bemerkungen zu den einzelnen Funk- 
tionen. Das Programm »Band-Kartei« 


Basic — Stück für Stück 


stellt im wesentlichen eine Art komfor- 
tables Inhaltsverzeichnis dar. Dabei 
erscheint jeweils der Inhalt eines Ban- 
des auf dem Schirm. Da wir aber natür- 
lich viele Bänder abspeichern wollen - 
sonst hat das Ganze ja gar keinen Sinn! 
- müssen wir einige Funktionen ein- 
bauen, die uns das Umschalten zwi- 
schen den einzelnen Bändern ermögli- 
chen. Dabei müssen wir sowohl in den 
Datensätzen blättern, also auch die 
nachfolgenden Programm-Inhaltsver- 
zeichnisse ausgeben lassen, als auch 
gezielt nach einem Programm oder 
einem Band suchen. Außerdem brau- 
chen wir natürlich Prozeduren, die uns 
das Löschen, Einfügen oder Ändern 
eines Programmtitels oder Bandes 
gestatten. 

Das Programm ist nach einem Menü- 
system aufgebaut. Die einzelnen Pro- 
grammfunktionen bilden dabei eine Art 
Kreisverkehr. Wenn wir beispielsweise 
eine Datei laden wollen, so geschieht 
dies mit der Funktion Nummer 1 »Datei 
einlesen«. Aufgerufen wird sie aus dem 
Auswahlmenü ab Zeile 250. Das Pro- 
gramm verzweigt jeweils mit GOSUB in 
die entsprechende Unterroutine. Der 
Menüunterpunkt »Verlassen« führt in 
die jeweils übergeordnete Ebene 
zurück. Der Punkt »Verlassen« im 
Hauptmenü veranlaßt einen Programm- 
abbruch. 

Gehen wir nun einmal das Programm 
Zeile für Zeile durch. Die einzelnen 
Unterpunkte sind dabei anhand der 
kommentierenden REM-Anweisungen 
gut erkenntlich. Den Anfang bildet ein 
Initialisierungsteil. Hier werden die Far- 
ben festgelegt. Die Farbregister 0 bis 3 
enthalten die gewünschten Werte 
(schwarz, rot, gelb und mittelblau). In 
Zeile 50 erfolgt das Umschalten auf 
den Modus O (dies sorgt für eine bes- 
sere Wirkung der nachfolgenden Titel- 
ausgabe) und die Ladegeschwindigkeit 
1 wird festgelegt. Die folgenden Zeilen 
geben den Titel aus. Die Sternchen 
bewirkt dabei das PEN-Kommando mit 
INK 3, also rot. Interessant ist hier noch 
in Zeile 100 die Farbumschaltung inner- 
halb einer Bildschirmzeile. Das »;« nach 
dem ersten PRINT-Kommando sorgt 
dafür, daß der Cursor an der letzten 
Position stehen bleibt. Dann wird mit 
PEN 1 gelb gewählt, der Titel ausgege- 
ben und dann nach demselben Prinzip 
wieder zurückgeschaltet. Die vielen 
PRINT-Kommandos in den Zeilen 60 
und 140 bewirken dabei nichtsanderes 
als einen einfachen Zeilenvorschub. 
Der Cursor bewegt sich also auf die 
nächste Zeile. Die Zeilen 150-190 stel- 
len eine einfache Warteschleife dar. 


Angewandt wurde hier der Befehl 
WHILE/WEND. Solange die nach dem 
WHILE stehende Bedingung erfüllt ist, 
arbeitet der Schneider bei jedem 
WEND in der nach dem WHILE- 
Kommando stehende Zeile weiter. Als 
Bedingung ist i<2000 vorgegeben, 
das heißt bei jedem Schleifendurchlauf 
wird i jeweils um 1 erhöht, bis 2000 
erreicht ist (Zeile 180). Spätestens 
nach 2000 Durchgängen erfolgt also 
kein Rücksprung mehr und es geht in 
Zeile 200 weiter. Es gibt allerdings 
auch noch eine andere Abbruchbedin- 
gung. Wenn Sie nämlich eine beliebige 
Taste drücken, wird durch den INKEY- 
Befehl in Zeile 160 z$ mit dem Tasten- 
wert belegt und es erfolgt direkt aus 
Zeile 170 ein Aufruf von Zeile 200. 
Dann dauert es nicht mehr so lange, bis 
es im Programmtext weitergeht. Die 
Zeitverzögerung hat übrigens den Sinn, 
Ihnen Zeit zu geben, den Bildschirmin- 
halt gründlich zu studieren. Im nachfol- 
genden Teil wird nun durch MODE 1 
und die Definition von drei Bildschirm- 
fenstern der Bildschirm gelöscht und 
völlig umgebaut. Ohne diese Zeitverzö- 
gerung wäre vom Titel nur ein kurzes 
Aufblitzen zu sehen. 


Top-Window 
ist top 


Der Rest unseres Programms arbei- 
tet mit der neuen Bildschirmgestaltung. 
Drei Zeilen als Top-Window dienen 
dazu, Überschriften aufzunehmen. Im 
unteren Teildes Schirms wurden analog 
dazu drei Zeilen für die Eingabe reser- 
viert (WINDOW #2). Der Hauptbild- 
schirm (WINDOW #0) ist damit auf die 
mittleren 19 Zeilen beschränkt. Nach- 
dem den einzelnen Bildschirmfenstern 
in Zelle 230 und 240 die Werte für 
Schrift- und Hintergrundfarbe zugeord- 
net wurden, geht es ins Auswahlmenü. 
Zunächst werden durch die CLS- 
Befehle die drei Bildschirmfenster 
gelöscht. Danach folgt die Ausgabe des 
Titels in der Mitte von Fenster 1. 
Anschließend erscheinen in der Mitte 
des Hauptbildschirms die einzelnen 
Routinen. Zeile 350 prüft, welche Wahl 
der Benutzer getroffen hat. Die Tasta- 
turabfrage erfolgt mit INKEY$ und es 
wird festgestellt, ob überhaupt eine 
Taste gedrückt wurde. Ist dies nicht der 
Fall (2$=" "), geht es direkt zurück an 
den Zeilenanfang. Dieses Spielchen 
wiederholt sich so lange, bis eine Taste 
betätigt wird. Dann überprüft ASC, ob 
eine gültige Zahl eingegeben wurde. 
Die vorherige Abfrage auf ” ” ist dabei 
unbedingt notwendig. Die ASC-Funk- 
tion verkraftet nämlich keinen Leer- 
string. PRINT ASC(””) hat einen 
IMPROPER ARGUMENT-Fehler zur 
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Folge. Nachdem die Eingabe auf Stim- 
migkeit überprüft wurde, wird in Abhän- 
gigkeit vom eingegebenen Wert zu 
einem der verschiedenen Unterpro- 
gramme verzweigt. Zeile 360 mit den 
verschiedenen GOSUB-Anweisungen 
bewirkt in unserem Lernprogramm die 
entsprechenden Verzweigungen. 

Das erste Programm, auf das wir hier- 
beitreffen, ist die Datei-Leseroutine. Sie 
beginnt bei Zeile 410. Ihr Ablauf ist 
schnell erklärt. Nach Ausgabe des 
Funktionstitels in Zeile 410 wird eine 
Datei zum Lesen geöffnet und dann als 
erstes die Variable md eingelesen. md 
steht für »maximale daten« und ent- 
spricht der Anzahl derabgespeicherten 
Bänder. Es wäre ja unsinnig, bei bei- 
spielsweise fünf erfaßten Datenträgern 
die Maximalzahl von 20 Dateien wegzu- 
schreiben. In einer doppelten Schleife 
werden dann alle benötigten Daten ein- 
gelesen. i läuft dabei von O bis md, also 
über alle Bänder. Zunächst werden 
dabei in Zeile 440 der Name des Ban- 
des und die Anzahl der abgespeicher- 
ten Titel auf diesem Band abgefragt. 
Danach folgt die j-Schleife, wobei j von 
1 bis n(i,0), also wieder über alle Titel, 
läuft. Damit werden für jedes Band (i) 
alle Titel (j) eingelesen. Zwei NEXT- 
Befehle schließen diese Schleife ab. 
Die Lesedatei beendet CLOSEIN (dies 
ist unbedingt notwendig, damit man 
beim nächsten Laden keine Probleme 
bekommt), und es geht zurück ins 
Hauptmenü. Wenn Ihnen in diesem Pro- 
grammteil noch irgend etwas unklar ist, 
so erhöhen Sie einmal die Schleifen- 
werte für i und j nacheinander und 
schauensich an, was das zur Folge hat. 

Die nächste Routine benötigt keiner- 
lei Erklärungen, da sie ein Pendant der 
ersten darstellt. Sie haben nur in der 
oben beschriebenen Leseroutine alle 
INPUTSs durch PRINT zu ersetzen und 
schon ist auch der Schreibteilfertig. Die 
Funktionsweise verläuft damit analog 
der ersten, nur in der umgekehrten 
Richtung. 

Nun kommen wir zu einem etwas 
größeren Programmteil - der Druckaus- 
gabe. Diese hält drei Routinen bereit. 
Man kann alle verfügbaren Bänder oder 
Programme ausdrucken, beispiels- 
weise um eine Übersicht zu erhalten 
oder ein spezielles Band herauszugrei- 
fen. Den dazu benutzten Auswahlme- 
chanismus kennen Sie bereits. Nach 
der Ausgabe des Funktionskopfes wird 
in einer INKEY$-Schleife (Zeile 680) 
die gewünschte Funktion festgestellt. 
»3« führt zurück ins Hauptmenü, Werte 
ungleich »1« und »2« zurück an den Zei- 
lenanfang. Nun fällt die Entscheidung 
zwischen der Gesamtausgabe und 
dem Einzelbandausdruck an. Ab Zeile 
700 sehen Sie die Funktionsweise, 
Zuerst kommt die Variante Gesamtaus- 


druck an die Reihe. Es wird die Auffor- 
derung zum Einschalten des Drucker 
ausgegeben und dann mit einer WHII 
WEND-Schleife die Bestätigung abg. 
wartet. Diese einfachste Kontroll-Abfi 
ge mit WHILE/WEND ist sehr kurz ui 
komfortabel. 


Es folgt der eigentliche Druckteil, di 
Sie vielleicht ein wenig an den Teil zı 
Datenspeicherung beziehungswei: 
zum -lesen erinnert. Das Ausgabeprin- 
zip geht weitgehend identisch vor sich. 
Mit Hilfe der schon bekannten ij 
Doppelschleife werden zuerst (in Zeile‘ 
730) der Bandtitel und die Anzahl dı 
abgespeicherten Programme ausgege- 
ben, dann mittels j die auf diesem Band 
abgespeicherten Programme. Viel- 
leicht wundern Sie sich bei dieser Pro- 
zedur, warum alle Ausgaben mit‘ 
PRINT#d getätigt werden. Dies hal 
einen einfachen Grund. d wird in Zeile 
680 auf 8 gesetzt und lenkt damit den‘ 
Ausdruck normalerweise auf das Gerät 
Nummer 8, den Drucker. Wenn Sie aber 
in dieser Zeile d=O setzen, wird die 
Ausgabe auf den Hauptbildschirm 
umgeleitet. Sie brauchen beim Experi- 
mentieren und bei den ersten Laufver- 
suchen mit diesem Programm dann! 
nicht immer den Drucker einzuschalten 
und meterweise Papier bedrucken. 
Zeile 780 führt zurück ins Hauptmenü 
und beendet den Teil Gesamtausdruck. 

Die folgenden Zeilen dienen dem 
gezielten Einzelausdruck. Zuerst muß 
der Computer wissen, was er über- 
haupt drucken soll. Dazu wird zunächst 
in Zeile 790 der Name des betreffen- 
den Bandes, dessen Inhalt wir erfahren 
wollen, abgefragt. Es folgt eine kleine 
Suchroutine. Dabei wird Band für Band 
(über alle i von O bis md) überprüft, ob 
der eingegebene Name mit dem 
gespeicherten Bandtitel überein- 
stimmt. Da der CPC zwischen Groß- 
und Kleinschreibung unterscheidet, 
sind dabei sowohl der Suchbegriff als 
auch die zu vergleichenden Bandtitel in 
Kleinschrift zu konvertieren. Dazu die- 
nen die LOWERS$-Befehle in Zeile 790 
und 810, wobei in der letztgenannten 
Zeile auch der eigentliche Vergleich 
stattfindet. Solange dieser negativ aus- 
fällt, wird der nächste Bandtitel unter- 
sucht. Es gibt damit nun zwei Möglich- 
keiten, um nach Zeile 820 zu gelangen. ' 
Möglichkeit 1, es hat keine Überein- 
stimmung stattgefunden. In diesem Fall 
wird die FOR-NEXT-Schleife bis zum 
Ende abgearbeitet. Im zweiten Fall 
wurde Gleichheit festgestellt. Jetzt war 
die Ungleichheitsbedingung in Zeile 
810 nicht mehr erfüllt und deshalb 
erfolgte auch kein NEXT mehr. Die 


Schleife wurde also nicht vollständig 
bgearbeitet. 
Wir können nun den Zustand der 
Schleifenvariablen i benutzen, um zwi- 
chen den beiden Möglichkeiten zu 
heiden. Nach Ausführung einer 
FOR-TO-Schleife weist die Schleifenva- 
ble - in unserem Fall also i- einen um 
STEP-Wert höheren Inhalt als die 
Schleifengrenze auf. Da wir kein STEP 
pezifiziert haben, i sich also in Schrit- 
zu 1 erhöht, hatiin diesem Fall den 
ert md+1, ist also größer als md. Wir 
inen daher mit einer Abfrage wie in 
e 820 feststellen, ob die Schleife 
eits bis zum letzten NEXT bearbeitet 
de. Dann wird eine Negativmeldung 
sgegeben und nach einer Zeitverzö- 
ing ins Hauptmenü zurückgekehrt. 
sonsten enthält i die Nummer des 
suchten Bandes in der Datei. Die 
sgabe des Bandtitels und der einzel- 
Programmnamen geschehen dann 
bei der Gesamtdruckvariante mit 
e einer einfachen Schleife. Von 
sonderer Bedeutung ist in diesem 
sammenhang nur noch die Formatie- 
g des Ausgabestrings in den Zeilen 
50 und 870. Es sollen die Programm- 
mer, der Programmname und der 
gehörige Zählerstand ausgegeben 
den. Dazu benutzen wir die Funk- 
DEC$, die einen formatierten 
ig aus einer Zahl erzeugt und die 
'$-Funktion, die die Länge des 
szugebenden Titels auf 22 Zeichen 
schränkt. Hierzu noch eine Beson- 
eit: Der DEC$-Befehl wird auf- 
ıd eines Betriebssystemfehlers 
CPC 464 nicht richtig bearbeitet. 
muß daher bei diesem Computer- 
D zwei Klammern öffnen, damit diese 
Funktion läuft. So ist DEC$ dann auch 
Listing abgedruckt. Wenn Sie das 
ogramm also auf einem 664 oder 
28 laufen lassen, müssen Sie die 
eite Öffnungsklammer streichen. Bei 
sen Computern wurde der Betriebs- 
stem-Fehler behoben. 
Mit der Druckroutine haben wir jetzt 
Nebenprogramme abgeschlossen 
d kommen zum eigentlichen Kern 
eres Programms, den Datenbear- 
tungsroutinen. Aus dem Hauptmenü 
den all diese Funktionen mit der 
imer 3 aufgerufen. Da dies eine 
e Reihe ist, machte ein ganzes 
es Menü mit Unterfunktionen erfor- 
lich. Sie finden es ab der Zeile 630 
Listing. Alle Unterroutinen, mit 
ıen wir uns nun beschäftigen, keh- 
zuerst einmal in dieses Menü 
ück. Nur die Funktion 4 (Verlassen) 
zum eigentlichen Hauptmenü. 
Ab Zeile 930 steht zunächst einmal 
@ Ausgabe des Funktionstitels und 
aktuellen Bandes auf dem Pro- 
im. Zeile 940 gibt dazu die Datei- 
er und die Anzahl der in ihr enthal- 


tenen Programmtitel aus, sowie den 
Dateinamen. Wichtig ist dabei die Varia- 
ble ak. Sie enthält die Nummer des Ban- 
des, mit dem momentan (aktuell) gear- 
beitet wird. Dementsprechend findet 
sich unter n$(ak,0) der Bandname, 
unter n(ak,O) die Anzahl der abgespei- 
cherten Titel und so weiter. Nach der 
Titelausgabe wird das Inhaltsverzeich- 
nis des aktuellen Bandes in einer 
Schleife ausgegeben (Zeile 960-990). 
Die Formatierung entspricht dabei der 
Druckroutinee Nachdem wir das 
gesamte Inhaltsverzeichnis auf dem 
Schirm haben, präsentiert Zeile 1000 
das Menü. Die Abfragetechnik ist auch 
schon vom Hauptprogramm her 
bekannt: INKEY$-Schleife mit nachfol- 
gendem »GOSUB-Sprungverteiler«. 
Zeile 1030 gibt nach der Rückkehr aus 
einem beliebigen Unterprogramm wie- 
der an den Titelteil zurück. Das stellt 
sicher, daß, falls in einem Unterpro- 
gramm ein neues Band gewählt oder die 
alte Bildschirmausgabe zerstört wurde, 
diese vor jeder weiteren Abfrage erst 
einmal wieder restauriert beziehungs- 
weise neu ausgegeben wird. 


Suchen im 
»Untergrund« 


Ab Zeile 1070 stoßen wir auf ein 
Unterprogramm. Es enthält zwei Routi- 
nen, zum Suchen nach einem bestimm- 


ten Bandnamen beziehungsweise 
einem bestimmten Programmititel. 
Diese beiden Auswahlvarianten 


erscheinen zunächst in Fenster Num- 
mer 2 durch Zeile 1070. Nachdem der 
Benutzer sich entschieden hat (Zeile 
1080), wird der Name abgefragt und, 
nachdem er in Kleinbuchstaben kon- 
vertiert wurde, in n$ abgelegt. Je nach 
Suchmodus geht es dann in Zeile 1110 
oder 1140 weiter. Den ersten Teil, die 
Suche nach dem Bandnamen, kennen 
wir bereits von der Druckroutine her. Ab 
1140 sehen Sie dann, wie die Suche 
nach einem Programmtitel abläuft. Wir 
arbeiten wieder mit einer Doppel- 
schleife, die über alle Bänder und Pro- 
gramme läuft. Jeder Programmtitel wird 
dabei mit dem Suchbegriff verglichen. 
Bei einer Übereinstimmung wird dabei 
ak auf den Schleifenwert i gesetzt. 
Dadurch erhält man nach der Rückkehr 
ins Menü »Daten bearbeiten« nun die 
Datei, die den Suchbegriff enthält, aus- 
gegeben (Zeile 1160). Ansonsten führt 
eine Fehler-Meldung ohne Änderung 
von ak zurück (Zeile 1180). Durch 
Drücken von »2« im Menü »Daten bear- 
beiten« gelangt man in die Subroutine 
Blättern. Sie dient dazu, ohne Vorgabe 
von Bandnamen im Inhaltsverzeichnis 
herumzustöbern. Beim Vorwärts- 


Blättern wird das Band mit der Nummer 


ak+1, beim Rückwärts-Blättern das mit 
der Nummer ak-1 gezeigt. Bedingung 
dafür ist natürlich, daß die beschriebe- 
nen Bänder überhaupt existieren. 

Im Grunde müßten wir zu dieser 
Funktion lediglich ak ändern, da die 
komplette Darstellung bereits durch 
das Untermenü erfolgt. Dies hätte 
jedoch einen Nachteil im Hinblick auf 
die Bedienerfreundlichkeit. Will man 
sich einen Eindruck über den aktuellen 
Programmbestand verschaffen, so 
erfordert das normalerweise, einige 
Bänder zu durchblättern. Bei einer 
direkten Rückkehr ins Untermenü 
»Daten bearbeiten« müßte bei jedem 
weiteren Blättern zuerst wieder die 
Unterfunktion »Blätterne aufgerufen 
werden, bevor man dann mit »vorwärts« 
oder »rückwärts« die Bewegungsrich- 
tung festlegt. Deshalb beinhalten die 
Zeilen 1280 bis 1310 die Darstellungs- 
routine aus dem Untermenü noch ein- 
mal. Nachdem in den Zeilen 1260 und 
1270 das neue ak bestimmt wurde, 
geben diese Zeilen das zugehörige 
Inhaltsverzeichnis aus. Danach geht es 
wieder zurück nach Zeile 1220. 

Das nächste Unterprogramm dient 
zur Änderung des Bandinhaltes einer 
bereits erfaßten Datei. Diese Funktion 
macht esmöglich, ein neu erfaßtes Pro- 
gramm, das man überschrieben hat, zu 
löschen. Entsprechend zu diesen Auf- 
gaben gibt es auch einzelne Unterfunk- 
tionen. Man erreicht sie aus dem Unter- 
programm »Ändern« über den Sprung- 
verteiler in Zeile 1380. Die erste Funk- 
tion ist dabei das Löschen eines 
Eintrages. Zunächst wird gefragt (in 
Zeile 1430), welche Zeile des Inhalts- 
verzeichnisses gelöscht werden soll. 
Die Folgezeile überprüft, ob die ange- 
gebene Zahl überhaupt einen erlaubten 
Wert darstellt. Falls eine nicht existie- 
rende Zeilennummer gewählt wurde, so. 
protestiert der CPC und kehrt ins aufru- 
fende Programm zurück. Ansonsten 
aber beginnt ein munteres Verschiebe- 
spiel. Wenn wir eine Zeile löschen wol- 
len, so geschieht dies, indem wir alle 
höherliegenden Programmtitel dieses 
Bandes um eine Position im Speicher 
nach unten verschieben. Der zu 
löschende Eintrag wird dadurch über- 
schrieben. Nun müssen wir dafür sor- 
gen, daß der Speicherplatz, an dem 
sich der oberste Programmtitel befand, 
gelöscht - so spart man Speicherplatz 
- und die Anzahl der Programmtitel 
(n(ak,0)) um 1 vermindert wird. Zeile, 
1450 sorgt für diese Verschiebung. 
1460 setzt die Werte richtig, bevor man 
wieder in das Untermenü zurückge- 
langt. 

Unter der Bezeichnung »Einfügen« 
finden Sie ab Zeile 1500 die Umkeh- 
rung der gerade beschriebenen Funk- 
tion. Zuerst muß dabei geprüft werden, 


43 


m 


— 


ob noch Speicherplatz zur Verfügung 
steht. Die Maximalzahl von 15 Titeln 
darf also noch nicht überschritten sein. 
Dies übernimmt Zeile 1510. Wenn die 
Datei noch nicht voll belegt ist, wird 
festgestellt, ab welchem Titel die Einfü- 
‚gung stattfinden soll. 

Nun gibt es zwei Arten. Zum einen 
kann es sein, daß hiereine Nummer ein- 
gegeben wurde, die höher als die bishe- 
rige Höchstgrenze liegt. Das kommt 
vor, wenn beispielsweise ein Programm 
angehängt wurde. In diesem Fall wer- 
den einfach der neue Programmtitel 
und der zugehörige Zählwerkstand 
abgefragt und in die ausgewählte Zeile 
eingetragen (Programmzeile 1550). 
‚Sonst erfolgt mit einer Schiebeschleife 
die Umordnung aller Titel mit höherer 
Zeilennummer (Zeile 1560), bevor 
dann auch hier Titel und Zählerstand 
eingelesen werden. In beiden Fällen ist 
dann aber immer noch die Gesamtzahl 
der abgespeicherten Programme zu 
ändern. Dazu erhöht sich n(ak,0) um 1 
(Zeile 1580). 

Nun kann es vorkommen, daß man 
nur den Inhalt einer Zeile ändern will, 
ohne daß dabei gleich auch noch eine 
Verschiebung stattfinden muß. Der ein- 
fachste Fall ist ein Fehler bei der Eintra- 
gung, der korrigiert werden soll. Das 
Programm verfährt dann folgenderma- 
Ben: Die Zeile 1590 fragt die Register, 
in denen etwas geändert werden soll, 
ab. Danach wird in 1610 überprüft, ob 
überhaupt ein Eintrag vorhanden ist. 
Bei positiver Meldung erfolgen dann in 


den Zeilen 1620 und 1630 die notwen- 
digen Änderungen. 

Ein weiterer Programmpunktim Menü 
ist die Funktion »Neuer Dateiname«. 
Hiermit kann man die Bezeichnung 
eines Bandes ändern. Bei Bedarf ist es 
auch möglich, alle alten Dateieinträge 
zu löschen. Eine einfache Lösch- 
schleife (Zeile 1710) leistet dies. Sie 
schließt auch die Beschreibung des 
Unterprogrammpunktes »Ändern« ab. 


Ändern auf einen 
Schlag 


Lästig ist es immer, mit Einzelfunktio- 
nen wie »Ändern« oder »Einfügen«, 
arbeiten zu müssen. Daher existiert im 
Hauptmenü noch der Unterpunkt 4. Er 
ermöglicht es, quasi im Schnelldurch- 
gang, ein ganzes Bandinhaltsverzeich- 
nis auf einen Schlag einzugeben. Ab 
Zeile 1760 sehen Sie, wie Ihr Schnei- 
der dabei vorgehen muß. In Zeile 1780 
erhöht sich die Gesamtzahl der gespei- 
cherten Bänder um 1. Voraussetzung 
dazu ist allerdings, daß noch Speicher- 
platz verfügbar ist, was aber Zeile 1770 
überprüft. Danach wird die Nummer der 
aktuellen Datei (ak) mit der neuen Ober- 
grenze gleichgesetzt. Dateiname sowie 
Anzahl und Titel der verschiedenen 
Dateien mitihren Zählwerkständen wer- 
den abgefragt, ohne daß zwischen- 
durch jeweils eine Rückkehr ins Haupt- 
menü stattfindet. 


Den Schluß unseres Programms bil- 
deteine Ende-Routine. Es stellt sich die 
Frage, wozu ein solcher Programmteil 
notwendig ist. Ein einfaches END tut es 
doch auch! Stellen Sie sich aber einmal 
vor, was passiert, wenn Sie ohne es zu 
wollen, im Hauptmenü einfach einmal 
auf 6 tippen. Und wenn sich Ihr Schnei- 
der dann »verabschiedet«e und Ihre 
gerade erst neu erfaßte Datei unwieder- 
bringlich verloren ist, dann wissen Sie, 
wozu diese Kontroll-Routine dient. Ein 
vernünftiges Programm sollte alle mög- 
lichen Eingabefehler durch solche Kon- 
trollen abfangen, damit der Benutzer 
nie in die Situation kommt, nicht mehr 
weiterarbeiten zu können. 

Soweit die Erläuterungen zu dem 
Programm »Band-Kartei«. Es wird Ihnen 
sicher gute Dienste leisten und für Ord- 
nung sorgen. 

Ein Punkt sei aber noch erwähnt. Das 
gerade beschriebene Programm ist 
bewußt allgemein gehalten. Es bietet 
sich also an, es auch für andere Daten- 
verwaltungszwecke zu benutzen. Mit 
den dazu notwendigen Änderungen 
haben Sie nach dieser ausführlichen 
Beschreibung wohl auch keine Pro- 
bleme mehr. Dafür sorgen auch die 
Parameter md und ak. So sollten Sie 
keine Schwierigkeiten haben, aus der 
Band-Kartei ein Speicherprogramm für 
Dias oder Musikkassetten zu formen. 
Hier und bei allen anderen Erweiterun- 
gen sind Sie nun selbst gefordert. 


(Carsten Straush/hl) 


18 REM nenn EZB SR BRINTAERINT 9 SPACEIPRORRAM BEENDE ] 
2@ REM ** Initialisierung == L423C1 3 SPACE? ( 114981 
IQ REM auunnuunnnenerueerene IrEr2I | 350 SSSInkevs:ir z6="" THEN 350 ELSE IF 
3® INK 0,8 : BORDER @ : INK 1,24: INK 2, ASC(Z$)<49 OR ASC(Z$) >55 THEN 358 132461 
il: INK 3,6 tsscC1 | 36@ ON VAL(Z$) GOSUB 410,540,938,1768,66 
5@ MODE @:SPEED WRITE 1 EDD423 8,1738 c@18A1 
&8 PRINT:PRINT:PRINT 156421 | 378 süTo 280 ECaSAJ 
7@ PEN 3 [16547AJ 380 REM ran [8DBEI 
BO PRINT" mens (1B42] | 39@ REM ** Datei einlesen #* 179041 
90 PRINT" *{15 SPACEI*" [21501 | 200 REM een [5E88] 
188 PRINT" *"j:PEN 1:PRINT" BAND - KARTE 41® CLS:CLS#1:PRINT#1:PRINT#1,"(7 SPACE} 
1 "32PEN 3: PRINT"«" 179841 Funktion Datei laden" :OPENIN"Bandinh 
11® PRINT" *{15 SPACEI«" LAFAEI alt" 155841 
12@ PRINT" wrnnenneeeee [83981 | 428 INPUT#9,nd ECCSEI 
138 PEN 2 [3602] | 438 FOR i= & TO md [8581 
14@ PRINT:PRINT:PRINT:PRINT"von Carsten 448 INPUT#9,n$(i „@) z INPUT#9,n (i,@) [9C9C3 
Straush t748C1 | 45@ FOR 5-1 TO nli,@ CASFEI 
15@ WHILE i<22a8 ECB&CI = INPUT#9,n ti ,5) LAF883 
168 z$=INKEY$ L4864C1 [728C3 
17@ IF z$<>"" THEN 200 t@4881 cDB921 
180 i=i+l 103481 L46EE1 
190 WEND 142081 CCEZAI 
208 DEFINT n [68F4] 51@ REM war L[7FBO]J 
21@ DIN n# (20.20) :DIM n(28,2@) [51061 | 52@ REM ** Datei sichern ** 3C2C3 
220 MODE 1:WINDOW#1,1,48 53B REM auunnnnnennnene EB9B41 
48,4, SEtnTNDOnE>, 1% 54® CLS:CLS#1:PRINT#1:PRINT#1,"{8 SPACE} 
230 PEN] ‚1: PENRG,2: PEN#2 EF&CCI Funktion Datei sichern" :OPENOUT"Band 
Ba PAPERbI. S:PRPERHB,D: PAPERH2,0 EDF4AI inhalt“ [51SE] 
250 REM werke CACSEI | 558 PRINT#F md [65481 
260 REM #* Auswahlmenue #* [18026] | 568 FOR i= & TO [B4D8] 
270 REM xunnnunnunnununeee [3821 | 578 PRInTRgEn 0118) sprınes, ndi,® [31981 
280 CLS:CLS#13CL5#2:PRINT#1:PRINTE1,"t13 58® FOR j=1'TO nli,® [79861 
SPACE) Auswahl menue" LFB641 | 598 PRINT#9,n$ (1,3): PRINT#9,n(i,3) 15484] 
298 PRINT:PRINT:PRINT"(9 SPACEIDATEI EIN &0@ NEXT_j:NEXT i 2502 
LESEN(5 SPACEI (1) * tSEscı | 618 CLOSEOUT EABAA1 
3@@ PRINT=PRINT" (7 SPACEIDATEI SICHERN{& 62@ RETURN LAFS@] 
SPACE) (2) “ LBAB2] | 630 REM wre [C462] 
31@ PRINT:PRINT"(9 SPACEIDATEN BEARBEITE 648 REM #* Druckausgabe #* [DCEEI 
N{3 SPACE) (3)* tcB5A3 
32@ PRINT:PRINT”(7 SPACEIDATEI EINGEBEN( 
5 SPACE) (4) 135AC1 
33@ PRINT:PRINT"{9 SPACEIDATEN DRUCKEN{& 
25)" ECF981 Listing. »Band-Kartei«, ein durchschaubares Programm 


KOMPUTER) 


650 REM auunnnnnnnnannnner 

668 d=8:CLS:CLS#1:PRINT#1:PRINT#1,"{7 SP 
ACE+Funktion Datei drucken" 

678 PRINT: PRINT"Gesamtausdruck (1)":PRIN 
T:PRINT"Einzelnes Band (2) ":PRINT:PR 
INT"Verlassen{& SPACE} (3) 

680 z$=INKEY$: IF z$="3" THEN RETURN ELSE 

IF z$C>"1" AND z$<>"2" THEN 688 

690 IF z$="2" THEN 790 

7@@ PRINT:PRINT"Bitte Drucker einschalte 
n!"zPRINT"Dann tendruck!" 

710 WHILE INKEY$="":WEND 

72® FOR i=1 TO md 

730 PRINT#d: PRINT#d:PRINTAd .n$ (i,@)+"{2 
SPACE} "+STR$(n(i,@))+" Programm(e)" 

748 PRINTAd 

75@ FOR j=1 TO n(i,@ 

760 z$=DEC$ ((j,"##")+LEFTS("C2 SPACE) 
$ti 3) +SPACE$ (2@) „22) +DEC$(ntiyj)s 
#an") PRINTAG,zE 


77@ NEXT J:NEXT i 

78@ RETURN 

790 PRINT: INPUT"Welches Band (Titel)";n# 
ın$=LOWER$ (n$) 

888 FOR i=@ TO md 

818 IF LOWER$ (n$(i ,@) )<>n$ THEN NEXT i 

828 IF i>md THEN PRINT#2,"Existiert nich 
t!":FOR i=1 TO S@@: NEXT:RETURN 

838 PRINT:PRINT"Bitte Drucker einschalte 
n!"+PRINT"Dann stendruck!"” 

@4@ WHILE INKEY$="": WEND 

858 PRINT#d: PRINT#d: PRINT#d .n# (1 ,@)+"{2 
SPACE} *+STR$ (in (i „BI )+" Programm(e)“ 

860 FOR j=1 TO nti,d) 

870 z4=DEC#((j,"##")+LEFTFL"(Z SPACE)" N 
#1 ,3) +SPACES (28) 22) +DEC$((nti,3)," 
un") ıPRINTAd,z# 

880 NEXT 5 

89@ RETURN 

SOQ REM wuununnunununuununneee 

918 REM ** Datei bearbeiten #* 


REM nenne 
CLS+ CLS#1: CLS#2:PRINT#1:PRINT#1,"8 
SPACE)Funktion Datei bearbeiten" 


sed 2 &8 


PRINT "Datei Nr. Name: "+n$(ak 
„> 
PRINT"akt.PRG "ıntak,®) 
FOR i=1 TO n(ak,®) 
Z#=DECH( (i ,"MM")+LEFTS(" (2 SPACE)" +n 
$(ak ‚1 ) +SPÄCE$ (28) ‚22) +DEC$( in (ak,i) 
or) 

988 PRINT z# 

990 NEXT i 

1888 PRINT#2," Suchen (1)(2 SPACE}Blaett 


ern (2)t2 SPACE}Aendern (3) (2 SPACE 

}Verlassen (4) 

1@1@ z$=INKEY$: IF z$="4" THEN RETURN ELS 
E IF z#<>"1” AND z#<>"2" AND z4<>"3 
" THEN 1018 

1820 ON VAL(z$) GOSUB 1978,1220,136@ 

1858 GDTO 938 

1840 REM wm 

195@ REM #* Suchen ** 

18640 REM wuunnumnnnne 

187@ CLS#2:PRINT#2,"Band (1)(2 SPACEIPro 


gramm (2) 

108@ z$=INKEYS:IF z#<>"1" AND z4<>"2" TH 
EN 10688 

1890 INPUT#2, "Name" ;n$in$=LOWER$ (n#) 

1100 IF z4="2" THEN 1140 

1118 FOR i=@ TO mdıIF LOWER$(n$(i ,BI)<>n 
% THEN NEXT 

112@ IF i>md THEN PRINT#2, "Nicht vorhand 


en!'!":FOR i=1 TO S@8: NEXT:RETURN 
1138 ak=i RETURN 
a For 39 TO m 
158 FOR j=1 TO ni, 
IF LOWER$ (n$( 
URN 
117@ NEXT j:NEXT i 
1188 PRINT#2,"Nicht vorhanden! 
TO 5@@: NEXT:RETURN 
119@ REM mn 
1208 REM ** Blaettern ** 
1210 REM auununnnnnnnnne 


))=n$ THEN ak=i:RET 


FOR i=1 


122@ CLS#2:PRINT#2,"(1@ SPACE)Hoechste D 
ateinummer ";md: PRINT#2,"(4 SPACEIVo 
F (1902 SPABE)Zurueck 12) (2 SPACEIV 


erlassen (3)" 
1230 z$=INKEY$: IF z$<>"1" AND z$<>"2" AN 


D z$<>"3" THEN 1230 
1248 IF z$="3" THEN RETURN 
1258 CLS 
126@ IF z$="2" THEN ak=MAX(ak-1,1) 


127@ IF z$="1" THEN ak=MIN(ak+1 md) 

1288 CLS:PRINT "Datei Nr.:";ak;5” Name: "+ 
n$(ak,@) :PRINT"akt.PRG's: "zn(ak,®) 

129@ FOR i=1 TO n(ak,®) 

1380 z4=DEC$((i, "HE" )+LEFTSC"T2 SPACEI”+ 

- n$(ak,i)+SPACE$ (28) „22)+DEC$((n(ak, 
i),"#4#") :PRINT z& 

131@ NEXT i 


188661 
14118] 


168741 


[39341 
£549C3 


LBCB&J 
157801 
17996] 


12B281 
[529E3 
C1C843 


Car7Cc3 
t4C12] 
[7C3E] 


1D7287 
15592] 
LAGA2I 


L79BA1 


C13BE] 
C9ACAI 


LsE2EI 
LFA4BI 


L6E8B] 
133123 
CAF42] 
(84821 
ca37C1 
[6@B6] 


12156] 


[62E81 
CC9B8] 
L48CEI 


LA9D8] 
£7D18] 
134143 


[SDECI 


LFCBAI 
t3BC2] 
[56B2] 
[4602] 
13178] 
137C6] 


LFC9@1 


[246€] 
[9DAC) 
[BEZEI 


1717A3 


[4618] 
[21E21 
L6BEEI 
15454] 


197823 
CA4681 


L13F8]J 
[34CA1 
[S1E8] 
L38BC 


146141 


L7DA6]J 
LESSEI 
184941 
1243E] 
18176] 


185203 
LCC281 


LEB6AI 
[8654] 


1458 


1478 
1478 
1518 


1538 
1558 


1578 


1598 


1618 


1678 


1698 


1700 
1718 


1728 
1738 
1748 
1758 
1768 


17780 


1780 
1798 
1800 
1818 
1828 
1838 


1848 
1858 
1868 
1878 
1888 


1898 
1908 
1718 
1920 
1938 


1948 


Listing. »Band-Kartei«, ein durchschaubares Programm 


CLS#2:60T0 1228 

REM anunanukaarae 

REM ** Aendern == 

REM sununnnnnnnen 

CLS#2: PRINT#2,"Loeschen (1){2 SPACE 

}Einfuegen (2)(2 SPACE)Aendern (3)" 

:PRINT#2, "Neuer Dateiname (4)" 

z$=INKEYS:IF 24C>"1" AND z8<>"Z" AN 

D z$<>"3" AND z4<>"4" THEN 1370 

CLS#2:ON VAL(z$) GOSUB 1458,1518,15 

98, 1678 

RETURN 

REM wunnunnunnenee 

REM ** Loeschen #* 

REM wuunnunnnnnnne 

INPUT#2,"Welche Zeile";z 

IF z>n(ak,®) OR n(ak,@)=® THEN PRIN 

T#2,"Unmo@glich!'"FÜR i=1 TO S@B:N 

EXTIRETURN 

FOR i=z TO ntak,@int(ak,i)ens(ak,i 
i)emtak,i+l)sNEXT i 

n$(ak,n (ak,8) )=""sn(akyn (ak,®))=Ben 

(ak,@en(ak,@)-1 

RETÜRN 

REM sanununnnunune 

REM »* Einfuegen «* 

REM nunnunnunsuuune 

IF n(ak,@)=15 THEN PRINT#2, "Datei i 

a6 volll!":FOR Ami TO SOBGNEXTERETU 

INPUT#2, "Welche Zeile 

E)@=Verlassen";z 

IF z=@ THEN RETURN 

IF z>15 OR z<i THEN 1520 

IF z>n(ak,@) THEN n(ak,@)=z: INPUT#2 

"Name des Programms" ;n#(ak,z): INPU 

1#2,"Zaehlerstand";n(ak,z) :RETURN 

FOR 'i=n(ak,@) TO z STEP-Isn$(ak,i+i 

Denstak,i)intak,iti)entaksi)sNEXT i 


(1-15) (2 SPAC 


INPUT#2,"Name des Programms" ;n$(ak, 
zZ): INPUT#2,"Zaehlerstand"in(ak,z) 
n(ak,D) =n (ak,®) +11 RETURN 

CLS#2: INPUT#2,"Welche Zeile G=verla 
ssen";z 

IF z=@ THEN RETURN 

IF z<i OR z’n(ak,@) THEN PRINT#2,"K 
ein Eintrag!!":FÖR i=1 TO S@@:NEXTE 
RETURN 

INPUT#2, "Neuer Progranmname“ ns (ak, 
z 

INPUT#2,"Neuer Zaehlerstand"jn(ak,z 
) : RETURN 

REM 

REM ## Neuer Dateiname #* 

REM anunnununanununnuneen 

INPUT#2, "Neuer Dateiname"sn$(ak,@)ı 
n$ (ak ‚Ö)=LEFT$(n$ (ak,@) ‚15) 
PRINT#2,"Datei loeschen’ j/n" 
z$=LOWERS(INKEY&) IF z$="n" THEN RE 
IF 2$<>"j" THEN 1698 

FOR i=1 TO 1Sın$(ak,i)=""ıntak,i)=® 
ıNEXTın (ak,@)=® 

RETURN 

REM auunnunnuusnnnnnanee 

REM »* Datei eingeben »* 

REM aunnnunnununanunneee 
ELS#I:PRINT#1:PRINT#1," (12 SPACEIDa 
tei eingeben“ 

IF md=2@ THEN PRINT#2," Dateibestan 
d erschoepft!!":FOR i=1 TO 10@@:NEX 
T: RETURN 

md=md+1rak=md 

IF n=-1 THEN RETURN 

CLS:PRINT "Datei Nr.:"zak 

INPUT#2, "Dateiname V=Verlassen";n# 
n$=LEFTS(n$, 15) 
IF LOWER$ (n$)="v" THEN md=md-1:ak=m 
d+RETURN 

n$(ak,D)=ns 

INPUT#Z, "Wieviele Programme";n 
ntak,@)=n 

FOR i= 1 TOn 
PRINT#2,"Programmname_"+STR$(i)5: IN 
PUT#2,n$(ak,i) : INPUT#2,"Zaehlerstan 
d"sn(ak,i) 

NEXT: RETURN 

REM uuununnuuununueerreee 

REM ** Programmabbruch ##* 

REM wuununnnnnnn nenne 

BORDER 6,24: PRINT#2,"Sie haben Prog 
rammabbrüch gewaehlt. Solldas Progr 
anm wirklich abgebrochen werdenj/n? 


Z$=LOWER$ (INKEY$):IF z$="j" THEN BO 
RDER @:END ELSE IF z$<>"n" THEN 194 
® ELSE BORDER @:RETURN 


(Schluß) 


L72EA] 
EC11AJ 
10922] 
EF7IEI 


L87E4] 
LAc081 


L44B81 
LBA9AJ 
LCF6RI 
LFBB&] 
T@B6E] 
CFEC&]I 


L803A1 
1B596] 
CAD2CI 
LBF98] 
LBFCEI 


[&9EB] 
139C81 


128F4] 


t88F01 
114903 
£476C1 


tS5F28] 


980€] 


tBFCEI 
EFFDEI 


[6276] 
LF7983 


tA32A] 
LAFASI 


£B892] 
LF@C2] 
tEIFEI 
EZAC6EI 


[BEDE] 
L4D8@1 


TEA64] 
L6E38] 


LABBAI 
CB@941 
LEB6EI 
13538] 
1C7721 


tE91CI 


LBC36] 
CCB7EI 
133F@] 
19558] 
LB9F41 
LiSFCI 


C3DF81 
[538€] 
L77E8] 
16202] 
L837E1 


LF6CB] 
LFA96J 
cL10C8) 
[1666] 
E2AC4] 


146181 


17636] 


EB RIESEMER ERBEN. _ 
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Schwertransport 


Besitzer eines Schneider CPC 
464, die ihren »Maschinenpark« 
um ein Diskettenlaufwerk erwei- 
tert haben, stehen sehr bald vor 
einem Problem: Wie läßt sich die 
vorhandene Software von Kas- 
sette auf Diskette übertragen? 


och heute (und voraussicht- 
lich auch in Zukunft) ist die 
meiste Spielsoftware aus- 
schließlich auf Kassette erhältlich. 
Programme, die Kassettensoftware 
auf Diskette bringen, wie zum Beispiel 
ransmat«, besitzt nicht jeder. Dazu 
kommt, daß sie nur einen Teil der Soft- 
ware transferieren und das oft auch nur 
mit erheblichen Eingriffen des Benut- 
zers in die kopierten Programme. Das 
heißt natürlich nicht, daß hier eine Anlei- 
tung für jede erdenkliche Software 
gegeben werden kann; dazu gibt es zu 
unterschiedliche Konzepte. Viele Pro- 
gramme haben sehr spezielle Laderou- 
tinen, wie zum Beispiel das Flashloa- 
ding (bei »Sorcery« undanderen Titeln), 
oder einfach ein anderes Ladeformat 
(zum Beispiel »Spy vs Spy«). Auf Grund 
der Komplexität können wir an dieser 
Stelle darauf nicht eingehen. 
Zunächst wollen wir einen Blick auf 
Software werfen, die ganz »ordinär« 
blockweise im Standardformat (»SAVE 
“name”,p«) gespeichert ist. Für den 
Transfer benötigen Sie einige Informa- 
tionen über das Programm. So prüfen 
Sie erst einmal mit dem CAT-Befehl, in 


wieviele Teile sich das Programm glie- 
dert (Laderoutine, Titelbild, Hauptpro- 
gramm, etc.). 

Nehmen wir beispielsweise an, das 
Programm besteht aus zwei Teilen: zum 
einen aus dem, natürlich geschützten, 
Basic-Programm und einem anschlie- 
ßenden Maschinensprache-Teil. Den 
»Schutz« des Basic-Programms müs- 
sen Sie aus zwei Gründen entfernen: 
Erstens läßt es sich nicht mit einfachem 
»LOAD« und anschließendem »SAVE« 
übertragen. Dazu kommmt, daß Sie 
meist kleine Eingriffe vornehmen müs- 
sen, deren Zweck Sie später erkennen 
werden. Den Listschutz entfernen Sie 
mit Hilfe eines kleinen Programms. Für 
den CPC 464 benötigen Sie Listing 1, 
für die CPC 664/6128 Listing 2. Der 
gelistete Basic-Teil sieht wie folgt aus: 
Auf den Aufbau des Titelbildes und die 
Farbdefinition folgt der Ladebefehl und 
schließlich der Aufruf des Maschinen- 
code-Programms mit »CALL adresse«. 
Von besonderem Interesse ist für uns 
die »Laderoutine«. Sie besteht in aller 
Regel nur aus der Anweisung »LOAD 
”!”« und lädt das auf der Kassette fol- 
gende Programm. 

Wie Sie vielleicht wissen, müssen Sie 
das Ausrufezeichen durch einen Pro- 
grammnamen ersetzen, der die Bedin- 
gungen des Disketten-Betriebssy- 
stems erfüllt (acht Zeichen, eventuell 
mit einer Erweiterung von drei Zeichen 
getrennt durch einen Punkt). So ist der 
Basic-Lader bereits aufbereitet und Sie 
speichern ihn auf Diskette. 


Die Übertragung des Maschinenc: 
des kostet ungleich mehr Mühe: Si 
müssen seine Ladeadresse und Län: 
herausfinden. Lädt und startet d 
Basic-Teil das Maschinenprogrami 
nicht über »LOAD ”!”:CALL adresse 
sondern mit »RUN”!”«, benötigen Sie 
noch zusätzlich die Startadresse. Hil 
finden Sie in Listing 3. Diese Hilfsroi 
tine liest die entsprechenden Inform: 
tionen aus dem sogenannten Header’ 
des jeweiligen Speicherblocks. 

In unserem Beispiel ist die Lade- 
adresse 40000 und der Maschinen- 
code 1500 Byte lang. Geben Sie nun 
folgende Basic-Zeilen ein: 

10 OPENOUT "DUMMY”: 
MEMORY 40000-1:CLOSEOUT 
20 ITAPE.IN : IDISC.OUT 
30 LOAD "” 
40 SAVE “name ”,b,40000,1500 


Zeile 10 richtet mit dem OPENOUT- 
Befehl einen Pufferbereich von 4096 
Byte ein. Dasist wichtig, denn wenn der 
Maschinencode ab einer Adresse 
unterhalb 5000 beginnt, erscheint bei 
fehlendem Puffer und »LOAD« nur noch 
die Fehlermeldung »MEMORY FULL«, 
Der MEMORY-Befehl setzt den HIMEM- 
Zeiger herab und reserviert den nach- 
folgenden Speicherbereich für den 
Maschinencode. Zeile 20 kanalisiert 
den Datentransfer in die gewünschte 
Richtung. Zeile 30 lädt das nächste ver- 
fügbare Programm von der Kassette, 
Die Auswahl der richtigen Datei treffen 
Sie, indem Sie das Band vorher an die 
entsprechende Stelle spulen. Zeile 40 
schließlich speichert das Programm auf 
Diskette. Mit diesem einfachen Rezept 

Fortsetzung auf Seite 50 


1B " Aufhebung Listschutz CPC_ 464 tEsDCI 10 ° Aufhebung Listschutz CPC 664/6128 LABEBI 
20 POKE &ACQ1,LC3:POKE LACB2,L9Q,POKE &A 2@ FOR i=&BE9F TO &BBA4 : READ a : POKE 
ca3,2.C0 175821 i,a 2 NEXT c12D21 
3@ DATA &SE,0,432,82C,LAE,&C9 TAAB6] 
Listing 2. Auch beim CPC 664/6128 Programme wieder 
Listing 1. Aufheben des Listschutzes beim CPC 464 »sichtbar« 
[ie EEE Pre 200 IF t=2 OR t=3 THEN PRINT"BINAER" 15561 
* Headerreader * 21® IF t=1 OR t=3 THEN PRINT" GE! zT 
ELSIIILErRe Per T3EBBI ” 164541 
2@ INK @,@:BORDER @zINK 1,24: INK 2,18: IN 22@ PRINT 14582) 
K 3,15 [S@B6] | 23@ PRINT"{CTRL JICCTRL OILCTRL A)Anfang 
30 ON ERROR G0TO 3@@ LB9ACI sadresse: (CTRL O)CTRL BI&"HHEX$(a, 
48 MODE 1:!TAPE "Umschalten auf Cassette 4) USING "(3 SPACE) CCTRL OPLCTRL C3 
175Da] ELLI L9ESCI 
5@ filenames="" CDDD6] | 24@ PRINT"CTRL JICCTRL OICTRL A)Progra 
60 x=&BBBCzOPENIN "" 1937AJ mmlaenge: {CTRL O){CTRL BI&"3HEXS(l, 
70 ' Wie heisst das File? EDBB4) A, JUSING "(5 SPACE) CCTRL OICETRL C) 
8@ FOR i=x TO x+15 14132] “1 ECEA2I 
98 a=PEEK(i):IF a=@ THEN a=32 [GESE) | 25@ PRINT"{CTRL JICCTRL O{CTRL A)Starta 
100 filename$=filename$+CHR$ (a) ıNEXT TBBIEI dresse(2 SPACE}: {CTRL OPCCTRL BI&" 
11@ t=PEEK(x+18) "Welches Programm 19388] HEX$ (5,4) USING "(3 SPACEICCTRL 03€ 
120 1=PEEK (x+24)+256#PEEK (x+25) ‘Laenge L[72C®] TRL C) We" tB1C81 
13® a=PEEK (x+21)+256#PEEK (x+22) "Anf tB9FEI | 268 PRINT"CTRL OPCTRL Ar"sCLOSEIN £C7C@1 
140 s=PEEK(x+26)+256#PEEK (x+27) ‘Start LESSEI | 27@ PRINT"CCTRL JICCTRL JICCTRL J>Weiter 
15@ " Alle Daten anzeigen [31F@3 es Programm untersuchen? (J/N)" CFS4@] 
168 CLS [8332] | 28@ WHILE as<>"J" AND a$<>"N"a$=UPPERS ( 
17@ PRINT" (CTRL_O)CCTRL A)Programmnamet2 INKEY$) : WEND t881AJ 
3: {CTRL OICCTRL BI”; filenames 298 IF a$="J" THEN RUN ELSE CLS:END LASF4] 
188941 | S®@ RESUME NEXT “Fehlerbehandlung aus L[7CA2] 
188 PRINTTCCIRL 23 CTRL 03 ICTRL ArProgra 
mmart {3 SPACE): O>{CTRL B}" [46601 
198 IF t<2 THEN PRINT"BASIC";z ; [4058] Listing 3. Im Programmkopf stehen wichtige Informationen 


Erfüllt dieses Sonderheft Ihre Anforderungen? 
Haben Sie es gerne gelesen oder bereuen Sie den 
Kauf? Damit wir uns besser auf Ihre Wünsche ein- 
stellen können, schicken Sie uns bitte den Frage- 
bogen zurück und gewinnen Sie mit etwas Glück 
einen der wertvollen Preise. 


* 1 Diskettenlaufwerk FX-1 
gestiftet von Vortex 


* 1 Speicherkarte SP 512 für 
£PC 464 oder 664 von Vortex 


* 3 CP/M-Programme (Word- 
star, dBase Il oder Multiplan) 
freier Wahl 


* 10 Gutscheine über ein Buch 
freier Wahl aus dem 
Markt & Technik Verlag 


* 10 T-Shirts im »Happy- 
Computer«-Look 


Um an unserer Verlosung teilzunehmen, müssen Sie nur den 
folgenden Fragebogen ausfüllen undbiszum 31. Juli 1986 an 
ns zurückschicken. Unsere Adresse: 


Bedaktion Happy-Computer 
Markt& Technik Verlag AG 
Kennwort: Schneider 
Hans-Pinsel-Straße 2 

8013 Haar bei München 

Der Rechtsweg ist ausgeschlossen. 


Fragebogen 
f 
zum Schneider-Sonderheft 
von Happy-Computer 
Wie hat Ihnen dieses Sonderheft insgesamt gefallen? 
Olsehr gut Ogut 
Omittel DO] weniger gut 
Ol gar nicht BE: 
Wie fanden Sie die einzelnen Rubriken? 
sehr weniger 
interessant interessant interessant 
Hardware [m] [m] m] 
Software ja} DO je] 
Basteleien Oo DO D 
Grundlagen OD D D 
Joyce-Teil je} oO DO 
Einsteiger-Teil jm} D D 
CP/M-Teil D DO D 
Anwendungs-Listings DO DO je} 
Spiele-Listings je} je} D 
Tricks& Tips jm} [m] im} 
CP/M-Tips D je} D 


Welche Beiträge haben Ihnen am besten gefallen? 


ae BZ 
| 
| 


Welche Beiträge haben Ihnen gar nicht gefallen? 
1: — Eu 


on 
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Haben Sie vor, sich 1986 einen anderen Computer zu kaufe 
Dja Onein 
DD Wenn ja, welchen? 
je Themen sollen in weiteren Sonderheften behandelt Dein anderes Gerät von Schneider, welchen? 
_ werden? DO Atari ST OD] Commodore 64/128 
5 i OD Commodore Amiga DI MS-DOS-Computer 


Welche Peripherie besitzen Sie für Ihren Schneider- 
5. Computer? 


DO Diskettenlaufwerk, Type? 
_ Welche Themen sollen in Happy-Computer ausführlich 
behandelt werden? OD) Zweitlaufwerk, Type? 


4. OD) Speichererweiterung, Type? 
2 Ü Drucker, Type? 
U] Modem, Type? 

OD) RS232-Schnittstelle, Type? 

D Sonstiges? 


Wie oft würden Sie sich ein Sonderheft oder eine spezielle 
Schneider-Zeitschrift von Markt& Technik kaufen? Welche Peripherie wollen Sie sich demnächst noch kaufen? 


Ol monatlich D zweimonatlich D Diskettenlaufwerk, Type? 


Ü vierteljährlich Ü halbjährlich D Zweitlaufwerk, Type? 
E D Festplatte, Type? 
Wie teuer darf Ihrer Meinung nach ein spezielles Schneider-- U) Speichererweiterung, Type? 


‚heft sein? 
nderheft_ __ Mark Zeitschrift___ Mark 


D Drucker, Type? 
Ü] Modem, Type? 
DO] RS232-Schnittstelle, Type? 
OD Sonstiges? 


e Computer-Zeitschriften lesen Sie regelmäßig? 
Kaufen Lesen 


Welches Peripheriegerät würden Sie, falls Sie gewinnen, 
bevorzugen? 

DI] FX-1-Station von Vortex 

U Speichererweiterung für 464/664 von Vortex 


'he Schneider-Sonderhefte von Happy-Computer haben 
sich schon gekauft? 


D1. Schneider-Sonderheft (SH 2/85) Ichbin damit einverstanden, daß die hiergemachten Angaben 
02. Schneider-Sonderheft (SH 1/86) BEHONESCh Vor HehSEREE IE 
'©18. Schneider-Sonderheft (SH 4/86) 


jen Computer besitzen Sie? 
ÜICPC 464 OICPC 664 
DOICPc 6128 Di Joyce 


JETZT AUF SCHNEIDER-COMPUTERN: 


DIE PROGRAMM-BIBLIOTHEK FÜR TURBO PASCAL 


March: 
Schneider CPC- 
Software 


TURBO-Lader-Grundpaket 

Das TURBO-Lader-Grundmodul ist eine 
umfangreiche Programm-Bibliothek für den 
TURBO-Pascal-Programmierer. Sie umfaßt 
zahlreiche ausführlich dokumentierte Proze- 
duren und Funktionen, die der Profi zur 
schnellen Lösung seiner Programmierauf- 
‚gaben verwenden kann und dem Einsteiger 
das Erlernen der Pascal-Programmierung 
erleichtern. Das Grundpaket TURBO-Lader 
bietet ein breitgefächertes Spektrum von 
Routinen, beginnend bei Bitmanipulation 
über optimierte Sortierverfahren bis hin zur 
‚Anwendung von Splinefunktionen, Fourier- 
transformation und Regressionsanalyse. Des 
weiteren Disketten-Routinen zum Lesen 
eines Inhaltsverzeichnisses oder zum Lesen 
und Schreiben einzelner Sektoren, Routinen 
zur Datenüberprüfung, ein Spooler mit Steu- 
erroutinen, erweiterte Stringverarbeitung 
und vieles mehr. Alle Routinen werden im 
kommentierten Quellcode für den TURBO- 
Pascal-Compiler ausgeliefert. 

Das TURBO-Lader-Grundpaket erfordert 
den TURBO-Pascal-Compiler. Es ist liefer- 
barauf3"-und5 1/4 ”-Disketten und lauffä- 
'hig auf dem Schneider CPC 464, CPC 664, 
CPC 6128 und Joyce. 

'3*-Disk. Best-Nr. MS 413 

514 ”-Disk. Best-Nr. MS 415 


DM 138,-sFr. 125,-/6S 1380,* 


inkl. MwSt., unverbindliche Preisempfehlung. 


TURBO-Lader Business 


TURBO-Lader Business umfaßt einen kom- 
fortablen Bildschirm-Maskengenerator und 
eine professionelle Dateiverwaltung. Der 
Maskengenerator gibt dem Pascal-Program- 
mierer ein Werkzeug zur einfachen Bearbei- 
tung von Bildschirm-MaskenindieHand. Eine 
Maske kann beliebig viele Textfelder, bis zu 
128 Eingabe-und 128 Ausgabefelder enthal- 
ten. Eingabefelder können auf komfortable 
Art editiert und auf Gültigkeit überprüft wer- 
den. Das Dateiverwaltungsmodul unterstützt 
die Programmierung von Datenbankanwen- 
dungen und Stammdatenverwaltungen. Es 
besteht aus einer komfortablen Datensatz- 
und Indexverwaltung mit mehreren Schlüs- 
seln und Index-Dateien, die einen sekunden- 
schnellen Zugriff auf beliebige Daten ermög- 
licht. Mit diesen beiden Modulen stehen dem 
‚Anwendungsprogrammierer zwei professio- 
nelle Werkzeuge zur zeit- und kostensparen- 
den Erstellung kommerzieller Anwendungen 
zur Verfügung. Alle Routinen werden im kom- 
mentierten Quellcode für den TURBO-Pas- 
cal-Compiler ausgeliefert. 

TURBO-Lader Business erfordert den 
TURBO-Pascal-Compiler und das TURBO- 
Lader-Grundpaket. Es ist lieferbar auf 3”- 
und5 114 ”-Diskettenundlauffähigauf dem 
Schneider CPC 464, CPC 664, CPC 6128 
und Joyce. 

3”-Disk. Best-Nr. MS423 

S'4”-Disk. Best.-Nr. MS 425 


DM 148,-IsFr. 132,168 1480,* 


TURBO-Lader Science 


TURBO-Lader Science ist eine Sammlung 
technisch/wissenschaftlicher Funktionen 
und professioneller statistischer Verfahren 
fürdie Bereiche Medizin, Betriebs- und Volks- 
wirtschaft, Technik und Naturwissenschaf- 
ten. Das Modul enthält alle arithmetischen 
Operationen zur Verarbeitung komplexer 
Variablen inklusive der Umrechnung der Dar- 
stellung und die wichtigsten komplexen 
Funktionen wie Potenz, Wurzel, trigonometri- 
sche, transzendente und exponentielle Funk- 
tionen. Darüber hinaus ist ein vollständiges 
Paket zur Verarbeitung komplexer Matrizen 
und Vektoren enthalten. Der Statistikteil Ist, 
ein praktisches und direkt verwendbares. 
Werkzeug zur computerunterstützten, effek- 
tiven Datenanalyse Er umfaßt eine Vielzahl 
statistischer Funktionen mit den Schwer- 
punkten Regression und Korrelation, des- 
kriptive Statistik, Faktoranalyse und Testver- 
fahren. Alle Routinen werden im kommentier- 
ten Quellcode für den TURBO-Pascal- 
‚Compiler ausgeliefert. 

TURBO-Lader Science erfordert den 
TURBO-Pascal-Compiler und das TURBO- 
Lader-Grundpaket. Es ist lieferbar auf 3°- 
undS 1/4-Disketten und lauffähigauf dem 
Schneider CPC 464, CPC 664, CPC 6128 
und Joyce. 


3”-Disk. Best-Nr. MS433 
54"-Disk. Best-Nr. MS 435 


DM 189,-IsFr. 169,-/öS 1890,* 


Übrigens können Sie auch alle TURBO-Pascal-Produkte für Schneider CPC 464166416128 und Joyce bei Markt & Technik beziehen: 
- TURBO Pascal 3.0, Best-Nr. MS 514 (CPC), Best-Nr.MSS15 (Joyce) DM225.72” -TURBO Tutor (englisch), Best-Nr. MS 544 (CPC), Best-Nr. MS 545 (Joyce) DM 104,86” 


TURBO Pascal 3.0 mit Grafikunterstützung, Best-Nr.MS524 (CP) DM285 
TURBO Tutor (deutsch), Best-Nr. MS 534 (CPC), Best-Nr. MS 535 (Joyce) DM 104,86° 


- TURBO Graphix Toolbox. Best.Nr. MS 564 (CPC) DM225,72° 
TURBO Toolbox, Best-Nr. MS 554 (PC), Best-Nr. MS555 (Joyce, DM 225,72 


TURBO-Pascal® ist_ein Warenzeichen der Bortand inc, USA TURBO-Lader, TURBO-Lader Business und TURBO-Lader Science sind Warenzeichen der Fa. Lauer & Walniiz. 


Diese Markt&Technik-Softwareprodukte erhalten 


Sie in den Fachabteilungen der Kaufhäuser 
und in Computershops. 


Wenn Sie direkt beim Markt&Technik Verlag 
bestellen wollen: 


Nur gegen Vorauskasse, Verrechnungsscheck 


‚oder mit der eingedruckten Zahlkarte. 


Markt&dechnik 


Buchverlag 


Hans-Pinsel-Straße 2, 8013 Haar bei München 


Bestellungen im Ausland bitte an 
untenstehende Adressen: 


Schweiz: Markt& Technik Vertriebs AG, 


Kollerstr. 3, CH-6300 Zug, Tel. 042/415656 


Österreich: Ueberreuter Media Handels- 
und Verlagsges. mbH, Alser Str. 24, 
A-1091 Wien, Tel. 0222/48 1538-0 


A‘ "move.bi 
78,2,221 
75,23 


| 35,27,9,43,237,184,201 


Listing 4. Eine Verschieberoutine hält das DOS-RAM frei | 


18 '* Transferprogramm fuer headerlose * 
* Files von Cassette auf Diskette 
* 
Das Programm ist NICHT fuer #* 
* RAUBKOPIEN gedacht! !!!! 


(c) 1986 by ms-Software 


MODE ı 

agzın 

FOR n=1 TO 12:READ x:a$=a$+CHR$ (x) NE 
er. 


x 
INPUT "tCTRL 0) (CTRL A)Anfangsadresse 
3 CCTRL OICCTRL 83" ‚anıxs=HEX$ (ans): 
MID$ (a$, 2, 2)=CHR$ (VÄL ("N+RIGHTS (N, 2 
I) I +CHR$ (VAL ("RNHLEFTE (46,2))) 
INPUT "{CTRL OICTRL A)laenges CCTRL 
OILCTRL 83" larx$=HEX$(la,4) ıMID$ (a$, 
4,2) =CHR$ (VÄL ("R"+RIGHTS (4,2) ) )ACHRE 
(VAL ("R"+LEFTE(K6,2))) 
INPUT "CTRL 0) CCTRL A)Satzkennzeiche 
nı {CTRL O)CCTRL B)" ‚saın$=HEXs (sa,2) 
‚nID* (as sWÄL Tune) 
128 ELSE OPENOUT "d 
ummy" MEMORY an-1 1 CLOSEOUT 
fr=FRE("") LCLS:a=PEEK (@a$+1)+256#PEE 
Ki@a$+2) ıCALL a 
PRINT" CCTRL JICCTRL IICCTRL IICCTRL 
OCTRL A}Soll ich 

Chern? (J/N)" 


LE a$<>"J" AND BSCSUNTTAsEURPERE ( 


INKEY$) : WEND 
THEN CLSsEND ELSE INPUT "t 
ETRL JICCTRL a D 


ben: (CTRL OICCTRL 


[@E621 


LC2D61 
* 


CBSFAIJ 
Ei1F4] 
[9316] 


164183 


198421 


[768E] 


tASıc] 
[ZEBEI 
16616] 


F84C] 


TABIE] 
155191 


1394A] 


RRREHRHRRRRHRREEIHEII 
* Screensave in einem Block * 
ee er ee 


MODE 2:SPEED WRITE 1 
3@ DEG 
FOR n=@ TO 36@ STEP 2 


5@ MOVE 320+20@*SIN (n#2) ‚200+200#*SIN (nd: 
DRAW 328-200*COS (n) „208-208*SIN (n) ıNE 
xT 


READ x:POKE n,x:NEXT 
CALL END 


198 DATA &21 ‚100,400 
11@  LD HL,&COOB  Anfangsadresse 
120 DATA &11,800,84 

138 * LD DE,L4B0d Laenge 
180 DATA use.caı 


LD A,&01 
168 DATA &cd,&9e,&b 
178 * CALL &BC9E 
188 DATA &c9 
19@ ° RET 


Satzkennzeichen 

[4 

CAS WRITE 

Zurueck ins BASIC 


»Rutsch« 


Listing 6. Speichern Sie beliebige Binär-Dateien in einem 


nn 


10 RR 
* Screenload in einem Block * 
WERE 


20 MODE 2 
38 MEMORY 39999 
FOR n=40008 TO 40011 
READ x:POKE n,x:NEXT 
68 CALL 40000 
60T0 7a 


SAVE ""+as,b,an,larlsEN) 
421,08, 


LD HL,äxuxx  Anfangsadre: 


Laenge 


Satzkennzei 
CAS READ 
Zurueck ins 


Listing 5. Auch »kopflose« Kassetten-Dateien sind kein 


Problem 


9a 
100 * LD HL,&C 
11@ DATA Ki 
2@ ° LD DE, 


chen 


178 DATA &c9 
180 * RET 


BASIC 


der halben Zeit 


£ 
“" oder auch :DISC:SAVE "SCREEN" ,b,&c® 
00,%:4000 [ 
DATA %21,400,%c0 


Listing 7. Ladevorgänge von Kassette in fast 


Satzkennzeichen 

13 

CAS READ ka 
Zurueck ins BASIC CFF4@J 


| 


lassen sich viele der gängigen Pro- 
gramme auf Diskette »schaufeln«. 
Schwieriger wird es, wenn der 
Maschinencode eines Programms 
einen Teil des RAM-Speichers belegt, 
der vom Disketten-Betriebssystem 
(DOS) reserviert ist (bei AMSDOS sind 
das 1280 Byte ab Adresse 42620). 
Wenn Sie ihn normal zu laden versu- 
chen, bricht der CPC beim Überschrei- 
ben dieses reservierten Bereichs ab 
und meldet »BAD COMMAND«. Also 
müssen Sie den Maschinencode in 
einen niedrigeren Speicherbereich 
laden, um ihn dann an die ursprünglich 
vorgesehene Adresse zu verschieben. 
Den Maschinencode-Profis unter Ihnen 
fällt hierzu natürlich sofort das Stich- 
wort »LDDR« ein. Der Z80-Prozessor 
stellt für so eine »Schiebung« nämlich 
zwei mächtige Maschinenbefehle zur 
Verfügung: »LDIR« und »LDDR«. Aus 
Basic sind diese Befehle jedoch nicht 
direkt greifbar. Deshalb müssen Sie 
sich mit einer Basic-Routine (Listing 4) 
helfen, die den notwendigen Maschi- 


nencode in den Speicher POKEt. Die 
erzeugte Maschinenroutine ist im Spei- 
cher frei verschiebbar. Solange noch 
ein paar Byte für Basic freibleiben, kön- 
nen Sie folglich das Maschinenpro- 
gramm so tief herunterladen, wie Sie 
wollen (oder müssen). 

Unser zweiter fiktiver Transfer- 
Kandidat hat eine Länge von 40 KByte 
und belegt normalerweise den Spei- 
cherbereich von Adresse 3000 bis 
43959. Um das DOS-RAM freizuhal- 
ten, genügt es, die neue Ladeadresse 
auf etwa 1500 zu verlegen. Die 28 Byte 
der Verschieberoutine legen wir darun- 
ter, deshalb die Befehlsfolge »OPEN- 
OUT "dummy” : MEMORY 1500-28 : 
CLOSEOUTe. Laden Sie nun zuerst von 
Diskette mit »LOAD ”MOVE.BIN”, 
1500-28«. Dann schalten Sie auf Kas- 
sette um »|TAPE.IN« (oder bei VDOS mit 
»ICAS.IN«) und laden mit »LOAD 
"name”,1500« das Hauptprogramm. 
Der Aufruf »CALL 1500-28,1500, 
40960,3000« verschiebt dann den 
Maschinencode auf die richtige 


Adresse. Die Argumente zum CALL- 
Befehl bedeuten in der Reihenfolge von 
links nach rechts: Einsprung der Ver- 
schieberoutine, Basisadresse, Länge 
und neue Basis des zu verschiebenden 
Programms. 

Eine weitere Steigerung des Schwie- 
rigkeitsgrades bedeutet es, wenn das 
Programm, das Sie kopieren wollen, 
den Speicherbereich von unten an 
belegt, in dem normalerweise die 
Basic-Programmerresidieren. Soistbei- 
spielsweise das Spiel »3D-Grand-Prix« 
nur ab Adresse 40 hex lauffähig. In sol- 
chen Fällen müssen Sie sich ein Trans- 
ferprogramm in purem Maschinencode 
schreiben. Um derartige Probleme zu 
lösen, ist allerdings Erfahrung in der 
Assemblerprogrammierung und Kennt- 
nis der Speicherbelegung des CPC 
nötig. Als sehr gutes Handwerkszeug 
haben sich zwei Bücher bewährt, die 
keinem »Freak« in der Sammlung fehlen 
sollten: das »CPC-Firmware-Handbuch« 
von Schneider und von Markt&Technik 
»ROM-Listing-CPC 464/664/6128«. 


CAS-OUT-OPEN 


s dem ersten erfahren Sie alles Wich- 
e über die Nutzung von Betriebssy- 
em-Routinen aus Maschinensprache 
ıd zum Teil auch aus dem Basic). Das 
eite Buch gehtnoch ein paar Schritte 
er und zeigt Ihnen auch die trick- 
sten Kniffe. Was macht man zum 
spiel, wenn ein Programm den ge- 
ten Speicher vom Basic-Start bis 
zum DOS-RAM belegt? Wohin dann 
der Transfer-Routine? Gut, wenn 
in so einem Fall mal eben nach- 
agen kann, um festzustellen, daß 
kleine Routine auch im Puffer des 
sic-Editors bei den Adressen ACA4 
ADAS hex (CPC 664 und 6128: 
8 bis AD8B hex) oder im Basic- 
ck zwischen AE8B hex und BOBA 
x (CPC 664 und 6128: AE6F bis 
DGE hex) Platz findet. 


Die nächste Problemgruppe sind 
amme, deren Laderoutine bereits 
Maschinencode besteht. Natürlich 
auch hier gegebenenfalls die 
einamen für das Nachladen der rest- 
Programmteile zu ändern. Mit 

em Monitor-Programm ist das auch 
weniger Geübte kein unüberwindli- 

s Problem. Weit weniger erfreulich 
eine Eigenheit des Betriebssystems, 
sich spätestens dann bemerkbar 
wenn Sie das Programm mit 
”name”« zu laden versuchen: 


le. Die bei Programm-Transfer relevanten Firmware- Routinen 


Unterdrückt Meldungen des 
Kassetten-Managers 
(LOADING NAME BLOCK XX«) 
oder läßt sie wieder zu 


Nach Starten der Laderoutine ertönt im 
Computer ein schmatzendes »Klick« 
und nichts geht mehr! Was nun? 

Ganz einfach, der Befehl RUN ruft 
beim Laden von Maschinencode- 
Programmen eine verhängnisvolle 
Firmware-Routine auf: MC-BOOT- 
PROGRAM. Diese wiederum lädt und 
startet zwar wie gewünscht das Vorpro- 
gramm, schaltet aber gleichzeitig »so 
ganz nebenbei« sämtliche Erweite- 
rungs-ROMs ab. Zu jener Gattung 
gehört jedoch auch das DOS-ROM, so 
daß der Computer sofort seine diploma- 
tischen Beziehungen zum Disketten- 
laufwerk abbricht. 

In den meisten Fällen hilft hier ein kur- 
zes Basic-Programm, das den Lader 
ohne RUN startet und mit auf der Dis- 
kette gespeichert ist: 

10 MEMORY ladeadresse-1 
20 LOAD "name” 
30 CALL startadresse 

Als ob es nicht schon schwierig 
genug ist, gibt es noch subtilere 
Speicher-Mechanismen: Programme, 
bei denen das Hauptprogramm aus nur 
einem einzigen Block ohne Header 
besteht. Auch dasistohne weiteres aus 
der Firmware der CPCs herauszuholen. 
Der Aufruf dieser Laderoutine erfolgt 
über die Adresse BCA1 hex, ist jedoch 
nur aus Maschinensprache heraus zu 
realisieren, da verschiedene Register 
benötigt werden. Zuerst müssen Sie 

Fortsetzung auf Seite 162 


COMPUTER DIVISION 


JONGE? 


Personal-Computer/ 
Textsystem 


Für alle, die schreiben, 
rechnen und denken. 


© Rechner 
© Programme 
® Bildschirm 


Tel 089/31 8009-31/56/53 
in Nomberg: 0911/6915097 
In Darmstadt: 06151/26343 


Nachfolgend ein kleiner Auszug 
aus meiner zur Zeit gültigen 
Preisliste für Schneider Soft- 


DM 90,— 
DM 59— 
DM ds 


DM 50— 
DM AB 


DM4O- 
DM4S— 
ROM Software ebenfalls liefer- 
bar, z.B. 
MAXAM Rom-Modul DM 198— 
EPROM DM 148 
‚Alle weiteren ARNOR und sämt- 
liche PRIDE Programme als 
ROM lieferbar. 
VORTEX Speichererweiterung SP 512 
(mit Befehl DISBOS) nur DM 448— 
FD Dual 5,25” Diskettenstation (Doppel- 
kaufwerk) mit V-DOS 2.0 nur DM 1448,— 
Speicheraufrüstung bestehend aus acht 
256 K, 150 ns Chips einmal Dekodlerchip 
nur DM 125,— 


Endlich lieferbar: MiDi-IntertaceDM 548,— 
Weitere Angebote in meiner 
ausführlichen Preisliste. Bitte 
kostenlos Liste HASP (bitte an- 
geben) anfordern. 


Roland Kunze 
Postfach 140526 
4800 BIELEFELD 14 


51 


CPC-Literatur 
auf einen Blick 


m seinen Computer bis ins Detailkennen und nutzen 

zu lernen, braucht man Literatur. Da sich nun aber 

fast jeder Verlag dankbar jeden neuen Themas 
annimmt, erscheint jeweils innerhalb kürzester Zeit eine 
im mehr überschaubare Menge neuer Bücher. So steht 
dann oft hilflos vor dem Bücherregal und weiß nichtmehr 


aus noch ein. Um Ihnen das zu ersparen, haben wir für Sie 
Bücher zusammengetragen, die sich in irgendeiner Form mit 
dem CPC beschäftigen. Somit dürfte für jeden etwas dabei 
sein. Wir haben einem schnellen Überblick Rechnung getra- 
gen und die Bücher nach Fachgebieten geordnet. 

(Udo Reetz) 


‚Hier können Sie weitere Informationen einholen 


— — SPIELE 


J. R. 
läßt grüßen 


Nicht nur »Dallas«- und »Denver«-Süchtige wer- 
‚den mit »Öl« ihre wahre Freude haben. 


ie der Name schon sagt, dreht sich beim Spiel 
»Öl« alles um das große Geschäft mit dem flüssi- 
gen Gold. Zur Einstimmung in Ihre neue Rolle als 
Mitglied der großen Ewing-Familie spielt der Computer nach 
dem Programmstart die amerikanische Nationalhymne. 
Danach erhalten Sie die einmalige Chance, Ihr Glück im har- 
en Geschäftsleben zu versuchen. Nur durch wohlüberlegte 
Anvestitionen in Ölfelder und Maschinen sowie perfekte Logi- 


REM Rn 


PrKEELELEL Tee t@c1EI] 

20 REM #r#u###* Andreas Gundlack % Stefan 
Buergel xunneee L6EBCI 

30 REM vr SOSO Wunstorf 1 ** 
ELLILII SEITE 1C858) 

4® REM wre Del Hm 
EEE CA118J 

BB HEN aatnaussnnenunnnanennuununnee 

1C826] 
sa CA758] 
7@ REM Anfangsgrafik 1477A 
80 REM wuunnnnunnnen 129503 

9@ MODE 1:BORDER 1:INK @,1:INK 1,26:PEN 
1:PAPER @:CLS 174303 
100 SPEED KEY 20, 19514] 

11@ PEN S:FOR 1eio TO 17:LOCATE i ,4:PRIN 
T_CHR$ (143) NEXT CBB4@] 

12@ FOR i=4 TO 13:LOCATE 17,.i:PRINT CHR$ 
1143) :NEXT 15068] 

138 FOR i=1& TO 11 STEP-1:LOCATE i,1S:PR 
INT CHR$ (143) : NEXT CEB38J 

148 FOR i=13 TO 4 STEP-1:LOCATE 18,i:PRI 
NT CHR$ (143) : NEXT 133021 

150 PLOT 255,176:DRAW 270,198: PLOT 269,1 
90: DRAW 255,177 C4BA2] 

160 PLOT 2093559. DRAM 270,350: PLOT 269,3 
S0:DRAW 255, [678€] 

178 PLOT 128,335 Draw 143,350: PLOT 144,3 
50: DRAW 128,335 L787A1 

188 PEN 2:FOR TO 16:LOCATE a,S:PRINT 
CHR$ (143) : NEXT CBBDCI 

190 FOR a=5 TO 14:L0CATE 16,a:PRINT CHR& 
(143) : NEXT A658] 

288 FOR a=16 TO 9 STEP-1:LOCATE a,14:PRI 
NT CHR$ (143) :NEXT tE1C4] 

210 FOR a=14 TO 5 STEP-1:LOCATE 9,a:PRIN 
T_CHR$ (143) 2NEXT 138621 
22@ PEN SrLOCATE 12 11 PRINT mess) C451AJ 
23@ LOCATE 15,.1:PRINT CHR#(14 1A342] 

240 PLOT 160,.385:DRAW 175, S9s:PLor 176,3 
98: DRAW 160,383 L19B6]1 

250 PLOT 175,368:DRAW 198,383: PLOT 189,3 
83: DRAW 175,368 tE@CEI 

26@ PLOT 175,383:DRAW 198,398:PLOT 189,3 
98: DRAW 175,383 184041 

270 PLOT 209,555 DRAN 222,398: PLOT 224,3 
98: DRAW 209 19@B21 

289 PLOT 223, GEB: Dann 239,385: PLOT 237,3 
83:DRAW 223,368 17CB81 

298 PLOT 222,385:DRAW 237,398:PLOT 238,3 
98: DRAW 222,383 LDCBBJI 
388 PEN 2:LOCATE 11,2: PRINT CHR$(143) C4B161 
31@® LOCATE 14,2: PRINT CHR$(145) 17D4@] 

320 FEN SıFOR TO 13:LOCATE 26,i:PRIN 
T_CHR$ (143) :NEXT 175401 

3350 FOR i=26 TO S3:LOCATE i,13:PRINT CHR 
#143) :NEXT L71D2] 

348 PLOT 511,176:DRAW 526,191:PLOT 525,1 
91:DRAW 511,176 148981 

35@ PLOT 511,191:DRAW 526,296: PLOT 525,2 
B6:DRAW 511,191 1297A1 

360 PLOT 399,191:DRAW 414,206:PLOT 416,2 
@6:DRAW 399,191 T@FAAı 

370 PLOT 399,335:DRAW 414,350: PLOT 416,3 
58: DRAW 399,335 [DSACI 

380 PLOT 384 1SSSTDRRM 399,358: PLOT 490,3 
50: DRAW 384, ccSA@ı 

39® PEN Z:FOR ne To 14+L0CATE 25,a:PRIN 
T CHR$(143) :NEXT 1753AJ3 

480 FOR a=25 TO 32:LOCATE a,14:PRINT CHR 
#143) :NEXT L37AC1 

41@ LOCATE 7,19:PRINT"Ein Spiel von AGSB 
C-Software" 162121 


stik schaffen Sie es, Ihr Startkapital zu vermehren. Da die 
komplette Bedienerführung menügesteuert abläuft und das 
Listing mit reichlich Kommentaren versehen ist, erübrigt sich 
eine detaillierte Bedienungsanleitung. In der Schlußbewer- 
tung erfahren Sie, ob sich eine berufliche Veränderung emp- 
fiehlt oder Sie wohl doch besser Ihren derzeitigen Job behal- 
ten sollten, um nicht den Hungertod sterben zu müssen. 
Damit Sie jedoch nicht verzweifeln, hat »Öl« zur Aufmunte- 
rung stets einen lockeren Spruch »auf den Lippen«. 
(Andreas Gundlack/Stefan Bürgel/ja) 


464/664/6128 
a — 
Kassette/Diskette 


42® LOCATE 6,22:CAlL &BBFCHPRINT CHR$ (16 
&);" By Öundlack & Buergel , 1985":C 


ALL &BBIC L71E41 
438 LOCATE 18,25: PRINT“Abbrechen mit ENT 
e LDD281 
448 GOSUB 2698 12152] 
450 REM er CC35AJ 
468 BEN Daten fuer die Oelfelder TE188] 
470 REM nn L475E] 
48@ DATA Overquell ‚31768,1827, 1630808 CBaccı 


2435, 1394, 1910000 [56581 


DATA Blackgol 


490 
S5@@ DATA Happyoi 1 ‚28298, 2437 ‚1445008 C@BEB] 
518 DATA Emingbohr „1 00909, ‚2040008 13394] 
52@ DATA Luckyhole,49372, 1987, 1740008 [58C61 
53® RESTORE 488 19830] 
548 FOR a=1 TO 5 [3D4EI 
55® READ of#(a) ‚ofp$(a) ‚bt# (a) ‚gfmia) NE 

xT a CC@28] 
560 REM wuunnnnnnnnne CDFC2] 
57@ REM Hauptprogramm LB884E) 

REM annnnunnennne [O9C61 
590 MODE Z:ıPEN 1:kK=150808 [C6563 
688 INPUT"Wie heissen Sie ?"in# 138561 
618 MODE 2: jj=1 CDFS41 
62® WINDOW#1,69,88,1,8:PAPER#1,1:PEN#1,@ 

‚scLS#1 L14E8] 
630 WINDOW#B, 1,68,1,25: PAPER#B 8: PENNB 

:CLSw1 
648 j=1985+j3 
658 REM »uun» 
66@ REM Menue 
678 REM wann» 
688 LOCATE 19,4: PRINT" {CTRL er haben 

die Qual der Wahl!{CTRL X TSEBEI 
690 LOCATE 17,7:PRINT"{CTRL BICCHRL x 

Oelfeld kaufen" L4D861 
700 LOCATE 17,94 PRINT" CCTRL XI2CTRL X) 

Bohrgest. kaufen” 1C4821 


718 LOCATE 17, SALSPRINT-SETTE: XISCCTRL X) 


Pumpen kau: CAB461 
72@ LOCATE 17, ASUHRINTÜICTRL KIALCTRL X} 

Tankı aufen LF2A4] 
738 LOCATE 17, ISEERINT-CCTRL XISCCTRL X) 

Weiter“ c@5181 
74@ GOSUB 143521 
75@ LOCATE 28, ZI PRINTPCTHL x Wahls {CT 

RL X3" ,s INPUT ws L69ACI 


76@ IF VAL{ms)<1 OR VAL(w$)>S THEN 758 [45ACI 


77@ ON VAL(m$) GOTO 818,1908,1200,1498,1 
48 18348] 
798 REM wuununnnnunnne [SB81EI 
79@ REM Oelfeld kaufen L6F321 
800 _. .—— 16318] 
81@ CL! [9036] 
828 Locare 26,4: PRINT" {CTRL X} Oelfeldka 
uf (CTRL X)" LI16EI 
830 xx=125: BEYSSSTRIRIS1ZENYERSSRIgSEIEBEE 
DSUB 2988 TEBA4I 
84@ LOCATE 19,7:PRINT"(CTRL X? Nr. {CTRL 
X){5 SPACEILCTRL X) Name {CTRL X915 
SPACEICTRL X) Preis {CTRL X)" ESFDCI 
858 FOR a=1_TO SıPAPER B:PEN 1 [8736] 
86@ LOCATE 2@,8+a:PRINT a,of$(a) ‚ofp$(a) 
LF89C] 
878 NEXT a L9AFEI 
888 LOCATE 22,18: INPUT "{CTRL X} Nr des 
Gelfeldes: {CTRL X) "“snr EFB&&] 
898 IF ofp$*(nr)="verkauft” THEN PRINTIPR 
TNERTHN was here '! Oelfeld ist futsch 
G0TO 968 LAAA2I 
a8 kakaUAL (afps (nr) 3 :GOSUB 2848 LIADEI 


Listing. Haben Sie das Zeug zum Ölmagnaten? 


SPIEEE 


918 bb=bb+11bs$ (bb) =of& (nr) abt (bb) -btf in 
rn 

920 CLS:xx=125: yy=378:x1=1251 y1=33B1 y2=1 
80: GOSUB 2908 

93@ LOCATE 24,4:PRINT"{CTRL X} Sie besit 
zen nun: {CTRL X}"r0fp$(nr)="verkauf 

94@ FOR x=1 TO bb:LOCATE 23,7+x:PRINT x; 
bs$ (x) ıNEXT 


LOCATE 23,16: PRINT"{CTRL X} Weit 
it Taste ICTRL X)" a 


CALL &BB@6:6070 1718 

970 REM Rs 
REM Bohrgestaenge kaufen 
II REM ern 


1008 CLS 

1918 Kam a=1 TO 2:p (a)=INT (RND+598) +5@@: 
xXT a 

182@ LOCATE 2@,2:PRINT"{CTRL X) Bohrgest 


aenge kaufen {CTRL X)" 

LOCATE 15,4: PRINT"{CTRL X) Firma {C 

TRL X2t11 SPACEI{CTRL X> Nr_{CTRL X 

?13 SPACEI{CTRL X} Preis {CTRL X)" 

LOCATE 15,6:PRINT"Happybohr (11 SPAC 

EI1X5 SPACE} "zp(1) 

LOCATE 15,7:PRINT"Tief & Schnell (& 

SPACE}2{5 SPACE} ";p (2) 

1968 PLOT 7@,5@:DRAWR 478,8 

1978 BLOT 245,58: DRAWR 75,225: DRANR 75,- 
PLOT 31@,245:DRAWR ®,-195:PLOT 33@, 
245: DRAWR @,-195 
PLOT 295,220: DRAWR 59,8 

1180 PLOT 278, 125:DRAWR 128,8 

111@ LOCATE 28,18: INPUT"(CTRL X) Firmenn 
rz{CTRL X) ";nr 

1128 PRINT:PRINT 

INPUT "{7 SPACE}Wieviele 5®@m-Stuec 

ke;st 

PRINT 

INPUT "(7 SPACEIAUF welches Delfeld 

"3ofn 

IF ofn>bb THEN PRINT:PRINT"{16 SPAC 

E}Woher nehmen und nicht stehlen ?" 

ELSE 1188 

1178 PRINT"{29 SPACEI{CIRL X) Taste (CTR 
L X2":CALL &BB86:60T0_1718 

1188 bha (ofn)=bhg (ofn) +st#5@@: k=k-st#p (n 
r):GOSUB 2848:60T0 1718 

119® REM vun 

REM Pumpen kaufen 

REM wrnenunnenner 

1228 CLS 

xn=125: yy=378:x1=125:y1=325: v2=23@: 

GOSUB 2988 

FOR a=1 TO 2:p(a)=INT(RND»58@) +5@8: 

NEXT a 

LOCATE 26,4:PRINT"{CTRL X) Pumpenka 

uf {CTRL X)" 

LOCATE 28,7:PRINT"{CTRL X Firma {C 

TRL_X3C4 SPACEI{CTRL X) Nr_{CTRL X> 

{2 SPACEI{CTRL X} Preis {CTRL X)" 

127® LOCATE 28,9:PRINT"Everpump{4 SPACE} 

1X5 SPACE}":p<(1) 

LOCATE 2@,1@:PRINT"Pump & Co{3 SPAC 

E25 SPACE}";p (2) 

LOCATE 26,13: INPUT"{CTRL X) Firmenn 

FatCTRL X";nr 

IF nr<i_OR nr>2_THEN 1298 

131® LOCATE 27,16: INPUT"Anzahlı";st 

132@ LOCATE 21,18: INPUT"Auf welches Delf 

eld"sofn 

IF ofn>bb THEN 1168 

IF pufofn)+st>95 THEN PRINT=PRINT"M 

ehr als 95 Pumpen verkauft die Firm 

a nicht fuer EIN Delfeld":6070 131@ 


k=k-st*p (nr) :GOSUB 2848 

pu (ofn)=pu(ofn)+st:50TO 1718 

137@ REM unnunnnnnnenneee 

138@ REM Tankwagen kaufen 

139@ REM wann 

1498 CLS 

141@ SYMBOL AFTER 258 

1428 250,8,1,3,3,63,63,127,127 
1438 SYMBOL 251,224,242,21,23,20,245,252 


144@ SYMBOL 252,8,168,124,220,92,92,6@,2 
1450 253,195,153,189,60,24,255,25 
146@ SYMBOL 254,192,152,189,60,24,255,25 
1478 SYMBOL 255,12,102,242,243,96,255.25 
1488 FÜR i=3 TO &@ STEP 3 

149@ LOCATE i „22: PRINT CHR$(259) ;CHR$(25 
1soo AQaCHRs (2523 


LOCATE i „23: PRINT CHR$ (253) ;CHR$ (25 
4) ; CHR$ (255) 


151@ NEXT 
1520 xx=125: yy=370:x1=125: y1=325: y2=23@: 


1938 


1348 


128621 
E19DC1 


[64041 
174861 
[B588] 
LEICEI 
[7118] 
LOFSA] 
c8S1C] 
L1D861 
L96FEI 


EDB9CI 


LF69E] 
[D@36] 


LF612J 
[SC1E] 


TE9SCI 
1793A] 
128841 
L83CAJ 


L4B3C1 
18270] 


12A7@] 
LC1EsI 


LF6761 


caDBAı 
CIFSAI 
C2C641 
LE7221 
LC3ECI 
691141 
[238E] 
LSAra] 
C1C881 


[OBSEI 


[34A61 
L7CC23 
CDBAEI 


LDESBI 
CDF9B] 
[BEB2] 


EBC88I 
CAD243 


L8B283 
19386] 
[B4BE] 
LBB1E] 
LFES4] 
ECC223 
[258E1 
[349] 
130423 


[BEBB] 
LSF4EI 
LC3D81 
[53CAJ 


LACBS] 
[2.0777 


LA7BA] 


L3DB83 
C124C3 


1538 
1548 
1558 


1568 
1578 
1588 
1598 
1608 
1818 


1628 


1638 


1648 
1858 


1658 
1678 
1588 
1698 
17e@ 
1718 
1728 
1738 


1748 


1758 


1768 


1788 
1798 


1818 


1878 


GOSUB 2788 

FOR a=1 TO 2:p(a)=tINT (RND«S@B) +50@ 
)#1@:NEXT a 

LOCATE 26,4:PRINT"{CTRL X) Tankwage 
nkauf {CTRL X3" 

LOCATE 18,7:PRINT"{CTRL X) Firma {C 
TRL_X3£9 SPACEI{CTRL X Nr_{CTRL X 
{3 SPACE) {CTRL X} Preis {CTRL %3" 
LOCATE 19,9:PRINT"Oil on Road{& SPA 
CEI1{4 SPÄCEI";p(1) 

LOCATE 19,18: PRINT"Spritdrive(7 SPA 
CE}2{4 SPACE} ";p (2) 

LOCATE 24,135: INPUT"{CTRL X} Firmenn 
rz:{CTRL X3*:nr 

IF nr <1 OR nr >2 THEN 1588 

LOCATE 26,16: INPUT"Anzahl:";st 
LOCATE 22,18: INPUT"Auf welches Delf 
eld";ofn:IF ofn>bb THEN 1168 

IF tw(ofn)+st>1®@ THEN PRINTFPRINT" 
Mehr als 188 Tankwagen sind fuer EI 
N Delfeld nicht zugelassen! ":60T0 1 
60® ELSE k=k-st#p (nr) 

SOSUB 2848: tw(ofn)=tw(ofn)+st:60T0 
1718 

CLS 

LOCATE 18,5: PRINT"Wohl keine Lust d 
ie Entscheidung zu treftfen,was?" 
LOCATE 15,6: PRINT"Na,is ja nicht me 
in Bier _!" 

LOCATE 2@,18:PRINT"{CTRL X) Weiter 
sit Taste (CTRL X)“:CALL &BBB6 


FOR a=1 TO bb:CLS 

IF bbt(a)>=bt(a) THEN 1858 

LOCATE 24,2: PRINT" (CTRL X} Delfeld: 
{CTRL_X) "sbs$(a) 

LOCATE 18,5: PRINT" CTRL X} Bisherig 
e Bohrtiefe(3 SPACE}: "zbbt (a); "mtCT 
RL_xX3" 

LOCATE 18,7:PRINT"{CTRL X) Bohrgest 
aenge noch fuer";bhg(a); "m{CTRL X3" 


PLOT 58,26@:DRAWR 490,8 
PLOT 3@0,26@:DRAWR 15,45:DRAWR 15,- 
45 

PLOT 485,275:DRAWR 2®,8:PLOT 410,29 
@:DRAWR 10,0 

PLOT 413,299:DRAWR @,-39:PLOT 417,2 
99: DRAWR 8,-37 

PLOT 413,26@:DRAWR ®,-bbt (a) /1@:PLO 
T_414.268: DRAWR @,-bbt (a) /1@:PLOT 4 
15,268: DRAWR ®,-bbt (a) /1@ 
PLOT_416,26@:DRAWR @,-bbt (a) /iQıPLO 
T_417,260:DRAWR 8,-uht (a) /10 

IF bhg(a)>=5@@ THEN bha(a)=bhg (a)-5 
22: bbı (a) =bbt (a) +50@ Ei 

IF bhg(a)=® THEN LOCATE 1@,123PRINT 
"{CTRL X) Wir brauchen Nachschub! { 
CTRL_X9" 

LOCATE 22,20: PRINT"{CTRL X) Taste { 
ETRL X>":CALL &BBQ6:NEXT argespu=ß: 
gestak=B: 6070 2228 

LOCATE 24,2: PRINT"{CTRL X? Delfelds 
{CTRL X) "sbss(a) 

j1=INT (RND (1918) +2908 
1F" je) ARD K>5B008B THEN LOCATE 20 
„StPRINT"Ein Hurrikan zerstoert all 
es !":60T0 1898 ELSE 1988 

FOR sta=1 TO bb:pu(sta)=Brtn(sta)=B 
zNEXT sta 

LOCATE 5,4:PRINT"{CTRL X Pumpen{& 
SPACEI: (CTRL X3"zpu(a) 

IF bm$(a)<>"versiegt" THEN vs(a)=vs 
(a) +pu (a) «5@@B: bgm (a)=bgm(a)+pu(a)* 
sage 

LOCATE 5,6:PRINT"{CTRL X} Versandme 
age: {CIRL X)"zvsta);" 1" 

LOCATE 5,8:PRINT"{CTRL X) Tankmagen 
{3 SPACEI: (CTRL X3"tw(a) 
tkta)=tu (a) #4890 

pr= (INT (RND«2@) +1) /1@ 

PLOT 58,26@:DRAWR 499,8 

PLOT 488,268:DRAWR 15,45:DRAWR 15,- 


45 

PLOT 485,275:DRAWR 28,8:PLOT 410,29 
@:DRAWR i@,® 

PLOT 413,299:DRAWR &,-39:PLOT 417,2 
99: DRAWR @.-37 

PLOT 413,268:DRAWR &,-25B: PLOT 414, 
268: DRAWR @,-25@:PLOT 415,268: DRAWR 
@,-258 

PLOT 416,26@:DRAWR @,-25@:PLOT 417, 
269: DRAWR @,-258 

LOCATE 5,11:PRINT"{CTRL X) LKW-Kapa 
zitaets (CIRL X)"stkla)s" 1" 

LOCATE 54,12:PRINT"$ Preis :"zpr 
PLOT 3@@,11:DRAWR 28@,2:PLOT 298,18 
:DRAWR 294 ,@:PLOT 296,.9:DRAWR 288,8 


(8, } 
m 


L6F8BI 


L1C761 
[2191 


caa821 
LBFS8] 
L2E621 
[362E1 
CD@52] 
[7028] 
LF@B41 
LCAB6] 


C13BA1 
L[S2ACI 
LC28C3 
11792] 
CBiFAI 


L16ACI 
L9CBEI 


[B458] 
LBCB61 
13898] 


L99BE1 
L37FA] 
LC4AB] 
LA6C21 
£23D41 
LAIEAI 
LA7@EI 
L66E61 


L61E21 
[29681 
L@52@1 
[59881 
L7EEE] 
163961 
LSDFEI 
[DEB@]1 


CBBBA] 


LFIF@I 
LAEICI 
L&A28] 
CB2FCI 


13D64] 


ONPUTER) 


2050 PLOT 274,8:DRAWR 212,@:PLOT 292.7:D 
RAWR 216.BrPLOT 298, Ö:DRAWR 228,8 139881 
2@60 PLOT : DRAWR OrPLDT Z94.4:D 
RAWR 21 PLOT 236, :DRAWR 288,8 CAECBI 
2@7@ PLOT 238, GET 204 .0:PLOT 3@@.1:D 
138CC31 
2aea 
L43CC1 


RAWR 288 
IF Bgm ta} Jagfmta) THEN ba$ (a)="vers 
iegt" 
2098 LOCATE 5.13: PRINT"{CTRL X) Bemerkun 
X2";bm$(a) LEESAJ 
ersiegt" AND vs(a)>@ TH 
LSCECI 
211@ IF bm$(a)<>"versieat“ THEN 217@ [BES@] 


2128 LOCATE 2,21:PRINT"Wollen Sie Tankwa 
gen auf ein anderes Delfeld stellen 


132781 
AND 
1624A1 
";frIF 18 FOR +>twia) 
c29DA1 


215@ INPUT"Auf welches Oelfeld "sofn:IF 

ofn<® OR ofn>bb OR ofn=a THEN 2158 [&D261 
2168 tw(a)=tw(a)-f:tmlofn)=tw(ofn)+FsCLS 

:60T0 1848 EDDEAI 


2178 LDCATE 5,16:: INPUT"Wieviel 1 verkau 
Se 13502] 

2188 IE 1> vsta) OR 1>tkta) OR 1<@ THEN 
PRINT"Wohl vertippt ‚wah _!"ı1=@ L3A581 


219@ vs(a)=vs(a)-l:k=k+l*pr:GOSUB 2848 [10281 
2208 LOCATE 22,2@:PRINT"(CTRL X) Taste ( 


ETRL x3" 186541 
2218 60T0 1848 [7A16] 
2220 FOR z=1 TO bb LCSF8] 
2239 gespu=gesputpu(z) [ZEBEI 
2240 gestak=gestak+tm(z) 194881 
2258 NEXT:CLS EDF88] 
2260 xx=125: yy=37@:x1=125: y1=325: y2=18@: 

GOSUB 2700 1B28R1 
227@ LOCATE 26, SIELINEERE IN x Zusatzko 

sten {CTRL 134561 
228@ LOCATE 17, SEPRINT"Loehne fuer ";gest 

akı"Tankwagenfahrer:" 15@A21 
2290 LOCATE 48,7:PRINT gestak#253 "$" CD44C3 
2508 LOCATE 17,9:PRINT"Ünterhaltungskost 

en fuer" LS@DEI 


231@ LOCATE 17,1@:PRINT rn "Pumpen: {1 


3_SPACE}";gespur15: LZASCı 
2328 LOERTE, 29, TETPRINTSCETRL % Taste ( 

ETRL %3" 142721 
2338 k=k-gespu*15:k=k-gestak#25:G0SUB 28 

4Q:CALL &BBB& 118281 
2348 REM #ruıa= CF1D21 
235@ REM Kredit LEDAZI 
2568 REM #uuna“ 175D61 
237@ CLS: IF k>@ THEN 2458 LFB3@] 
2398 PRINT:PRINT"(14 SPACE)Sie bekommen 

einen Kredit von der 135A83 
2398 PRINT" (14 ee Raff, Gier & 

Co in Hoehe 2B0004” 13E421 
2400 PRINT"<14 SPACE)DIe jaehrliche Rate 

betraegt S@@@$" LaDB21 
2418 Bee GOSUB 2848: sc=sc+20088 [29FEI 
2428 REI L2F981 
2430 IF cn THEN 249@ TACARI 

LOCATE 22,9: PRINT"{CTRL X) Gesamtsc 

huld :{CTRL %3"3sc EF96AI 
2458 LOCATE 22,11::PRINT"- Rate (308@$)" 

1sc=sc-S@00: k=k-3200 L43F6] 
246@ LOCATE 22,.13:PRINT"{CTRL X) = neuer 

Saldo: {CTRL X}"sc [88641 
2478 CALL &BBB6:CLS CC7AAI 
2480 jj=jj+1: IF j=2@1@ THEN 2558 ELSE 6 

42 121081 
2498 k=k+isc#(- EN 2840: sc=® LBAA4] 
25@® IF j=2@18 THEN EF176] 


2518 ij=jj+1:60T0 648 L39ACI 
252@ REM xununnunnanne LC31EI 
REM Endauswertung LSBBAJ 
2548 REM an. LF9221 
2558 LOCATE 3®,4:PRINT"{CTRL X} Endauswe 
rtung {CTRL X}" L3FDCI 
2568 LOCATE 3@,8:PRINT"Kapitals"sk EFC7AI 


257@ IF sc>@ THEN k=k-scıLOCATE 16,10: PR 
INT"Kapital nach Abzug der Kreditsc 


hulden:";k [96481 
258@ LOCATE 3@,12:PRINT"{CTRL X} Spieler 

z{CTRL X) ";UPPER$(n$) LFS52@1 
259@ IF _kc@ THEN LOCATE © 22, AB: PRINTTERSC 

HIESS DICH !!!12 SPACE}VERSAGER 


19940] 
2608 IF k>® AND k<=30800® THEN LOCATE 26 
„18:PRINT"Du bist ein PLEITEGEIER ! 


261@ IF k>3S@O00B AND k<=6Q@GBB THEN LOCA 
TE 25,18:PRINT"Du bist ein GLUECKSR 
ITTER !" LFBFEI 

262@ IF k>&2OB@0 AND k<=1@0@B9B THEN LOC 
ATE 21,18:PRINT"Du koenntest JR Kon 
kurenz machen !" 165301 

2630 IF k>1@GBEBR AND Kk<2029000 THEN LOC 
ATE 2@,18:PRINT"Carrington haette k 
eine Chance gegen Dich" C@acEI 

2640 IF k>=2B00@@8 THEN LOCATE 29, Isernı s 
NTzDU BIST DER CHAMP !!!":GOSUB 2 


LFCABI 


178741 
2658 END LED88J 
2668 REM zur. [A488] 
267@ REM Hymne [2GE8] 
2680 REM san.= CAABCI 
269@ DIM ton (28) „ ‚dauer (28) Ne L95E8] 
27@@ RESTORE 2778:FOR 28 [8854] 
2718 READ ton(a) ‚dauer I spauze (a) ıNEXT 
a 1381C3 
2729 FOR a=1 TO 28 EFBICI 
273@ ES ENKENEN IF a6-CHRE(13) THEN RETUR ouı 
@ 
278 Souno 1,ton(a) „dauer (a) LS51CAJ 
275@ FOR b=1'TO pause(a) ıNEXTINEXT 122D41 
2768 RETURN LIEFEI 


277@ DATA 319,75,1,379,58,58,478,50,5@,4 
za; Auer 188,379,58,1,319,50,58,237,1 


LICA&I 
2788 DAih 198,75,1,213,58,58,239.50,50,3 
79,50,50,558,50,58,317,188, 108,319, 
E g Es [98021 
270 Data 512500 1701 75,28 25,25, 
58, 253,100, 188, 284,58,1,253, 
158341 
2000 DATA 478,50,50,478,58,58,519,50,50, 
375,8 58,478.58,58,319.58,1.379,5@ 
LBEIEI 
Zu10 REM aunsunsenseee [32221 
2828 REM Window, Inhalt L@0D81 
ZUSB TEN sarentassssss [66263 
2838 CL: tora8] 
2ES@ PRINTELLPRINTRL," gahrz"a5 L18BEI 
286@ PRINT#1," Kapitalz":k LASBEI 
287@ PRINI#1:PRINT#1,“ Spieler: "ıPRINT# 
1, TAB(2) UPPER$ (n$) L1E341 
2880 RETURN CB9Aa] 
289@ REM suunuuuneeee LASDE1 
29@® REM Draw-Routine EcD2@1 
291@ REM aunnunenseee L&CDB1 
2928 PLOT xx ‚yysDRAWR 26@ O:DRANR 8,-265 
:DRAWR "268,8: DRAWR & tC9ecI 
2738 PLOT x1,yirDRAWR 268, &:PLOT x1.y2:D 
268.8 tDa921 
2940 Return [989E1 


Listing. Haben Sie das Zeug zum Ölmagnaten? (Schluß) | 


ondsüchtig 


nach den Sternen greift, will dort auch gut 
men. Bei »Lunar Lander« brauchen Sie viel 

ühl, um Ihre Landefähre durch Felsspalten 
Krater zu dirigieren. 


iel Spiel mit wenig Basic bietet Ihnen Lunar Lander. 
Sie übernehmen mit dem Joystick das Kommando 
über eine Mondfähre, die es sicher auf dafür vor- 
gesehenen Plattformen zu landen gilt. Wenn Sie das Pro- 
gramm abtippen, müssen Sie aus den Listings drei Dateien 
erzeugen. Um Lunar Lander zu starten, verketten Sie mit 


»MERGE«Listing 1 und 2. Statt Listing 2 (Mondlandschaften) 
anzuhängen, können Sie auch die von Ihnen mit Listing 3 
erzeugten Landschaften benutzen. 

Nach dem Start des Programms erscheint im oberen Teil 
des Bildschirms das Statusboard. Sie steuern Ihre Lande- 
fähre mit drei Düsen, die mit dem Joystick zu schalten sind. 
Um auf den farblich gekennzeichneten Plätzen erfolgreich zu 
landen, müssen Sie mit Schubkraft auf eine sehr niedrige 
Landegeschwindigkeit drosseln. Haben Sie alle Landeplätze 
eines Bildes einmal angesteuert, so gelangen Sie ins nächste 
Bild. Immer wenn Ihre Fähre mit den landschaftlichen Tücken 
kollidiertoder zuhoch hinaus will, verlieren Sie Ihr Raumschiff 
in einer dramatischen Explosion. Das kostet Sieje nach Spiel- 
stufemehr oder weniger Treibstoff. Beijedem neuen Bild, das 
Sie erreichen, wird Ihr Treibstoffvorrat erneuert. Das Spiel ist 
vorbei, wenn Sie Ihren gesamten Vorrat verbrauchen. 


55 


Mit dem »Lunar Designers stricken Sie sich Ihre Mondland- 
schaften selbst. Nach dem Programmstart erscheint unten 
links ein Pixel-Cursor, den Sie mit dem Joystick über den Bild- 


Lunar Lander 
‚schirm steuern. Die dabei auftretende Gerade fixieren Sie mit 
dem Feuerknopf. Bei waagerechten Linien müssen Sie den | Computer: CPC 464 
Feuerknopf zweimal betätigen, wenn Sie eine Plattform Checksummer: Explora 
erzeugen wollen. = 
(Steffen Adomeit/Matthias Rosin) Datenträger: Kassette/Diskette 
100 ° #####* LUNAR LANDER 19484] | 67@ RETURN L7D3A1 
110 ' »»### geschrieben 4/86 [AEBEI | 680 ı CCEF@] 
120 ' ##### von Steffen Adome; [B@1A] | 690 ’ #“##* Alle Plattformen angefl LE7BB) 
1390 : anne“ Te 02117828855 £ 700 WHILE tr >O:GOSUB S9B: sco-scorl: 
148 ' auune £259C] 768: SOUND ge tr ‚8,6, 11WEND LCE3@1 
150 tbeeeı | 7ı8 sigmbilge scofo t@sse1 
120 MODE 1: IKB, @:INK 1,26: INK 2,20: INK 728 ECEE6] 
3, 14: BORDER 188741 | 730 ' »###* Spiel zuende (Kein Fuel) 1997E1 
170 PEN 2:PORE LBICH, SPRINT TAB«S) "Luna 7A8 TASOFFELDERTE 14,6: PEN 11 PRINT"GAHE 
R_LANDER":POKE &BICB, 187881 OVER":SPEED INK 5 Su Ing i C3BF41 
180 PRINT TABLB) "Stetten Adomeit, 4/86" 75@ IF sco>hi THEN h 
LEZFCI LOCATE 4,11 FRINT"C2 SPACE) "LOCATE A 
19@ ENV 1,6,-1,20:ENV 2, 15, T1351ENV 3,15 „ATPRINTEHI" NEXT COBREI 
1 ,BIENT-1,2,1,1,4,7-1,1,2,1 Lzuge) | 7m FOR imi TO ABBOLNEXTLINK 1 26:LOCATE 
200 BEFINT a-2:808U5 1140: Symbels [BSCC) 14,6: PRINT SPACE SoTo 248 LFOCEI 
210 ee ee 770 : tCDF@1 
I +CHR$ (244) ° Lunarmodule tCD7EI | 78@ " »=e.# Gluecklich gelandet TB9AEI 
220 DIM pl (1@,2):hi=1008 t3F461 | 798 128,239, 
230 : tCDDEI »@,15,3,12 SOUND’ 1 EB2AAI 
240 sco=®:bild=1:1 zc= [3F48) | 808 amtidı ca9383 
258 LOCATE IN1:PRINT"CS SPAGEIHI"LLOCATE 81® IF pl(i,@)<>-1@@@ AND a>pl(i,1)AND a 
1,2: PRINT DEC$ (chi, "annan“ LB9Fa1 <p1(i,1)+pl (1 ,BDAND b<pl (1 ,2JAND b>p 
260 RESTORE:GOSUB 990: PEN 1TLOCATE &,5:P 14,2)-8 FOR i1=@ TO & STEP 2:M 
RINT"Druecke Taste fuer Spielbeginn“ OVE'pl (1,1) „pl(i,2)-i13DRAWR pl (1,8) 
182881 ar nexr Tiscoscospl i, Deplti,d= 
27® a$=INKEY$: IF as<>""THEN INK 1,26:L0C -18@8: upl=upl-1:1=1000 [78221 
ATE 6,5:PRINT SPACES (38) :G0T0’35® LSIBCI | 82@ NEXTIIF uplCi THEN 788 ECAACI 
28@ c=c+13IF c>42@@ THEN c=@ to0s01 | 838 gelmisystepmd:xstepz@rBOSUB 96045070 
298 INK 1,26-((c/7)MOD 26):6010 27@ 1925C] sse LA67CI 
3@@ INK 1,(c/7)MOD 26:60T0 27@ [3EBB) | 840 ı LFEECI 
18 : CDBDCI | 858 ‘ »s#.* Faehre zerstoert [1446] 
320 GOSUB 99@' Landschaft malen [89C6] | 8&@ SOUND 135,8,188,15,2,8,2@:i1=@:FOR i 
330 GOSUB 968: TAGOFF" Score ausgeben [2D261 =1 TO _1@B: INK_1,26-174 LFC741 
329 SOSuB 1110" Sterns malen t82FE) | 87@ IF i/S=INT(I/SITHEN il=il XOR 1sIF i 
35@ tr=576: TAGOFF:LOCA SzPEN 2: PRINT 1=1 THEN MOVE x,ysPRINT 01%5:MOVE x, 
CHR# (24) STRINGE (AB, 2AB) CHRS CZAD UNE y-16:PRINT o2$3ELSE MOVE x,ysPRINT © 
ATE_1,3:PRINT CHR$ (245) CHR$ (246) CHR$ HR$ (249) CHR$(25@) ; MOVE x,y-16: PRINT 
(247) EHR$ (248) PEN 1° FUEL [82081 EHRE ZSICHRE (2520; LCF@@] 
36@ LOCATE 1,24PEN S:PRINT CHR$(24) "sco =] L6AFEI 
re"CHR$ (24) t2ersı | 898 FOR i=1 TO SO+tlev-i)#221G0SUB 598: 1 
37@ PEN 2:LOCATE 39, 1:PRINT"B";MID$(STRE F_tr>@® THEN SOUND 135,i*18,2,3 ELSE 
bild) „2) tıD181 i=lev:3@ L6F78] 
38® LOCATE "39,2: PRINT"L"3MID$(STR£(Iev) , 9@@ NEXT:GOSUB 938: TAG: INK 1,26:FOR i=1 
tEDA2I TO 2@@@: NEXT: IF tr>2® THEN 39® ELSE 
39@ »Step-B: yatep-Bıy-348:n=2:t=B:x1=dıy 740 LCE72] 
1=B:gel tı7a8) | 918 : [D7E8J 
400 POKE"LBSS8,B: PRINT CHRS(Z3ICHRE (1) 5: 928 ' »s##* Faehre loeschen [B468] 
AG TaMEı | 938 PRINT o1$33MOVE x,y-16:PRIN 
410: LCFDEI T 0283 3 TAGOFF=RE 151941 
420 ' »###* Hauptschleife 19C681 | 948 : CDBEEI 
43Q z=PEEK(&B4FA): IF tr=® THEN z=@ [7AIB) | 958 ' #re## Score ausgeben LASBAI 
440 IF gel=@ THEN t=t+1:IF t=5 THEN t=B: 96@ TAGOFF:PEN S:LOCATE 1,25:PRINT CHR$( 
GOSÜB 630 tzE1C1 24) DEC$ ( (sco, "ARRHR")EHRSCZA) PEN 1a 
45@ IF z AND 8 THEN SOUND 132,0,8,6,1 “2; ÜOCATE 1,1: TAGERETURN L433C1 
10: gel=@: G0SUB 598: IF xstep/B THEN L9DF4) 
step=xstep+2 tcc281 ddlandschaft malen [869A1 
460 IF z AND 4 THEN SOUND 129,2,@ 640,0, 550:CL6 @:OR 
10: gel=0: G0SUB S9G:1F atens a THEN 40: TAGOFF=PRINT CH 
satep-uatep-2 LF99@1 179891 
47® IF z AND 1 THEI 1000 READ al,bisIF aln-i THEN RESTOREıle 
19: gel =0:GOSUB 598: IF ystep vzleyriibilde TO EFZIEI 
ystep=ystep- £C47C] 1018 p=®:READ bsIF a=-i ITREN upl=pl:pl 
408 Xeutnnlepıy = st CBE261 1-11 RETURN tBE121 
490 IF y>3SBOR vera THEN yatep=@ CF2A2] 1020 IF a<@_THEN astaup=iipl (pl 1)=alspı 
508 IF x>6a0 THEN xe6ndsralaneh LB5AA] (pl ,2)=biapl (pl ‚B=ABS (a al)spl=pi+ e a 
10 IF x<® THEN x=@:xstep=@ CAAFB] „1D34@ 
520 MOVE «1,yisPRINT @l$} MOVE x1,yl-idr 1858 IF acai THEN col=® ELSE col=3 »LICE6] 
PRINT za L67FC1 i8a0 dnnanalıdyeb-b11 1=BOR (dusdxsdyady) reisel 
53@ POKE LBS58,240:HOVE x ,yaPRINT olsjım 1@5® FOR e=® TO 1 ST 
-16/ PRINT 026; N zzı81 106@ MOVE alterdx/l,bi+erdy/l:DRAWR @,-4 
540 IF IE Tesfne2ı -32)=2 ÄND TEST (x+28,y- @@,col LB6A61 
32)=2 AND ya <3_THEN 798 140221 1878 IF nei THEN MOVE (altesdx/1) , (bitand 
55@ IF gel=®@ Ti Resten nz, »v-32)0R TE y/1}sDRAWR @,-& 106001 
ST(x+28,y-32)OR TEST (x-2,y-1®)OR TES 1000 NexT:alrarb12b:&0TO 1910 C3EI 
BER+ 32, yzt@LOR, TESTIREARYJOR TESTIX+ 1098 : [D@481 
28,y+2JiIF te>i THEN 866 tAD381 1188 ‘ *==** Sternenhimmel malen 114461 
568 x1llıylayıaoTo a0 195BAJ 111® POKE &B338,24@:FOR i=1 TO 1@:a=(RND 
570 : CDDECI #318) #2: b= {RND«175) #2 LB46C1 
588 ° #u#* Treibstoffverbrauch CAzası 1120 IF TEST(a,b)=@ THEN IF ROUNDCRND) 1 
59@ IF tr>Q THEN tr=tr-ZiMOVE tr+64,352: THEI a-1,b:DRAWR 3,8:MOVE a,b 
DRAWR @,14 1D7C61 IF DRANR 8,3 ELSE PLOT a,b LSEB61 
608 POKE 18358) 240: RETURN L67CE] 113@ NEXT:RETURN LFC7CI 
#1: LESEZI 1148 : 1B94@1 
620 ° xs=»= Traegheit der Faehre/Mondanz 1150 ' »s### Grafikzeichen definieren L[9226] 
{ehung 199841 1160 SYMBOL 240,0,0,02,1@2,102,1@2,08,8  L17FAI 
630 IF xstep>® THEN xstep=xstep-i CC1FB3 
e30 IE xsten<® THEN xstep=wstepel ECEFZI 
650 THEN RETURN [B9EE] 
668 ir ystep<1& THEN ystep=ystep+i L156A] Listing 1. Landung auf dem Mond 
8 


INPi 


SYMBOL 241,0,32,32,127,255,196,196, 
127 


2 LABCEI 

SYMBOL 242,30,30,16,254,255,35,35,2 

EDB4E] 

SYMBOL 243,117,53,31,12,12,24,248,2 

48 (78481 

SYMBOL 244,94,92,248,48,48,24,15,15 

LO6A61 

SYMBOL_245,254,254,192,192,254,192, 

192,192 11664] 

SYMBOL 246,198,198,198,198,198,198, 

54 ‚254 L9CB23 

SYMBOL 247,254,254,192,192,254,192, 

254 ‚254 LEB6B3 
1240 SYMBOL 248,192,192,192,192,192,192, 

254 ‚254 LEC72] 
1250 SYMBOL 249,0,8,8,7,15,15,7,7 1738601 
1260 SYMBOL 250,0,0,24,252,254,254,252,2 

52 taasaı 
127@ SYMBOL 251,15,31,31,15,7,0,8,@ [2266] 
1280 SYMBOL 252,252,248,248,240,224,0,0, 

@ C26DA3 
129@ RETURN CBD9B] 
1390 : EC9SC1 
Listing 1. Landung auf dem Mond (Schluß) 

“““e" Ab hier Mondlandschaften LC2441 

ı CC74@] 

en An 00.135140 17218) 

TA 21,90,1,100, „60,245 

‚60,275, 28,507 ,88,337,10@ 170561 

pata 345,126,389)160,405,17@,-479, 

170,493, 180,513,186,553,184,553,178 

128821 

DATA 563,144,589,114,609,108,637,1 

2,-1, ta7ıal 

Fi CcEAAI 

* ee bild 2 CDC241 

DATA 21,90,1,100,19,108,55,128,85, 
16@,105,104,-163,184 179,192 728E1 

Data 199,212,213,240,-279, 240,293 

224,315,202,355,188,47,174,449,168 

CDC6B3 

DATA -501,168,527,164,553,138,561, 

54,561, 30,-635,30,537,38,-1, LB6661 

: £D1421 

wnuer bild 3 EDSIEI 

DATA 21,90,1,100,29,148,67,188,-11 

9,188,119,92,-165,92 LIAAsı 

DATa'-219,234,243,250,271,202,279, 

154,271,104,279,58,303, 16,315 7aacı 

Data 327,4, -39: 8,431,40,439 

‚76,447,118,-495,118,501,134 casaB] 

Data 511,150,-587,150,557,168,575, 

198,599, 240,625, 276,637, 288,-1, A112] 

: ECBAEI 

® anne steps L9EACI 

DATA _21,90,1,100,9,80,-51,88,69,8@ 

69,68,-117,68,129,88 1SBEB] 

Data 129,48,-181,48,195,48,195,68, 

7,68,-295,68,255,80,273,88 153DC1 

DATA "331 ,80,331,92,-393,92,393,10 

8,-451,108,451,124,-517,124,517,15@ 

147391 

DATA -573,150,573,186,-627,186,627 

‚218,637, 218,-1, (25EA] 

H CC948] 

a0ee# compl ECF7EI 
DATA _21,90,1,100,17,76,33,66,55,58 
79 ,52,105,56,123,74 tE9TEI 
DATA 137,112, 149,166,163,228,185,2 

56,209, 278,255,298,281,298,371,3@04 LESIEI 

DATA 451,296,525,274,541 ,260,543,2 

36,525, 214,479,212,425,218,349,238 [37301 

DATA 273,232,223,2@2,205, 160,209, 1 

44,-273,144,283,144,299,132,291,108 

CB5481 

DATA 269,96,243,98,209,90,201,74,2 

@7,52,221,4@,-277,48,299,3: 188481 

DATA’ 347,24,391,36,435,74,453,128, 

475,168,-571,168,595,188,615,212  L7E761 

Data 623,238,625,268,613,294,597,3 

10,603,320,623,330,637,330,-1, L2DSE] 

: (D6481 

® uunun 7772: LF7821 

DATA 21,98,1,100,19,174,-65,174,-1 

35,174,-177,174,-243,174,279,174° _ [84181 

DATA "339,174,"383,174,"471,174,-5 
15,174,-555,174,-599,174,637,174,-1 
LCECAI 
CaAS@] 

" xu8#* pferdefuss CB9BEI 

DATA 21,90,1,1@0,25,154,67,186,141 

„204,-199, 204,255, 188 toere1 

DATA 285, 154,285, 112,269,80,235,66 

„195,06,187,58, 145,32 14 LESBAI 


‚10 
DATA -287,10,307,18,327,38,361,68, 
Listing 2. Mondlandschaften 


= SPIELE: 


373,120,367, 164,367, 192,377,23@ 
1720 DATA 467,276,489,316,517,330,593,3 


22,625,330,637,330,-1, 
1738 : 
**+#* plateau 
DATA 21,9@,1,100,29,108,63,140,81, 
188,89, 256,301 ,256,313,262 


DATA _323,268,347,286,361,278,385,2 
56,-551, 256,557 ,222,573,172,587,148 
177@ DATA -637,140,638,148,-1, 

ı 
“...* ecko 


1798 ° 
DATA 21,90,1,100,37,150,37,50,-81, 
59,81,198, 159,250, 159,38 
DATA'-207 ‚38,207 ‚282,287 ,282,-339, 
282,431,282,431,134,405,134,485, 258 


DATA _235,258,235,196,-291,196,291, 
168,235,168,235,188,-289,188, 289,75 


DATA 235,76,235,28,-293,28,483,28, 

"Balaches 30078151 362,7889 ap 07» 

282,575, 509 ,256,569,204,-547,28 

1850 DATA 567,192,5@09,192,5@07,148,-625 
148,625,202,687,282,-1, N 

1868 : 

1870 DATA -1, 


Listing 2. Mondlandschaften (Schluß) 


LIAFZI 
LACS2] 
CD24AJ 
1D3221 


187241 


[D6141 


L4EE2] 
[DD521 
19368] 


10@ MODE 1zINK @,@: INK 1,26: INK 2,20: INK 
3,14: BORDER @:PEN 1 
11@ PEN 2:POKE &B1C8,@:PRINT TAB(4) "LUNA 


R_ DESIGNER" :POKE &B1C8, 1 

128 PRINT TAB(11) "Steffen Ädomeit, 4/6" 
:LOCATE 1,25:PRINT"#####";3LOCATE 1, 
24: PRINT"A##a#" PEN 1 

130 MOVE 638,Q:DRAWR @,398,1 

140 x=1:y=1Qd:lx=nılyey 

150 DIM a(5@Q,1):a(1,@)=x 

Y=x+20: a (8,1)=y-I@scur=1 

i 


170 ‘ **##* Hauptschleife 
188 j=i (&BAF4) 

190 IF INKEY$="X"THEN GOSUB 290 

200 an AND 8 THEN IF x<636 THEN x=x+2 


y>@_THEN y=y-2 
1 AND yCS3@ THEN yayız 
Move Ix„1ysDRAW ABS Ca (cur „@)) „atcur, 
MOVE x,yıDRAW ABS(atcur ,@)) ‚atcur,1) 


1 
260 Ixs=wıly=y:G0T0 188 
B 


200 ' wunnn ea wurde gedrueckt 

290 SOUND 135,100: IF atcur,@)=x AND acu 
F,i)=y THEN IF alcur ‚1}=atcur-i,1)AN 
D'ABS(ABS (a (cur „@) )-ABS (a tcur-1,0))) 
>36 THEN 31@ ELSE RETURN 

300 cur=cur+1:a(cur ‚BO =x:a(cur ,1)=yıRETU 


AN 

31@ SOUND 135,89: a (cur ‚®) =-a (cur ‚@) 

32@ IF afcur,d)<® THEN FOR i=y TO y-1@ S 
TEP-2:MOVE x,i:DRAW ABS (a cur-1 
i,1sNEXT ELSE FOR i=y TO y-1@ STEP-2 
MOVE x „i:DRAW ABS (a (cur-1,0)) ‚i,QrN 


EX 
33@ RETURN 

a 
” »#### Programm erzeugen 
36@ LOCATE 1,1:PRINT SPACE$ (129) +LOCATE 


151 
37@ CÄLL &BB@3: INPUT"name des files";as 
3880 INPUT"erste zeilennummer";z 
390 SreEN WRITE 1:0PENOUT"LUN-"+a$:curz= 


498 PRINT#9,25":"22=2+13PRINT#9,25"" 
** "Hafızez+i 

410 a$=" data ":FOR i=1 TO 8 

420 IF alcurz,B3=@ AND afcurz,1)=@ THEN 


430 b$=STR$(a(curz ,@B))+","sIF alcurz,@)> 
=@ THEN as=as+MID$(b$,2)ELSE as=asıb 


s 
440 b$=STR$ (a (curz ,1))+","zIF afcurz,1)> 
a THEN a$=as+MID$ (b$,2)ELSE as=astb 


450 curz=curz+1:NEXT 

IF curz<cur THEN a$=LEFT$(a$,LEN(a$) 

-1IELSE as=as+"-1," 

478 PRINT ,218$tzez+is Ir curz<cur THEN 
1 

488 CLOSEOUT:RUN 

Listing 3. Lunar-Designer 


... 


L8BA&I 


181143 
Ca9BC] 


L4EE2I 
LA62C1 
ECCE2I 
[B976] 


14n441 
LAF1B] 


LF476] 
[42901 


[B6FE] 
125283 


[66263 
[C3A61 
[56A2] 


L3B1@1 
[34B2] 


57 


Feldherrn unter sich 


»Feldherr« ist ein dem Brettspiel Risiko nach- 
empfundenes Strategiespiel für zwei bis vier Per- 
sonen. Es geht darum, möglichst viele der 42 
Länder auf einer Weltkarte zu erobern. 


isting 1 enthält das eigentliche Spiel, von dem aus die 

Binärdateien RISIKOMC.OBJ und RISIKO.BIN aufgeru- 

fen werden. Listing 2 enthält den Maschinencode-Teil 
und erzeugt die Datei RISIKOMC.OB\). Listing 3 schließlich 
beinhaltet alle Daten der einzelnen Länder und die komplette 
Weltkarte. Sie starten es mit »RUN 9000«. 

Und nun zum Spielablauf: 

Die Randfarbe, die während der Eingabe des Namens eines 
Spielers erscheint, macht auch im Verlauf des Spiels kennt- 
lich, wann dieser Spieler an der Reihe ist. 

Nach dieser Eingabe informiert der Computer über die 
Stärke der Nachschubarmeen des ersten Spielers. Danach 
werden Sie aufgefordert, Ihre Armeen in Ihren Ländern zu sta- 
tionieren. Dies geschieht dadurch, daß Sie das Fadenkreuz 
auf dem Bildschirm mit den Cursortasten oder dem Joystick 
auf das Land bewegen, das mit Armeen besetzt werden soll. 
Dann drücken Sie einfach »Copy« oder »Fire«. 

‚Armeen können allerdings nur Länder besetzen, die schon 
im Besitz des jeweiligen Spielers sind. Um welche es sich 
dabei handelt und wie viele Armeen sich in diesen Ländern 
bereits befinden, erfahren Sie, wenn Sie »Space« drücken. 

Pro Land können Sie nicht beliebig viele Armeen stationie- 
ren. Die maximale Anzahl an Armeen, die Ihnen zugestanden 
wird, eröffnet Ihnen ein Druck auf die »M«-Taste. 

Nun dürfen Sie aus denjenigen Ihrer Länder, die mit mehr 
als einer Armee besetzt sind, Ihre Mannen abziehen und 
anderswo einsetzen. Dies ist allerdings nur möglich, wenn 
eine durchgehende Verbindung zwischen den eigenen Län- 
dern besteht. 

Sie können nur Länder attackieren, die direktan Ihr eigenes 
Territorium angrenzen. In dem angreifenden Land muß sich 
aufjeden Fallmehr als eine Armee befinden, da sonst im Falle 
einer Niederlage das Land unbesetzt bliebe. 

Nun erscheint ein sogenanntes Würfelmenü. Dort löst der 
Angreifer durch Drücken von »Fire« oder »Space« den Wür- 
felvorgang aus. Ist die Zahl der angreifenden Armeen größer 
oder gleich 3, so darf er dreimal würfeln, ansonsten entspre- 
chend der Armeenzahl. Dann würfelt der Verteidiger. Die 
gewürfelten Zahlen werden vom Computer automatisch der 


Größe nach sortiert und verglichen. Für jede Zahl, die niedri- 
gerals die des Gegners ist, verliert man eine Armee. Bei zwei 
gleichen Zahlen verliert der Angreifer. Diese Prozedur wird 
nun so oft wiederholt, bis der Angreifer aufgibt oder der Ver- 
teidiger keine Armeen mehr besitzt. Im zweiten Fall muß der 
‚Angreifer mit mindestens einer Armee im eroberten Land ein- 
marschieren. 

Nun kann man weiter angreifen oder seine Armeen ver- 
schieben. Hat man sich für ein Verschieben entschlossen, ist 
für diese Runde kein Angriff mehr möglich, und nach dem 
Verschieben kommt der nächste Spieler an die Reihe. 

Nach jeder Runde erhält der Spieler, der an der Reihe ist, 
eine bestimmte Anzahl an Armeen. Diese errechnet sich aus 
der Zahl der besetzten Länder geteilt durch 3, den Kontinen- 
ten, die der Spieler besitzt, und den in der letzten Runde er- 
oberten Ländern. 

Zusätzliche Armeen für Kontinente: 


Die Länder der einzelnen Kontinente sind an einer charak- 
teristischen Färbung zu erkennen. Außerdem meldet der 
Computer, wenn ein Spieler einen Kontinent erobert hat. Der 
Computer registriert, wie viele Länder ein Spieler in einer 
Runde erobert. Die Anzahl der Armeen pro erobertem Land 
nimmt mit jeder Runde zu. Am Anfang liegt sie bei 1/10, das 
heißt, man muß 10 Länder erobern, um eine Zusatzarmee zu 
bekommen. 

Je mehr Nachschub anrolit, desto höher steigt der Spieler 
im Rang. Nach dem Soldat folgt der Gefreite, dann der Haupt- 
mann, General und Diktator. Es kann nun vereinbart werden, 
daß das Spiel zu Ende ist, sobald ein Spieler einen bestimm- 
ten Rang hat oder eine bestimmte Zeit abgelaufen ist. 

(Markus Melchinger/ja) 


Computer: 
Checksummer: 
Datenträger: 


Explora 
Kassette/Diskette 


REM HH LAE7EI 
208 REM «* “= L[ICSCI 
3@ REM RISIKO “* [9588] 
48 REM ”- [94681 
5@ REM #* produced 1984/85 by ““ (5768] 
40 REM #* kus Melchinger ** [BS46] 
7@ REM #* Laubachı 24 “= [F418] 
80 REM #* 7958 L: im ” cC 
90 REM ** “= [82641 
100 REM ** for the CPC 464 “* [50721 
11@ REM #* ** [7570] 
120 REM nn [IB9AI 
13@ REM 157381 
148 CLS 1752E] 
15@ DEFINT a-z 19839] 
168 Y &B998:LOAD "!risikomce.obj":LO 
AD_"'risiko.bin" 86781 
17@ DEFINT a-z:DEF FNdeek (z)=PEEK (z)+256 
#PEEK (z+1) :ds=&8D68 10861 
188 REM Parametereingabe #uuunsnnuneune [OFZAI 
190 REM CA1SCI 
20@ DATA 1,6,0,24 L9CDAI 
21@ MODE 1:BÜRDER ®:RESTORE 280: FOR i=® 
TO S:READ fzINK i,#:NEXT i [A186] 
228 PEN 1:PAPER 3: PRINT:PRINT" RISIKOCZ 
SPACE}by Markus Melchinger{11 SPACE> 
” L2FBSJ 
EC76E] 


L 23® LOCATE 1,24:PRINT SPACE$(4@) 5 


24@ PEN S:ıPAPER @:LOCATE 2,5:PRINT"Anzah 
1_der Mitspieler (2-4): ."ıLOCATE 31 


.= L65F@] 
250 a$=INKEY: 1293A1 
260 IF a$="" THEN 250 LABE6] 
27@ IF a$c"2" OR a$>"4" THEN SOUND 2,7@, 
18:60T0 258 L4EIEI 
288 PRINT as t7EDB] 
29@ a=VAL(a$):DIM names (a+1) CF4321 
3@@ PEN 1:PRINT:PRINT" Namen der Mitspie 
ler: ":PRINT+PRINT [94521 
31@ CALL &BBB1 [5C861 
32@ FOR i=1 TO a LABAEI 
33@ BORDER i+2 CA7F41 
34@ PEN S:PRINT i5;"Soldat "5:PEN 1:PRIN 
RER PRLTPLTE 43 SPACE)"; L78C81 
35@ LOCATE 11,8+2#iıng="" [5566] 
368 j=-1 13262] 
370 a$=INKEY$S: IF a$="" THEN 378 CBB781 
38@ e=ASC(as) [CDS41 
39@ IF e=&7F AND j>1 THEN j=j-1:n$=LEFT 
#in$,LEN{n$)-1): 
PRINT CHR$(8)5 ". "5CHR$(B) 4: 
6070 378 124181 
408 IF e=13 THEN 448 198201 
418 IF e<32 OR e>126 THEN SOUND 2,7@,1@ 
:60T0 378 1717C1 


420 „ar j<16&_THEN n$en$+asıPRINT asjıj=j 
ELSE SOUND 2,78,1@ 
Fer *soro 37@ 
name$ (i )=n$: PRINT+PRINT 
28 NEXT i 


460 CALL &BBB4 
470 PRINTIERINT" Wie lange soll gespielt 
480 eRINTT" 2 x <Enter> wenn kein Zeitlim 
498 BEN SıPRINT" Stunden: .."3160SUB 338 


G:zeit=zersd 
5@@ PRINT:PRINT" Minuten: .."5:60SUB 338 


zeit=zeit+ze 

51® REM Rangnamen einlesen zunuunuunıer 

520 DATA Soldat ‚Befraiter ‚Hauptmann ‚Gene 
or 


55@ READ ns 

568 edle a 

328 NEN Laenderverteilung sunnunauunune 
ZE TIME 


#1@ FOR j=1 TO INT(42/a) 

620 adrndue11>INT (Faua2) = 38 

. IF PEEK(adr)<>@ THEN 628 
POKE adr ,isPOKE adr+1,1 

ea NEXT 3 

66@ NEXT i 


67@ FOR i=ds+11 TO ds+1241 STEP 3@ 
#88 IF PEEK(i)=@ THEN POKE i,INT(RND#ra) 


698 NEX 

700 REM Sr 

718 s=@: MODE | Sı PAPER 

720 DIM el Ya ‚arts (@)vartist2) artzei2), 
art3$( 


738 Abral=Bınl$=CHR$ (13) +CHRSCLE) 

70 ee 
+CHR$ (2) +CHR$ (18) +CHR$ (1@) +CHRS (1 
Becmeun 

758 art$(@=" in die "ıarts(1)=" nachtS 
SPACE} "ıart$(2)=" in den 

768 artist )="Die "sartis(i)=""sartis(l2) 


778 art2$(@)=" in der 


"1art26#(1)=" in "s 


788 art3#(®)=" von der, "ıart3s(1)=" von 

790 IF zeit=® THEN 818 

808 EVERY S@@@,1 GOSUB 4228 

818 karte-tor7dı na ver=48B26: darst=&BB4Dı 
'a=48B95: deleter=LEBeDı 

o20 Ir "zeit>B TIEN 


20 
830 CALL iva 


vp=&BBFA 
EVERY 30@@,1 GOSUB 42 


roltlsemfnEi"eN 


898 IF 1z=8 TREN PRINTEPRINT"Zivilist "5 
name$(s)ıPRINT"hat keine Laender meh 
ıFOR i=1 TO 2@@8:NEX 


18 Ir Teen THEN 113@ 
920 MODE @: PRINTıPRINT"Zeitlimit abgelau 
INT+PRINT=PRINT 


F n>=maxn THEN maxnenıs 


96B NEXT = 

970 mean 4118 

980 PAPER 2: BORDER s+2:PRINT"Sieger ist" 
3CHR$ (18) a PRINT us$s (status) ;CHR® 


[61:73 

998 INK 4 241SPEED INK 4,1:PEN 4 

1900 PRINE Eins GB) apRıNT 5 name$ (=) ICHR$( 

1818 PAPER B:PRINT:ıPRINTıPRINT:PRINT"Noc 
hein iel (j/n)” 

1828 IF INKEY(45)=-1 THEN 1878 

4 FOR i=ds+11 TO ds+1241 STEP 3@ 
POKE i,®:POKE i+1,8 

less a i 


1878 IF INKEY (a0) =-1 1228 

1088 PRINTSPRINT-Alten On; Spiel "ıPRINT"#ort 
setzen(5 SPACE} (j/n)" 

1@9@ IF INKEY(46)=-1 THEN 111@ 

11@@ IF INKEY$<>"" THEN 11@8 ELSE PRINT: 


END 
111@ IF INKEY(45)=-1 THEN 189@ 
1128 ==sa:ıG0SUB 4118: BORDER s+Zızeit=B:M 


ODE 1 

1138 BEN IPRINT:PRINT " "jstatuss(statu 
= 

1148 and SıPRINT name$(s) ı PEN 14PRINT+PR 


LFC76] 


C9A741 


PRINT” 
ea"; 
11658 PEN S:PRINT nl 

117@ PEN 1:PRINT 
PRINT" Fuer 


Fuer besetzte Laender {8 SPAC 
vorher eroberte Laender 


nelsPEN 1:PRINT 
PRINT" Fuer Kontinente(14 SPACE}:"} 


nkıPEN 1:PRINTIPRINT 


125@ IF zeit=@ THEN 1278 
126@ PRINT:PRINT:PRINT:PRINT" Noch zu sp 
ielende Zeit: ";zeit; "Min." 
127@ m$=" ":GOSUB 4868 
THEN 1 


IF n=® 408 
m$="Bitte verteilen Sie Ihre"+STR$( 


132@ m$=arti$(art)+ln$+" gehoert ihnen n 
icht '!"+nl$+"Bitte neu auswaehlen" 


60TO 1388 
1348 PRINT del$; "Wieviel Armeen"jart$(ar 


trins 
1358 PRINT "(altı"jazz "max. 
„atıng") . 


1378 ae OR ze>n OR az+tze>maxima THE 
1388 n=n-zeı POKE ca-i15,aztze 
60T0 1288 


1488 n$="Wollen Sie noch verschieben (j/ 


mn" 
1418 Auswahl =Q: GOsu 2778 
142@ IF a$="j" THEN GOSUB 


1438 IF a$<>"n" THEN 141@ 
1448 REM Angriff «= 
1458 m$="Wollen Sie jemand"+nl$+"angreif 


en (j/m)" 

468 auswahl=@:60SUB 277@ 

147@ IF a$<>"n“ THEN 1538 

1488 m$="Wollen Sie noch verschieben (j/ 
n’* 

1490 auswahl=®:60SUB 2778 

1588 IF a$="j" THEN GOSUB 377@:60T0 1488 


151@ IF a$<>"n" THEN 1490 
838 


soTo 

1538 IF as<>"j" THEN 

1548 wen Nelchen Land ae Sie angreif 
en 

1558 auswahl=1:G0SUB 277@ 

156@ IF b<>s THEN 1688 

1578 m$=arti$(art)+in$+" gehoert Ihnen = 
chon"nis 
BOSUB 4848 

1598 GOTO 1458 

=bıaza=azımaximaa=maxima:lca=icıl 
na$f=ln$ıcaa=cararta=art 

1618 m$="Von welchem Land wollen Sie ang 
reifen“ 

1628 auswahl=1:80SUB 277@ 

1638 IF az<2 THEN m$="Nur 1 Armee“+art2# 

tart)+In$+n1$:1G0SUB 4868: 60T0 1458 

IF b=s THEN 1588 


165@ m$=arti$(art)+In$+" gehoert Ihnen n 
icht"+ni$ 
G0SUB 4868 


1678 6070 1458 
168@ FOR i=ca-9 TO ca-i 
IF lca=PEEK(i) THEN 1748 
NEXT i 
a$="Keine Verbindung zwischen "+lna 
$tnl$+"und "+ins+" 


"maximaz "Arm 


3770:60T0 1488 


o 
GOSUB 4118, s=-bı status 


" greift"jartSs(art) 

Ei um mies De 
N "n" ELSE PRINT 
179@ PRINT Inas;" ei wu von" 

1888 PEN 3:PRINT staluss (statusa) ınames( 
ba);:PEN 1:PRINT" mit"jazas "Armee"; 


181@ IF aza>i THEN PRINT "n" ELSE PRINT 
1828 IE az-aza>8 THEN PRINT"heldenhaft 


1838 Bent "verteidigt wird." 


1858 For i=1 TO sra$=as+MID$(STRE(i) „2,1 
)zNEXT i 


Listing 1. Erobern Sie die Welt hr 


s=e 
us$ (status) jname$ (b)} ı PEN 
c 


CAFDAI 


4 
! 
j 


LOCATE 16,8:PEN 2:PRINT a$;"(2 SPAC 
E)"ja$;"(2 SPACEI"Ja$ 
INT:PRINT "Angrifff& SPACE) 


PRINT:PRINT 


PEN 1: 
a" 


"Verteidi, a“ 
FOR i=1 TO 6 


PEN S:w=1:LOCATE 16,1 
Intih=QsNExT 

PRINT CHR$ (231) 5 3w(w=13EIsi=1 
MOVE 8,384: DRAWR 648 
DRAWR —628 


DRAWR -6,-4: 


4 
-1 AND JOY(@)<>1& THEN 


IF_INKEY (47) 
1938 

EVERY 3,@ GOSUB 
IF INKEY (47) <>-1 
1958 


e=REMAIN (B) se=@ri=4 


2028 
OR JOY(@)=16 THEN 


1 
e=®: i=i+INT (RND#=3) 
IF i>15 THEN 2878 
60TO 1978 
2028 e=1:m(w)=wim)+1:SOUND 2,58,2 
Er} Ir w(w)<>7 THEN PRINT ins 1251) FO 
R _j=1 TO SıNEXT j:G0T0 2868 
FOR _j=1 TO SPRINT HRS (BI SCHRS (16) 


URN 
IF w>3 THEN 2188 
IF wei AND az>2 THEN LOCATE 24,1@:w 
=2:60T0 1988 
IF w=2 AND az>3 THEN LOCATE 32,1@:w 
=3:60T0 1908 
IF az=2 THEN G0T0 2158 
18 IF az=3 THEN IF w(1)<w(2) THEN emm( 
2 mtDImntZI nz) "a nur” 2158 


2158 
IF w(Z)>w(2) THEN em(2)m(ZI=mi3): 
wiS)=e 
IF w(Z) >w(1) THEN emm(idamtidem(2)z 
w(2)=e 
Ir MS) mt2) THEN emw(2) mt DIew(3): 


LOCATE 16,18 
FOR i=1 TO SPRINT STRING$ (m(i) „CHR 
A ai i 
w=44LOCATE 16,12:160T0 1988 
IF w=4 AND aza>i THEN LOCATE 24,12: 
en 1988 

F w=5 AND aza>2 THEN LOCATE 32,12: 

TO Ba 


1 THEN GOTO 2258 
aza=2 THEN IF wi4)<w(5) THEN e=w 
22} ee an 2258 


2258 
a THEN en (5) ım(Ddemi6)s 
IF_w(5)>wi4) THEN em (Hamm (5): 


w(5)=e 

Te wi&)>w(5) THEN em(S) ıwlS)mis)e 
w(iö)=e 

LOCATE 16,12 

FOR i=4 TO &1PRINT STRINGS(w(1) ‚CHR 
Easi))nEpnbERIE m NER” i 


Por ie TO 3 

IF wti)=® OR w(i+3)=@ THEN 2328 

IF wii) >wii+3) THEN avamavati ELSE 
avzav+i 
NEXT i 
LOCATE 1,164PEN 3 
PRINT status# (status) names(b);" ve 
rliert" 
PEN 11PRINT avj:PEN SıPRINT "von"za 
z-1; "Armeen 
PRINT statuss (statusa) Inanes (ba)}" 
verliert 
PEN 11PRINT avajıPEN SıPRINT "von"; 


'ava:POKE ca-15,az: 


IF az>ı HEN 2438 
PRINT "Angriff gescheitert. "ımt="" 
SOSUB aueB 


m$="Wollen Sie trotzdem nochmal "+n1 
$*+"angreifen (j/n)":G070 1468 
2430 IF _aza=@ THEN m$="":G0SUB 4868: G0T0 


PRINT “Noch ein Versuch ?_(j/n)" 

as=INKEY$: IF a$<>"" THEN 2458 

a$=INKEY$ı IF a$="" THEN 2468 
758 


2458 
mg= "Noch ein Angriff (j/n)":60T0 14 
MODE 1:PRINT 


PRINT"GRATULIERE" :PRINT:PRINT 
PRINT"Sie haben hiermit "jstatuss(s 


tatusa) ;name$ (ba) 120381 
PRINT"aus ";1na$;" vertrieben. ":PRI 
NT:PEN 1:PRINT "Es lebe "; 
statuss statt )snames(b)ı 
PEN S:PRINT:PRINT= PRINT LF@@2) 
IF statusa>status THEN PRINT"Nieder 
atuss (statuna) Inanes(ha)ıP 
14434] 
POKE ca: 16, bel (s)=el (s)+1 LSSFEI 
as="":cALL Iva 117581 


IF PEEK (de+1287)=b AND PEEK (ds+1288 


)<>b THEN a$="Europa" [B844] 
IF PEEK(ds+129@)=b AND PEEK (ds+1291 
)<>b _THEN as="Afrika"” [DCF2)J 
IF PEEK(ds+1293)=b AND PEEK (ds+1294 
)<>b THEN a$="Asien/Australien" 609) 
IF a$="" THEN 2438 tE9BBI 
PRINT a$;5" gehoert nun Ihnen" :PRINT 
HPRINT 190741 
age," [7 
IF PEEK (ds+1284)=8 e_ PEEK (ds+1285 
$="Amer 
opa 

BE PEEK (ds+129@)=@ AND PEEK (ds+1291 

‚a_THEN as="Afrika 189023 
Ir PEEK (de+1293)=@ AND PEEK (ds+1294 
)=ba THEN ES [6CB2]J 
IF ag." EC2BA] 
PRINT #612 GuhEBFE: nun nicht auhr* 
PRINT Fre Bee name$ (ba) 19E78] 
PRINT del$)"Mit wieviel Armeen woll 
en Sie"jartslarte) tEF&CI 
PRINT Ina$j” einmarschieren (max."j 
STRS (HINCaz-1 ,maximaa))}").."7 L2AFCI 
F. INCaz-1,maximaa) OR zeci THE nn 

az-1,maximaa| z 

N 2588" ki Car2aı 
POKE ca-1S.az-ze [944C3 


caa-15,z 1SF88] 


mt="Noch ein Angriff (3/n)"ıG0TO 14 
6 t80381 
REM Upro Search (Tastaturauswertung 
und evtl. Laendererkennung) t758C1 
CABAAI 
DRAWR @,8,3 tZ1FA] 
CALL karte:CALL saversCALL darst L6ADBI 
PRINT del$ims; E33F@] 
TE INKEY(@I=-1 AND JOY(@)<>ı THEN 2 
878 (84581 
YpPEEK(de+1296)42 ‚oben EZF&AI 
dr y>20® THEN y=208 E1B3AJ 
deleter: ds+1296,y:CALL sa 
ver:CALL &BDi9:CALL darst CDAP21 
SOTO 2828 LA22A] 
IF INKEY(2)=-1 AND JOY(@)<>2 THEN 2 


2880 nn "unten 
289@ IF y<23 THEN y=2: 
2908 CALL delaterıbokE ds+1296,yıCALL 

ver:CALL &BD19:CALL darst 
2918 SOTO 2828 
292@ IF INKEY(1)=-1 AND JOY(@)<>B THEN 3 

@28 CEBARI 
2938 CALL deleter LAEIEI 
2948 x=FNdeek (ds+1272)+4 "rechts t173E] 
295@ IF x<313 THEN 2998 LECSAI 
2968 x=x-68: kp=FNdeek (ds+1299) +60 18802] 
2978 IF kp>632 zip, mob 2Banra LASFE] 
2988 POKE %&927B,kı ıPOKE &927C,IN 

T(kp/256) ı 168881 
2998 POKE ds+1272,x Map“: 256: POKE ds+1273 

INT (x/256) L9BECI 
3008 CALL saverıCAlL darst ECSAB 
3818 GOTO 2828 £3A12] 
3@28 IF INKEY(8)=-1 AND JOY{@)<>4 THEN 3 

ı28 12842] 
3038 CALL deleter LIFGEI 
3848 x=FNdeek (ds+1272)-4 "links [8362] 
3@58 IF x>@® THEN 3098 [4178] 
3868 x=ı+6B: kp=FNdeek (ds+1299) -6B 6DC2' 
3878 IF kp<® N kp=kp+632 16918] 
3@88 POKE &927B,kp MOD 256:POKE &927C,IN 

T(kp/256) :CALL karte 107781 
seo ds+1272,x MOD 256:POKE ds+1273 

„INT (x/256) C95DC3 
318@ ÖALL saver:CALL darst E33AAJ 
311@ G0TO 2828 [92141 
312@ IF INKEY(47)<>-1 THEN maxi=8:60SUB 

3490: 60T0 2888 1A7761 


IF INKEY(38)<>-1 THEN maxi=-1:60SUB 
3490: GOTO_ 2888 19904) 
IF (INKEY(9)<>-1 OR JOY(@)=16) AND 
auswahl THEN 319@ 

IF auswahl THEN 2828 

IF INKEY(45)<>-1 THEN a$="j" RETURN 


IF INKEY(46)<>-1 THEN a$="n":RETURN 


3188 G0T0 2828 197221 369@ x=x+212 LFSFEI 
319@ SOUND 1,158,5:SOUND 1,18@,7:SOUND 1 37088 IF x>632 THEN x=x-632 CB1DCI 
5@,5 158481 371@ POKE ds+1299,x MOD 256 (76241 
3208 CAll deleter LEDBCI 372@ POKE ds+13@@, INT (x/256) Laa9Al 
321® Ic=PEEK (LBD56) EFDEAI 373@ CALL karte LF7C®] 
322@ IF 1c<>15 AND 1c<>255 AND 1c<>248 T 374@ NEXT_j LA2GEI 
HEN 3248 3758 PEN SıDRAWR 8,8,3 C4DD4J 
3238 1c=PEEK (48058) 3768 RETURN LBCABI 
324@ IF INKEY$<>"" THEN 3240 377@ REM Upro Armeen verschieben »s###* [BFBA] 
325@ IF Ic=@ THEN mi$=n$sıns="Wasser ! 378@ m$="Von welchem Land wollen Sie Arm 
n1$:G0SUB 4868: m$=m1$:CALL darstı een"+nl$+"abziehen" 12046] 
SOTO 281@ tAsaB] 3798 auswahl=1:80SUB 277@ [65881 
326@ FOR ca=ds+27 TO ds+27+41#3@ STEP 38 38@@ IF b=s THEN 3838 tF@D21 
ca8581 381@ IF v>5 THEN a$=" (noch)" ELSE ag-"" 
327@ IF PEEK(ca)=1c THEN 3328 [92781 [7.2.72 
328@ NEXT ca [7E281 382@ m$=arti$(art)+1n$+" gehoert Ihnen"+ 
329@ PRINT del$j"Keine Identifikation mo af+nl$+"nicht. "ıG0SÜB 4@68:RETURN [LBC221 
ss0@ PÄINT-Bitte nochmals auswaehlen“; LAEse) | 2 dpgzrl THEN ms Be en 
oc! ui en t28(art)+Ins+n1s 
331® CALL darst:G0TO 2828 L9EaB) | za0 van u r ErrBsa 
332@ Ins="" LD7CEI 385@ PRINT del$; "Wieviele Armeen wollen 
333® FOR j=ca+1 TO ca+12 L9EDBI Sie"jart3$(art)jnl$j1n$;" abziehen 
334@ In$=1n$+CHR$(PEEK(3)) 168481 (max."jv5") .."1G0SUB 3388 LSFARI 
335@ NEXT j 3868 ESBE41 
3368 b=PEEK (cı 3878 £cA781 
=PEEK (c. RE } -vıcav=ca 162881 
337@ RETURN 389@ m$="Sie haben"+STRs(v)+" Armeen“+nl 
338@ REM Upro Input wer= 182281 *+"In welches Land soll verschoben 
339@ PRINT CHR$(8) 5CHR$(8)5:PEN 1:CALL & werden" 155841 
BBB1 L2B3AJ 3908 auswahl=1:50SUB 277@ [Bar] 
3498 i=Bıe(1)=@re(2 C6EB4] 391@ IF b=s THEN 3948 . CF2DA] 
3418 a$=INKEY$: IF a$="" THEN 3418 [2BEB] 392@ IF v>5 THEN a$=" (noch)“ ELSE as-"" 
342@ IF INKEY(79)<>-1 AND i<>® THEN eti) B TEAB&I 
=@:i=i-13 PRINT CHR$(8) 5)". "5CHRE(B) 5 3930 m$=arti$(art)+1In$+" gehoert Ihnen"+ 
a S0T0 3418 [25241 a$+nl$+"nicht. ":G0SUB 486818070 38 
343@ IF_INKEY(18)<>-1 OR JOY(@)=1& THEN 9 LeFcB] 
3478 134081 | 3948 IF ca=cav THEN 4008 EFBiAI 
3448 IF as<"@" DR a$>"9" OR i=2 THEN 341 3758 vp,s,cav,ic LAB261 
[ LC2C81 396@ IF PEEK(ds+1271)=255 THEN 4888 CAIEBI 
345@ PRINT a$j:i=i+1:e(i)=VAL(as) CAFFAI 377@ m$="Kein Verschieben moeglich"+nl$ [68561 
3448 G0TO 3418 £771C1 3780 SOSUB 4868 C4DBCI 
3470 IF i=1 THEN ze=e(1) ELSE ze=e(1)#1@ 379@ G0TO 3898 [86441 
+e(2) [448] 4800 vmax=MIN(v,maxima-az) £7F721 
3488 PEN S:CALL &BB84: RETURN 17996] 4218 PRINT del$; "Wieviel Armeen"jart$(ar 
3498 REM Upro Armeenzahl darstellen x#== E)sinsgni45" (max. "zvmang") .."7 L7DB@] 
BE Er reer [48961 4220 GOSUB 5388 L&9ABI 
3500 CALL deleter 122121 4058 IF ze>vmax THEN 481@ 18246] 
351® IF maxi THEN mi$="Maximale Armeenza 4848 POKE ca-15,az+ze:ıvev-ze EFFICI 
hl" ELSE ai$="Ihre Armeen" LABF41 4858 IF v>@ THEN 387@ ELSE RETURN 159181 
3528 FOR j=1 TO 3 ESABEI 406@ REM Upro Warten auf Tastendruck === 
3530 PRINT del$jmi$ [87DC1 * LIAEZI 
3548 TAG LABDBI 4278 PRINT del$;m$;"Bitte Taste druecken 
355@ FOR k=ds+l1 TO ds+1241 STEP_3@ 1B8581 = L2E821 
356@ IF NOT(maxi) AND PEEK(kK)<>s THEN 36 4280 IF INKEY$<>“" THEN 4088 E1A7@] 
40 186561 4898 WHILE INKEY$=""WEND EFD261 
357@ _x=FNdeek (k+3) -FNdeek (ds+1299) £125AJ RETURN t8@8A1 
338@ IF x<-32@ THEN x=x+64@ T6B6CI REM Upro Nachschub berechnen ###  LSF4EI 
359® IF x<@ OR x>312 THEN 3648 CAASAI 1z (ds+1282-=) TABDEI 
3608 y=PEEK(k+S)ı TAG TAD&CI ni=INT(12/3)zIF nl<4 THEN ni=3 [DEDEI 
3618 MOVE Zux+B,2uy 112721 nk=@ L89SE1 
3620 IF maxi THEN DRAWR @,8,112$=STR$( 4158 FOR i=ds+1284 TO ds+1293 STEP 3 [02961 
PEEK (k+2) ):PRINT RIGHT$(a$,LEN(a$)- 4168 IF PEEK(i)=s THEN nkenk+PEEK(i-1) L[CSIEI 
15: SOTO 3448 CDACa1 4178 NEXT i CAs681 
3630 DRAWR ®,8,3:a$=STR$(PEEK(k+1)) PR 418@ nel=INT (el (s)*aprol/1®) L6A241 
INT RIGHT$(a%,LEN(a$)-1)5 L7F&EI 419@ nenl+nk+nel LE2C2] 
3648 NEXT k Ca7AE1 428@ IF n*a<75 THEN status=INT (n#a/15)+1 
3650 IF INKEY$<>"" THEN 365@ 122881 ELSE status=5 178561 
3660 TAGOFF+PRINT "Bitte Taste druscken 421@ RETURN [aDgEI 
EH LESSCI 4228 REM Upro Zeit «== [C&D81 
367@ WHILE INKEY$=""ıWEND CA26C3 4238 SOUND 1,15,3:zeit=zeit-11RETURN ECD361 
3680 x=FNdeek (ds+1299) L&D361 Listing 1. Erobern Sie die Welt (Schluß) 
1B DATA 243,237,115,113,141,49,129,1827 [88721 25@ DATA 189,141,237,75,123,146,33,864 [@92CJ 
2® DATA 146,237,75,123,146,221,33,981 £54C21 26@ DATA 64,1,151,237,68,48,21,588 [51483 
3@ DATA 99,141,17,89,192,237,83,849 LEE22] 27@ DATA 42,187,141,17,64,1,9,383 [2@2E1 
40 DATA 1@8,141,17,150,192,237,83,938 L46AE] 28@ DATA 237,82,221,125,6 EFBFCI 
5@ DATA 1@2,141,151,221,119,11,221,966 L4EFEI 29@ DATA 131D6] 
62 DATA 119,5,33,64,1,151, z@@ DATA E29FCI 
7® DATA 66, 31@ DATA C&C2A1 
88 DATA 128, 328 DATA ECECB] 
9@ DATA 283, 338 DATA €179C3 
18@ DATA 29, 348 DATA = CCEDAI 
{ 11@ DATA 283 35@ DATA 6,237,1 ‚1872 L8D5C1 
j 128 DATA 43 36@ DATA 221,283,5,7@,194,238,137,1068 LF@241 
13@ DATA &, 378 DATA 58,189,141,111,38 107641 
148 DATA 15 38@ DATA 75,123,146,17,64,1,9,435 £DSSc1 
7 158 DATA 25 221,1818 L[D4F8] 37@ DATA 25,43,62,2,188,58. 222,598 [9@B41 
148 DATA 12 1692 [DD843 42@ DATA 32,18,62,128,189,56,215,700 [895E1 
178 Data 13 22,685 Casa0ı 41® DATA 32,11,237,75,123,146,51,675 LAFS6I 
182 DATA 8, 266,9,35,415 E1FD@] 42@ DATA 33, 195,15,138, 209,587 175961 
198 DATA 56 »151,237,68, 125,966 [2DF@] 438 DATA 22,8, 25,24, 225, 122,289 ,627 125DC] 
209 DATA 1 „18@,141,237,6@i [DAS2] 440 DATA 74,87,151,187,32,12,221,764 [736A1 
218 DATA && 13:184,218,196,792 1B584] 458 DATA 283,5,198,59,62,4,144,675 18658] 
220 DATA ı 35,5,5,5,5,387 CABS4] 468 DATA 95,221,78,7,237,83,187,828 12024] 
239 DATA 12@,237,75,18@,141,183,237,1@93 470 DATA 141,81,151,184,32,7,58,454 99081 
C4@D41 488 DATA 187,141,71,195,39,138,62,753 L&CDCI 
248 DATA 66,9,71,56,232,120,50,504 [BF8AI] Listing 2. Maschinencode bringt Geschwindigkeit 


CE15AJ 


11,122,238,119,699 
2119, 900 DATA 3,253,33,99,141,253,54,836 LFF@CI 
rn 13126 ,9,258, 158 ,24,055 EBSB] | gım DATA 8,0,126,229,53,52,141,561 [38763 
BAD DATA 23262 12,108 272 1111222458. aS7Al | 920 DATA 253,94,8,22,8,25,119,513 LEAIEI 
530 DATA 204,24,9,122,230,17,87,693 zrcı | 239 DATA 253,92,0,228,17,9,0,556 [82CA) 
a a ızı tecnaı | 740 DATA 183,237,62,126,103,49,74,925 IS9E2I 
Sau DATA 221.120 ,9,250 258,178, 119,1121 LEEBB] | 950 DATA 221,198,0,32,18,35,95,581 LOAB&] 
560 DATA 35,58, 10 alzıh,a 128,887 TEBEEI 968 DATA 146,54,255,257,125,115,141,1069 _ ,, 
San DATA gaıal aa" Tab 1a. Sp 71780 Ko 378 DATA 201 ,55,229,53,32,141 253,924 LAFCBI 
598 DATA 9,285,27,188,17,86,141,648 came. | EuB:DRTA ZELM. SUN, Su, 2a tan an a 
DATA Grsa 1411287" 140e81237'675 tasesı | 770 Data 254,1,90,42,28,218,59,818 L9B94] 
a ER FE EEE TEN ee Zn 1000 DATA 16,242,33,151,141,17,30,618 LABB2] 
62@ DATA 235,183,237,66,9,235,55,1821 L4SCC] 1910 DATA 0,2,42,196 7,585 Eiagd 
630 DATA 237,201,42,96,142,283,37,962 EFFCCI 102@ DATA 16,8,183,237 82,221 126,865 60863 
840 DATA 203,20,54,44,179,58,120,458 CF@641 1038 DATA 4,190,32,3,2: ei Erz 
RER DATA 11 38,0!203!371288'738 a3 1940 DATA 225,24, 186,25, 237,945_ [39281 
En an ehe zes ten dee Eaans | Ieas Beta LH lB la ie 1ähanrz KEEZR 
&70 DATA 62,203, 265,252,187,201,237,1347 zen aan „139, 
ssecı | 1878 Data 8,24,145,8,0,8,0,187 17DD41 
680 DATA 91,96,146,58,128,146,111,768 LFSEs] 1880 DATA 1808 EBSCal 
690 DATA 38,0,285,29,188,17,88,557 [SCBBJ 20@@ REM Maschinencode in den Speicher b 
bene Sahne a ante! Lrae | za BE ie 
1 72 D7a81 
728 DATA 285,38,188,235,183,237,66,1152 [@3A2] 2@2® MENORY 8998: adr=&8979ı laenge=Bızei 
738 DATA 9,56,237,201,6,4,33,545 2DD43 Ie-18 et 
748 DATA 182,146,54,8,35,16,251,604 EDIE2I 2058 RESTORE Bear 
75@ DATA 6,1,33,115,141,34,111,441 [316E1 2848 FOR i=1 TO 7 Kann] 
7&@ DATA 141,14,8,17,108,146,237,663 LIESAI 20598 READ byte KucER} 
778 DATA 83,187.141,26,19,18,126,52@ [EB6BI N 
Zu an BET ee ERMTEI | Zogg Afyzihmunnensummerbyte Lasesı 
800 DATA 111,141,17,30,8,151,28,475 CDDD@1 ER EERT 
81@ DATA 34,111,141,12,62,42,185,587 17. 2100 IF summet>qsum THEN PRINT"Fehler in 
820 DATA 2@0,17,6,8,151,25,126,525 [28761 Dellenssatien [21061 
830 DATA 184,48,17,4,237,91,107,68@ 10584) 2118 zeileszails+1d:ısumme=® LAESAI 
Sie Data Lallzlnlelärsaleihuraisane, ABER | 228 BEE ABI an nın.n,uor ers 
yazııl 97 3 ange 
B&@ DATA 111,141,237,91,1@7,141,26,854 [@D24] En ii u se Eaercı 
870 DATA 190,48,192,151,18,24,188,805 LSFDZI 
288 DATA 33,95,146,54,0,237, 115,688 'A2BE 3 
89@ DATA 113,141,221,118,2,221,1@82,91@ TIEDEAI Listing 2. Maschinencode bringt Geschwindigkeit (Schluß) 
4® REM Laenderdaten (37211-3747@) LB9EBI | 328 DATA @,9,21,288 . 
sa DATA „0,0,20,36 1,194,1,240,255,0,0,0, E aalede ae OBER ran 
aka, case: 
&@ DATA 8,0,50,84,0,182,1,239,235,251,75 es a a O7 Human L@AAEI 
FH "0,253 ,Kanada, 19C7C1 3a@ DATA 8,0,19,320,128,3,90,241,14,8,8, 
vo bata'a,0,a8,58,8.152,1,255,190,0,0,0, 9,0,0,8,27 ‚Änypten,1 t38cC3 
80 DATA 8,8,20,58,5,120,1,251,250,0,8,0, axear jera le 1laudanız 77 158B81 
iko 
a DArh 8,8,9,74,0,103,1,190,197,0,9,0,0 ., = ERIC RE Fir [DccA1 
@lamer © 
ıaa'DATA 8,0,15,94,0,71,1,250,234,197,25 70 1610 248,168,239,, [91641 
4,0,8,0,8,8,187,Kolümbien,1 TECABI DATA 0,8 
118 DATA 8,0,18, 112,0,95,1,187,197,8,8,8 r7 L8SBBJ 
120 5 ee 2,0,8 L682E1 
5 eru,i L42A8] CH 
138 DATA 46,0,61,1,234,187,254,1 zB RER CH CAAC6] 
74 ,238,22,8,8,0,197,Brasilien,i tss421 | 41a DATA d,8,21, 
148 DATA 0,8,15,118,0,62,1,254,197,238,1 &,14@,Mon. [28181 
usa BaiR'el8 97 l0.07 89.1 250,170,200,0, eg ze 
1,254,174,238,8, 5 
2,0,0,8,8,175,Chile,i L6B4E1 320980392? Ge 
160 DATA 8,8,21,122,0,39,1,175,174,197,8 pan,i 138643 
4 @,8,238,Ärgentinien,i C6FD41 @,484,116,4 
ı7a bata'0,0,24,214,0,195,1,255,69,@ 8,225, Thailand,i L9CDCI 
‚0,0,0,0,235,Groenland ESA4EI 34,514 4,225,244,0,8 
188 DATA’ 9,0, 17,295, 185,2,248,85,88,235, a ee CeF88] 
0,0,0,8,8,69,Skandinavien, 1 LESBEI 44 ,556,46,4,229,0,8,8 
198 DATA 8,8,7,272,167,2,69,85,0,9,9,0,8 ze ayazda a ali ni 1a tD7CcI 
inglan sccı 470 bata’0,180,0,0,8,0,8,0,0,0,0,8 
() 85, eteldurc al 157341 100 PLN o' 165,0,8, [> 
259,8, 147,2,75,65,0 349@ REM Bildschirmdaten (37585-42563) # 
steuropa,i CBCB@] ELELIe EC92EI 
2,24@,181,241,85 iz 3588 DATA 192,0,64,235,138,0,32,24@,214, elaraı 
er DATA 158,8,3 235,52,9:37,205.105,0, ne) 
5)239,60,0,3,25 
Algerien,i L67C81 Pia 
320.128,5,78,05,27,14,10 .., esse ne 
’ L9EDBI 
a ‚a 8,255,7,0,22,255,47,8,9,2 
EBFBAI 55,35,0,3,285,3,0,3,258,27,8  “ _  LB772] 
Bata 3,0 ,100,5,99,78,30,51, .,,., | Sss@ Data 31255, 7,8,51,255,77,0,9,200,21 ee 
’ . 
280 DATA 725118 ,3,26 78,98 1831 en 3568 Data 20,246,14,6 & % LF@6@1 
„8,8, 
290 @ 296, 108,5,30,98,14, 15,51 u 2 Alaska 170041 
B 
aa ‚26,38,1@,15,8,8 ae oazı 
er 2,1 1B76C3 8,6,255,33,8,7, 
Ede Feapcı 7,255,118, [4608] 


3608 DATA 4,240,6,0,4,240,3,0,17@,240,82 
EEE Dr CE1BBI a EN 161303 
B EPUHLESLIE N IFE HE 12 260 FE Eee „ea, 10,6 3 2a°® edarcı 

3620 DATA 4,248,4,8,175,248,85 a180 DATA 23,240 1a 

En En N | ne ie Be 

„14,8,14,255,37,0,46,255 tBE7AI x E1a003 

3448 Bara 78,0,6,248,14,0,8,248,5,9,167, ers For Data = 248,97 [867A1 

3650 DATA 32,8,44,239,33,255,28,8,3 85,192,240,18,245,23,248 3SBE 
16,8,17,255,29,0,46, 235 Zaire 295, Parocı 1220 vala Fe ' t&0s23 

3068 pain 9,248,13,8,7,248,6,8,146,248,9 

A L2F361 RL 114763 

3670 DATA 30,8,77,255,8,8,3,255,19,@,3 Data’ 570,572 FFS6 

19,9, 12,255 az ar? car un A8,8.29,281,8 8,56,255,6,15,98 : 2 

3:80 Data 127,0,9,242,4,0,128,248,88,0, tr7ens | 4240 bata’B-iab 13. 2k0 22 isn Re 

389@ DATA 24,15,48,259,38,255 5,8,9,255, ata a,166,15,240,22, 45,20, 248,107 

a ee ee 65,255,3,0,54,205,6,.0,4,1 
3,240,07,15 cAascı 8@,3,15,19,85,232,246 cAzanı 

3718 DATA 1,15,89,255,3,9,15,255,6,8,5, 4298 DATA 42.8,28,251,5 Fe 

„8,12,255, 1862€1 
3720 a2 1255,51 0, 18,69, 5518,5,240,1 ei 124823 
En RERERFOPETEERT EIT DE 9767,25 330.49 '205,14,0,5, 0 
5,33,9,30,235,60,8 tmeseı | 4220 Data As'a,h 3230 245, 168,8 1756R) 
32,8,3,238 710, 100 240,2 RE EHER NE 
a am | u ARTEN alien, RR 
31,255,58 724,67 L939E1 DATE MESSE UNE ,255,21,8,3, 
40 179,240,86,0, [53001 ,73,8,28,85,230, ‚14,8 CO9AB1 
45,259 ,87,255,11,8,21,255 PT [6482] 
„29, 19,44 1235,46 32 tasıcı Aa ORTES »8,26,251,5 @,46,255,11,0,8, 
TA 121288,730,7,248, 2370 Data en3a5 a0 1dBıstl28:8 248 LILABI 
316255, 15,0,23,235,20,15 0 0) 7,100'86 ee 
. ’ [3 
025,09 16,280° " ce2sEI ssao Data 57.8,75,255,3,0,39,255,16,0,8, ne 
‚5,2151288,0),0, DEE | ason Bao473945315:71.0,29, LCEAG] 
Data 14,6,461259,77,285, 16,0,17,255 UNE RETRE LBFa@] 
3449,8,258,22,0,36 ,255, 14,6 tEBIEI DATA 5358,66, 251,8118,5,15,91,0,29, 
PRAEE=] ,18,248,3,8,21 Ania e" 57,238, 18 245 1562A1 
5,240,67 Et 2E AERHTES „245,4,248,16,8,4,180 
Eh EB mE 257280: 530,37 0, | a2 Bara S0,0,116.255,37,0 3,15,00,0,02 0 
Bara'aı 5 "212,240, _ 230 dark ıl.8.; 9,8,25,248,7,5, 125,248 LEB361 
N ‚48981 ‚8,3, B 
Data 14,9,44,239,84,255,8,8,21,258, gar Dara 29,0: 119,281,36 PRRCH RR esse 
Ta erBLLHTzzln Isrn,ı0e, en) | Jam bar 45,42,160.20.248 A Lyegsı 
‚3, 
Ba 7" rum | MR Ba ea annaee” Eyes: 
„8,129,255,21,8,3,255,3,0,6, 4470 S 2’ 1192A1 
a za, Bi N 3 Saat än.ıs u 
"3,8, „248,13, 81 3 FR 
8,190 218. 10.8.0, 230,91,0, ANer: PRRBEL TER UI Ir 305,7,84,18,8,17,248 c48381 
2710,5.233 3.0.3 2,0, 15,289,77,255, AS e,ostodan, za 100,00,2 

3900 Data’ 28,0, 12,235, a ce ER DI = „1111208 &,0,10,205,35 Feen: 
Data 25,8,12,235,37,8,12,29,5,0,8, 67 81,7,0,42,85,8,84,24 
BaTn.12.0,8,253 3518 a, ren 4510 bara 14,248, 14,6, 156,248, 19,8,4,100 

4,2 Li 
ee @ t830C1 4520 BaTA 25,8, 108,251 ,55,0 3,15,66,8,17 8BFAJ 
„aaa, zi 0,8,230,09,0, LASCAI gE1.12,65,3,0,25,65, ‚84,27,0,13,24 

37,0,73,255,2 ua 
255,5,8,3,255,39 art a a aa az 2 
„8,12,245, ‚180, 1a1 
DATA 5,9,11,69,197,240,28,0,9,240,8 Ne: Ku DIR zei ete BE RIFEN NT 
DATA _53,8,72,255,23,8,0,255,49,0,0, B8 LEE RER Rzareg 
255,79,8,8,65 5,8,14,69,194,246 ' ' L3S6E4] Be 19,248, 1710.8,108,07. AZ, 

33.0 87 LZBBA] 4568 DATA 23,0,108,251,59,8 Ee 
DATA 52,0, 72,255,24,0,8,28: ‚a, 108, 251,59,8,3,15,64,8,19 
RR HA EHEN 5,49,8,7, 2 Eee 4,85,4,8,14,85,18,0,38 £ 
BIN Be Elan, FE | rn Bite nateat nnzn er zum ne 

une ‚8,8,180,85, cap? 
ER ERIK EN 
ER LRERE Fi ‚85,13, EDBA6] 
Mr 2 72 REN ge 4598 BarA 8,20, 16,8,157,248, 14,8, 16,240 
NEHZ nn nz t979E1 4600 DATA 23,0,95,251,74,0,3,15,60,0,23 va 
” ’ .B, 5 R 3 
RRROREHE rn a a 
19,73, 255,17,8,25,255,111,@ ER al nal a a 
6,88,3,8,11,69,9,0,12,69 aha er SLR LAB7EI 
2,7, cıspcı | 4420 DATA 25,0,95,255,75,0,3 
194,240, 11,248,82,8 102041 Eee 
Dara 3118,74,258,19,8,27, 258 lao,o, 81,9,8,3,85, ,2,6,85,15,0,39,84,7,2 
> ” 1 ” ‚e, ERCEEZ 
Dara 38,9,7,230,04,0, re 4638 ze 142,240,13,8,5,240,18,0,12 
14,8,28,255, 183,8 4640 DATI MM EF3SC1 
3,88,3,8,5,88,7,15,18 "B A 23,0,95,251,76,0,3,15,57,8,19 
FREE RUE E N Mn Tal INS sBSHTrRIaSBalIB.R sr alch, 
167. 
Bd nn 75 200117 0120205 9,0, a | A6Sm DATn 1910,8,181,59,249,95,245, 13,0, I 
ala 50,2,75,255,17,9,27,255,97,0, 4,249,9,15,11,180,87,8 c 
za 5 yar8,00,4,@,11109,15.8 19308) 4660 DATA 29,8,92,255,78,8,3,15,55,8,18, 
N ECF96] 81,15,8,3,15,14,8,3,83,16,8,35,84,5 
aan, rer | era dara ın,e 140,240, 14,0,3,240,9,18,1 7 
67661 | A600 DA 3,15 USecer 
ua Sy, ze ,in2, 7 ,3,15,67,8,5,1 
yzi CBC4B1 Listing 3. Daten für tolle Grafik 


63 


2,3728, 


5,15,8 
DATA’ 192,2. 


5,15,0,3,15,12,0,4,85,27,0,18,84,1@ 
a 
DATA_31,181,8,24@,24,164,96,245,14, 


@,9,180,89,8 

EREREIHER TE TH 
DATA 25,6 EEE 8,3,15,5 
3,8,15,75,13,78,4,13,14,8,3,85,37,8 


DATA 20,241,30,181,33,164,99,245,11 


TA 25 


3,15,37,8,46 
24a,lır,a, " 
3,i5,3 
123,2 


CH 3 

DATA 34,8,26,241,29,181,37,164,98,2 

a 61,255,6,0,8,255,1@2,8,81 
15,17,8,5,15,33,8,190,248,111,0, 


BATA 24,8,3,198,3.0,19.190,21,281,2 


1,8,8,251,183,0,31,15,34,75,21,78,1 
2,0 
DATA_9,90 30,0,26,241,29,181,37,164 


96,245, 111 
DATA 26,0,3,255,3 255,23,0,6,2 
111,8 
17,251,2 


0,37 
55,133,8, 102, 15,194,246 
Data 23,8,3,190,5,0,18,198 
6,8,5,251,133,0,33,75,23,78,32,9@,1 
DATA 30,241,38,181,42,164,93,245,11 


5,2 


99,4,8,19,1 

PL} a 
23,245, 4,225,59,245, 118,8 
DATA 26,8,3,255,7,8,28,255,30,8,4,2 
55,155,8,103,15,5 25,240,8,0,155, 


DATA 26,8,3,190,5,8,28,190,9,251,3@ 
‚2,4,251,124,0,4 }75,24,78,35,98,16 
DATA 5,0,26,241,19,0,11,181,59,164, 
8,245,11,225,54,245,111,8 

DATA 26,8,3,255,5,8,29,255,32,0,3,2 
55,122,8,118,15,8,0,26,248,24,0,137 
Data 111,0, 

TA 34,8,22 


1980,6,251,157,0,39,75, 
SENDE 


DATA 3430,28, 285,186 ,8,119,15) ’8,2 
DATA 3S 6 30 190,148 8,39,75,34,78, 
34,90,17, 7,5,8,27,241,12,0,7,241,1 


DATA 52,164,30,225,43,245,112 
DATA 33,8,28,255,154,8,123,15 
128,248 


DATA 43,164,32,225,37,245,116 
DATA 35,8,27,255,151,8,127,15 
246,127,8 


1n200, 21200, 
ER SRE NE Ne 
DATA 32,225,5,245,7,225,9,245,132,8 
Ban TEE 
Bare Ba AnıE 8,4,190,153,8,3 
1,95,6,26,36,78,9,36,26,90,21,14,9, 
DATA 45,241,24,0,33,164,15,0,38,225 


DATA 34,0,29,255,11,8,7,255,131,8,1 
31,15,11,0,41,2480,24,0,34,240,17,8 
Data 36,246 


134,0 
DATA 35,8,31,198,4,8,9,190,134,8,28 
„95,11,26,26,78,16,30,8,18,18,90,22 


‚3 
9,44 2u5 156 8 15B,10,12,0, 


8,25, 240,24,8,32,2] 
17,8,7,258,112,8,2 
119,30,17,16,10,90 


L8D821 
TECAA] 
Ezeesı 
113281 
LA9SCI 
L9FF2] 
tesceı 
CBAD4] 


16464) 
1375C] 
CE6221 


[D@12] 
1963A1 
183121 


L4EB2] 
13148] 
[1818] 
TE66AI 
1232A] 


LC332] 
10282] 


[BBSEI 
LE9B21 
LE786] 
LAS8CI 


L378E1 
1C7B21 


L7A3A1 


LBF68I 
L9BABI 


LEF281 


LtACA2] 
E1B9C] 


£B4C2] 


[6808] 
[27261 
L1@921 
13B32J 
17@7A1 


LAF62] 


LFE&EI 
CBD3@1 


107481 
154241 


CAC921 
123063 


Fe 
85 


TITIHEERT 


DATA 24,14,14,0,26,241,48,15,21,164 

26,0,34,225,133,8 

DATA 40,0,40,255,14,8,10,258,111,8, 

135,15,9,0,24,248,43,15,21,24@ 

DATA 27,0,32,240,134,8, 

DATA 40,8,40, 190,7,250,11,8,9,258,1 

@,27,95,22,26,6,78,24,30 

98,21,14,8,91,7,8,25,2 


33,225, 151 
Data 45,8,35,255,6,258,17,0,7,258,1 
04,0,141,15,5,8,20,240,44,0, 19,248 
Data'30,8,4,240,5,6,24,248,131,8 
DATA 47,0,32,190,5,250,16,8,8,250,1 
85,0,8,26,19,95,21,26,32,30,22,18 
DATA'27,14,14,91,3,15,19,241,48,0,1 
23,225,131,0 


Ban 255, 6,250,17,8,7,258,1 
246,42,8 


04,0,147,15,16,248,51,6,17, 


DATA 25,249, 129,0 
DATA 66,8,18,250,20,0,4,258,104,@ 


a 
7,26,8,31,26,3@,22,18,29,14,13,91,3 
bATA 10,241,59,0,14,164,44,0,23,225 


„130,8 

DATA’ 68,8,16,25@,16,8, 11,250, 100,0 
147,15,71,0,14,248,44,0,2 

a 


3,240,130, 


a 
DATA 23,225 
DATA 74,8,16 
11,248,4: 
at 


&8,15,55,0, 
128,8 
‚36,31, 


1240, ,9,8,24,15,11 
DATA 83,8,14,258,8,0,5,187,4,234,1@ 
3,26,37 


010,29 ,07,8, 5 „31,25,15,25 


DATA 34,91,148,8,7,15,118,8, 

DATA 94,0,3,250,7,8,6,255, 20,234,94 
‚149,15,152,8,5,15,118,8, 

Data 95,8,14,187,20,234,3,197,91,8, 

33,26,35,31,31,15,28,14,29,91,67,8 

DATA 2,184,82,8,7,229,107,8 

DATA 95,8,14,255,28, 254,5, 255,89,8, 

146,15,72,8,4,248,79,0,9,248,187,8, 


DATA 95,0,20,187,14,234,9,197,86,15 
„52,26,38,51,36,15,19,14,28, 91,185, 


Bara 9372 30.288: 14,254, 13,255,107, 
‚9,8,112,15,154,8,7,148,109,0, 

DATA 2419,21,187,15,254,18,197,82,8 
DATA 28,91.158,0,8,229- 109,0 
ERREICHT IE HE Tun 
DATA 95,8,19,187,13,234,24,197,114, 
FAR ERENTO 

DATA 93,0,21,255,13,234,25, 255,134 
0,78,15,114,0,11,248,28,0,14,248,16 


Er} 
DATA 93,0,28, 187,15,254,27.197, 151, 


8,49,15, ‚0,20,229,19, 
DÄTA'17,229,189,0 

DATA 92,0,21 ,255,13,234,27, 255,127 
9,08, 15, 122,0,14,248, 17, 22,248, 16 
DÄTA 91,8,21,187,43,197,123,80,54,15 
»26,91,124,0,17,229,13,8,21,229,107 


Data 90,9,65,255,123,8,78,15,124,@, 
22,248, 1@,8,18,24@,110,0 
DATA 89,0,4,254,18,187,45,197,122,8 
54,15,23,91,138,8,18,229,16,8 
DATA 19,229,118,8, 

Data 88,0,65,255,122,8,75,15, 155,8, 


248,110,0 
8,254,15,187,43,197,124,@ 
2 229,7, 


22 
Data 88,0 
54,15,20,91,162,8,15,229, 
DATA 18, 86,8 

98.0,62, 255, 125,0,75,15,163,8, 
14,240,13,0,38,240,48,8, 
Data 68,8,11,254,12,187,41,197,127, 


LEEDBI 


LSCF2J 
LEC18] 


14814] 
C449C1 


LFEBE] 
[2@BC) 


ISE46] 
L9ADBI 


LEEFEI 
£7C48] 


C2AB4J 
18652] 


166961 
189261 


[B23A1 
LBF@A1 


[A468] 
2 


C135@1 
LB3921 


[85781 
LF4F6] 


12838] 


LFBS®] 
LiCECI 


C6B@81 
152321 
[DF@61 
CASF@1 
LF&DA] 
TEA2@] 
124321 
L[3EC8] 


CAAF4I 
CB3DEI 


L2CDE] 
18384] 


13246] 
LC96E1 
LF868] 
t718E1 
L79BEI 
[64561 
12A82] 


10542] 
L9E1BI 


154541 
LE242] 


ECEB2] 


La6B8] 
LAEFEI 


CBAD61 


u - _ :.:] 


Q,13,94,3 
DATA’ 17) 9,15,28 
Bara aa'a) ‚2 DEN R7 0,10, 229 
10,62 ‚63,8 [6238 
4,240,2 1255, 129,8 I ER 
Da IBORELFEH ICH HGB en a DATA 112.8,6,175,37 
34 ,8,20,254 aus = = 
NER ER TE Toaalad erasaı | F1e8 Data za. 38,142,0,5,79, 
2 ‚229, h : 
1293,129,8,78,15,282,0, 6 ; Ti67,0,100,0,01,20 000. 
‚202,8, Diva 75,22,238 nur 

TA 98.0170, 255} 9,25,98 coasas | 4220 Dain tızıe 28.244,7,0 2,730,3,258,1 zw 
20.240,54 2, zit 6218 EREREHRSCHEISCH Bab Zeh ern), Bennaa 
„18 ‚18,254, ER IAHEFZ 
ER 7 FRAU al una Bart. EHE Hr Fi CASD41 

B 
14,240,50 M 5,115,8,48,15,225,@ L9FDBI 6230 DATA ıls,e = Y172.0.234,0,34,24 Carası 
Sr 254,7 B BE 
PILEIEH 32218, 172,105 ,0,32,0 csasa1 ae 
8 Basjlas,a.äs.istzze,e, 0er Hm a Se 
,@,19,254 ‚Bd, 175.23 
FORTE HUHN SCHI 829C3 De ‚230, 170,0,232,0 rc) 
h 

As FE EERERNCHIREN LFE7EI : ; a 

ES TREE, [F66EI RENTEN cıcses 
Bara 96,8,19 a 1226,0,3,15,60,8 EEG 

U RE ÄRA ei ‚2s, 

a EEE N s98AJ 6,175,15,258,185,0,234,0 te1saı 
240 248,6, 

DAT 59,8 8,74,8 

DROHTE 19 E36a23 Bir para ıis @,5,175,1) 254,0,12,24 0... 

data_ı00 179,23,911289,8,21,244,5 -— „il 244,74 5,175,15,258, 185,8,255, L7F461 

A AT] ? DATA 118} 255,255, & 

M} 1S111.79723.18,180 44,255, 190 LF66A1 een 18,175,12,238 258,8, tepacı 

Bara 21 ,240,50,8 »186,8,9,248,14 BATA 116,8,17,205,20 255,9,251,@ 

186,7 [£} e,5,1 5,0,252 camıa 
' gen nu 7,24 „175,12 ‚2, 3 
BE NELRTIBSE, rn Te RER Ban 2a2r (Mal 
BaTa 22,244,57,0 1189,0,9,244,11 ee a 

® 355 LES@A: s, „a,18, 

9138,18,14,79,22, 18 lb,6,1 = Esar2ı 5,175,8,230, 189,0,250,8 PAR 
DATA 29,248 ‚186,8,12,248,8, «208 DATA 110,0514 205, 255:0, 25 Dee, 
DATA 104.0.13.254,2 " rE1AS1 &40@ DATA 18141175, 7,258,258 18,254 Ebansa 
‚8,36 ,13,254,22,174 —. a an un, 
10536,99,18,79,15,91 174,41,197, 100 a 10 DATA 11mlaın 17m Ass un C14C63 
DATA 196 ee 6420 ‚175,8,258,255,8,2 Liecaı 
I ” te 6420 DATA 128,9,10 „255,6,255,8, 
en 173712118, 192,0,58, 248,4 = Dara 120,0,5,175 1255,0,255,0 Lazcaı 
Bein 106 ,0,8,254,25 „192,0,53,248,4 eo are 3 ‚175,4,238,251,8,249,8 aa 

9 3 39° M 

„4 el 92 aan tzanaen CAsA21 Per DATA 122 17,253, 231,0,248 3 N: 
data ı »0,59,244,46,8 Esem DATA 208 175,254,0, 240} ‚28,0, 18 
EN EHE "© cassc s47a DaIn 129,816 Ba 208,0, 18/20)8, 185581 
Rh, Seien 2 Sa,210 ae 3 e498 DATA RIHREIESHE-IH CEDF8I 
Ban, zo 192 0.091244. a8 Pe 177 an HR nn 252,0,250,8, LIF7AI 
DATA’ 110,8 ICH SAFE HMO AAı 2998 TA 200,0, Er ‚2, 117281 

255 5 END 200 
ERRHALFE: N Wish EB3FEI 9000 REM Daten in den Sp i i BseE1 
H ‚3 s Pa I? 
a Taler zaeiee taseaı | 3020 Fon se 36199 eier yokem se 
DATA SL EI0E? 355 19:68,244,29,0 ‚197 3920 FOR 1=36211 HRESTORE = 
BR ee, am Er Bias 
7 Bu mg 
FRE RUN THE | | Era gun Sonttarnen inte teoreı 
Er. onmen | 9908 IE BERS Teen rorg.ı Er 
DATA Li2 m 5 Iron ze 9 17a 1a z | Se EL THEN FOR 1 1azINT (a/zuere E2ACAI 
data 113,0 1992173,5,70,244758 gaza POKE i,a ):80r0 91 
8,57 11,255,7 Samen en 
Ba le Mt ara | Die Baeiih LsrARı 
meta, Se 21,197,115, t7Dcc9 giıo NEXT 5 TeirAscMIDns (as, 5,1) Bess) 
A 
Ba lea Er EFRCRTH Tasse F1aB Mirasysas EAade 
79 ” 238, & 9145 Etat 
DATA z,i7 ‚84,244 ESS ZERLEh eoecı | iso Rean LEAsA1 
data 112,0 %, 5118,00, re dur, LoBaAı 
19828.83,24 ac>@ THEI ca1 
„2 2.3 es tmeces | Jı00 IF suncdan N READ b:POKE adr „biadr= tere2ı 
batk 112 Br, ige Ir Sum<>648_THEN 19800 u 
112,8 ’ ‚a SAVE" THEN 9 er 
@,49,79,17: 175,32,238,1 tasc. rieika.bin® 145 vrasel 
DATA 112 7a 8,88 248.48 ae ee, ee ‚Br 36200, 650 
Ba s 9, 2 Bi Mouse CSSDEIT 12 BAER FIEEE KILRESB) +ZS6HPEEK (RES) 
DE ähm ne eznen | 19928 Ir Peek idatsac) Oasen, Te e7E761 
sen RE HFR RT Bi a) PEEK (data) ua eThen pr er 
17: adr- KBC 
PER NAEH N Menanuige enns | samma ZAMTEmBEBRTGn Eng", TEN datagrag 1082 
: : ri) Ir-2) + 
aalzaa dein," ER Trieklän 1000 Caro ıaa7a ZS6HPEEK (data m 

3@,79,188,8, 75,34,238, rg 0068 e=PEEK (da P 3 
Bara ılz, Ehe Beı | 18078 PRINT "Far tadr+3)+2 in Eaaccı 
az | Jeann a ER 123Ec1 

. 
L3SC4EI 
LESE] 


LAs9EI Listi 
ing 3. Daten für tolle Grafik (Schluß) 


65 


Direkte 
Eingabe 
am Bildschirm : 


Der 3D-Dreh 


Betrachten Sie mit dem Programm »3D-Dreh« be- 
_ liebige Rotationskörper von allen Seiten. Auf die 
Perspektive kommt es an! 


in Rotationskörper im mathematischen Sinn entsteht, 

wenn eine sogenannte »Mantellinie« eine volle Umdre- 

hung um eine Achse geführt wird. Die Mantellinie 
erzeugt dabei die Oberfläche des Körpers. Um eine grafisch 
‚sinnvolle Darstellung im Drahtmodell zu ermöglichen, muß die 
Umdrehung in Winkelschritten erfolgen. Außerdem ist die 
Darstellung der Mantellinie als Streckenzug (Polygonzug) 
erforderlich. 

Um einen Körper in unserem Programm zu editieren, kön- 
nen Sie dessen Mantellinie auf zwei Wegen eingeben: 

Bei der Eingabe über DATA-Zeilen werden im Programm- 
text die Eckpunkte des Streckenzugs programmiert, Für 
einen Eckpunkt sind drei Daten erforderlich: 

1. Nummer des Punktes 
2. X-Koordinate 
3. Y-Koordinate 

Der Bildschirmmittelpunkt ist der Koordinatenursprung 
(0/0). 

Nehmen wir als Beispiel die Darstellung einer vierseitigen 
Pyramide. Hierzu müssen Sie ein rechtwinkliges Dreieck ein- 
‚geben. Die Drehachse fällt dabei mit einer der beiden kürze- 
ren Seiten des Dreiecks zusammen, die den rechten Winkel 

bilden (Katheten). Rotiert nun dieses Dreieck in Winkelschrit- 
ten von 90 Grad, so entsteht der gewünschte Körper. Tippen 
Sie zum Beispiel folgende Zeilen ein: 


270 st=90 
840 DATA 1,0,100,2,140,-70,3,0,-70 

Die Variable »st« in Zeile 270 bestimmt die Größe der Win- 
kelschritte. Wählen Sie st=5, so erhalten Sie einen Kegel. 
Nach dem Start des Programms müssen Sie bei der Abfrage 
des Eingabemodus »d« eintippen. Für Drehungen um alle drei 
Achsen erweist sich ein Wert von 30 Grad in allen Richtungen 
als sinnvoll. 

Komfortabler und schneller gestaltet sich die Eingabe der 
Mantellinie über den Editor. Sie erreichen ihn im Eingabemo- 
dus mit der Taste »b« und verfügen hierbei zur Orientierung 
über ein Koordinatenkreuz und eine Koordinatenanzeige. Die 
Cursor-Tasten bewegen einen Pixel-Cursor über die Koordi- 
natenebene. SPACE hält jeweils die aktuelle Cursor-Position 
fest. Die so gespeicherten Koordinaten werden zur Mantel- 
linie verbunden, der Editor mit ENTER verlassen. Sie bestim- 
men anschließend noch die drei Winkel für die Perspektive. 

Da das Programm selbstdokumentierend ist, können Sie 
seine Bedienung und Funktionen ohne weitere Anleitung 
erkunden. (Frank Müller/Matthias Rosin) 


Name: 
[Checksunmer. | Eos | 


iD REM 

2@ REM »s#u##% 3-D-DREH-FIGUREN werreee 

3@ REM #####* VON FRANK MUELLER wenn 

38 REM 

5® DEG:MODE 1 

&® KEY @,CHR$(13)+"mode Z:pen 1"+CHRS(13 
> C HRECLSI+", ” 

us börbiähg" Key 1,C I+"edit 

70 DIM x (1090) ‚y(1898) ‚z (1808) 

8@ ORIGIN 320,288 

90 INPUT"Eingabe ueber DATAs oder direkt 
am{& SPACEIBildschirm (d/b) (24 SPACE 
}LEin Beispiel ist eingegeben]";ja$: IF 
a$="b" THEN 638 

100 REM 

11® REM #uwenne DATAS EINLESEN wenn 

12@ REM 

13@ READ c,x,yzIF c=-9999 THEN 158 


i=itlıx d)=xıyli)=yı60TO 158 


REM me DATEN ZEICHNEN #unmene 
REM 

FOR t=1_TO i 

IF t=1 THEN MOVE xt) ,yit) 

DRAW x tk) „yitd,i 

NEXT t 

REM 

REM nem DREHEN Sonnen 
REM 

st=68 

FOR w=st TO 36@ STEP stian=an+1:FOR 
t=1 TO iszez+lın (z)=C0OS(w) an (t)ıyiz) 
=yit)sz(z)=x (EI#SINGW) NEXT Eym 


290 s=i:i=z:ır=@ 

308 MODE ı 

31® ORIGIN 328,208 

328 REM 

350 REM ##u#0## WINKELEINGABE ne 

340 REM 

35@ INPUT*1.Winkel :"zwiz INPUT "2.17 SPA 
CEI:";w2 

36@ INPUT "3.17 SPACE): "zw3 

37@ c1=C0S(wi)z:s1=SIN(wi) 

388 CLS 

39@ REM 

400 REM www ZEICHNEN Hmm 

418 REM 

420 PLOT -1098,8,1 

430 FOR t=1 TO 

440 d=SQR (x (t) an (t)+z(t)#z(t)) 

458 IF x(t)<>® THEN wä=ATNiz(t)/xtt)) EL 
SE w4=SGN (z (t))#9@ 

460 IF x(t)<@ THEN w4=w4+1BQ 


470 y=y(t) ıx=C0S (n3+w4) #diz=SIN (wStwa) ad 


1=SQR (x#n+yay) 
IF n<>@ THEN wS=ATN(y/n)sIF x<@ THEN 
wS=w5+188 
IF x=@ THEN wS=SGN(y)#90 
x1=1#C0S (w2+w5) ı yl=1#SIN (m2+WS) aci+s 
i#*z 
IF t=1 OR ts=1 OR tt-1) /s=INTtit-1)/ 
EN AND ti<>1 THEN MOVE xi1,yi 

Aw Ri ,yi 
IF r=1 ten s18 
NEXT t 
REM 
REM # VERBINDUNGSLINIEN ZEICHNEN ## 


REM 

PLOT _-19898,0,3 

r=1:FOR t TO sıFOR ts=1 TO an+ist 
=(ts-1)*5+ti:G0T0 448 

IF r=1 THEN NEXT ts,tiır=® 


Buee 3 5 28 


u 
S 
s 


>_ 
s 


REM ##### BIIDSCHIRM-EINGABE #uunee 
CLS 
MOVE -32@,@:DRAW 328,8, 1:MOvE 
DRAW 8,280,1 
saro 756 
OT x,yy3 
i$=INKEYSLIF is="" THEN 690 
PLOT x,y,® 
as=asclis) 
x=x+2# (a5=242) -2# (a8=243) ıyay+2# (as= 
241) -2# (as=240) 
IF as=13 THEN i=2:60T0 15@ 
IF i$=" " THEN 77@ 
LOCATE 1,1:PRINT xsy5 
60TO #88 
IF z=@ THEN MOVE x,y ELSE MOVE x(2), 
yiz) 
DRAW x ,ys1 
zez+1ın (Z)=nıylz)ey 


E2es 


® 
s 


LESCAI 
C1D86] 
13148] 
18108] 
L9BBAI 


635883 


[78F4] 
LF5861 


L6E7AI 
1SEZA] 
14898] 
[SC2EI 
LF@761 
IDE16] 
CBDACI 
18332] 
[6B38J 
[61A6] 
LA1SCI 
LAFCEI 
TEB62) 
[368CJ 
18310] 
CAC34] 
CBGEE) 
[S5As8] 
19686] 


L8ESCI 
LFCBEI 
19852] 
L8SDEI 
[6832] 
CEBIEI 
16236] 


124301 
T6A1AJ 
16842] 
18934] 
[B1481 
LAA7CI 
[6532] 
CB178] 
LADDBI 
[@B2E) 


cecc21 
[4188] 


CCB38] 
[B11A] 


L149E] 
£D2CC} 


13716] 


LFAB4] 
EF9@AI 
£B79C] 
aA1a] 
L6BSEI 
LBFF®] 
L3E42] 
tecacı 


184DaJ 
1343AJ 
LFES2] 
17B3A] 
13184] 
12434] 


L32@C1 
L9A64] 
[7832] 
1B864] 
[9DIEI 
ESCFCI 


LIFAAI 
tE22C] 
L@94A] 
[DIEB] 
EDAsBI 


[5654] 
L&69BE1 
199661 


ge Garo 0a 

sıa REM 

828 REM ##ureeer IHRE DATAS suunemnnee 

830 REM 

84@ DATA 1,180,188,2,100,20,3,26,20,4,26 
„-52,5,88,-52,6,88,-72 

sa data’ -3999,0,8 

868 REM 

878 REM ##uu##0#. EINLEITUNG wre 

ge@ REM 

89@ PEN 1:INK_ 2,18 

900 PRINT" (7 SPÄCE)S-D-DREH-FIGURENPROGR 

91@ MOVE 1@2,382:DRAWR 396,@,3:MOVE 1@2, 


378:DRAWR 396,8,3 
PRINT:PRINT+PRINT"Als Eingabe benoet 
it das Pg nur eine(3 SPACE}Haelfte 
ner Figur-Das Pg dreht dann(S SPAC 
E)diese Figurenhaelfte um die Y-Achs 


e. 
9358 PRINT"Die Eingabe kann wahlweise ueb 
er DATAs(2 SPÄCE)oder direkt am Bild 
schirm erfolgen.Dabeiist der Ursprun 
immer in der Bild-(5 SPACE}schirmm 
itte." 
PEN 2 
PRINT"Bei Eingabe ueber DATAs sind 3 
Eingaben fuer einen Eckpunkt erford 
erlich.":PRINT" 1.Nummer des Punktes 
»(beliebig)" 
PRINT" 2.X-Koordinate":PRINT" 3.Y-Ko 
ezte DATA-Zeile 
15 SPACE}enthalten. (B 
ile 820 ##)" 


PRINT"Bei einer direkten Bildschirme 
ingabe istfolgendes zu achten P 
RINT" 1.Mit den Cursortasten wird ei 
n kleiner {3 SPACE}Punkt steuert.Zu 
m Speichern eines{5 >Punktes wi 
rd die SPACE-TASTE gedr." 
990 PRINT" 2.Als Abschluss druecken Sie 
die ENTER-{3 SPACEITASTE." 
18080 GOSUB 1158 
1018 CLS:PRINT"Das Pg erwartet die Einga 
be Ser Winkel.":PRINT:PEN 2: PRINT 
1.Drehwinkel um die X-Achse." 
1820 n= S:PRINT" 2.Dehwinkel um die Z-A 
chse." 
1838 a! 1:PRINT* 3.Drehwinkel um die Y- 
se." 
1840 MOVE 258, 250: DRAWR 6@,1:MOVE 258, 
1: DRAWR 


N 


258: 68,8,2:MOVE 258,258: DRAWR 
38,38,3 

185@ LOCÄTE’ 15,6: PRINT"y“43PEN 2:LOCATE 
21,1@:PRINT"x"5:PEN S:LOCATE 19,8:P 
RiNTeznn 

18658 PRINT:PRINT:PRINTIPEN 1 

1878 PRINT:PRINT"Die Variable in Zeil 


e ibt den(3 SPACE>Graduntersch 
ied zwischen den einzelent3 SPACE)D 
rehungen an. 


1888 PRINT:PRINT"Sollen die roten Verbin 
dungslinien — gelassen werden mu 
ss an Zeile ein{3 SPACE)IREM ges 
etzt werden.“ 

PRINT:PRINT"Wenn Sie die Instruktio 
nen zur({2 SPACE}Genuege kennen,entf 
ernen Sie einfach Zeile 65." 

GOSUB 115@ 
PRINT"Mit diesem 
beliebige(2 SPACE}Figur verarbeite‘ 
werden.Dann sollte(4 SPACE}aber mi 
t_DATAs gearbeitet werden.An" 
PRINT"Zeile 28® muss dann einfach e 
in _'REM’{3 SPACE}gesetzt werden.Ein 
e Drehung um die(& SPACEIY-Achse wi 
rd dann nicht mehr durch-{5 SPACEIG 
efuehrt.” 
PRINT:PRINT:PRINT"Am Anfanı 
entiert man am besten{2 mit d 
em bereits in Zeile 848 eingegebe- 
nem Beispiel.So laesst sich die Wir 
kung der einzelnen Winkel am besten 
erkennen.” 

PRINT"Probieren Sie z.B. 
inkel :" 

PRINT"1. ® 
INT"3. 


1188 


1118 kann auch eine 


1128 


1125 experim 


1126 
1127 


#olgende W 


0,98,0":PR 
19,0,0":PRI 
2 98,88,45":P 


1138 
1148 
1158 


116@ 


LOCATE 35,25:PEN 1:PRINT"TASTE"}:CA 
LL 2BB86 
CLS:RETURN 


Listing. Mit diesem Programm lassen Sie Ihren Schneider rotieren 


LEBSEI 
L7D3A1 
CA64E] 
L7FSEI 


1£D7D8] 
17088] 
L7E44] 
LSCD6] 
[6848] 
CBIF@I 


13C081 
CB49A1 


cA218] 
CFFE4] 


LIFCEI 


EC9AAI 
[34EC] 


109741 


LA7B2] 
L5A9@1 


TE346] 
1C1981 
LBaA7AI 


107141 


14688] 
C1DEBI 


18374] 


115281 


CABBB] 
167923 


1957C1 


LEZECI 


133081 
CBA44J 


CA17@1 
[59981 
172401 


CACEAI 
LSCCB] 


Wie bauen Sie nun die fertigen Grafiken in Ihr Programm 
ein? Dazu benötigen Sie die Maschinenroutine aus Listing 4, 


E 
| 


Baby ER Kr \ 1" Pc ee 


Titelbilder und Hintergrundgrafiken zaubert »Back- 
ground-Painter« komfortabel und schnell. Mühe- 
volle »Planspiele« auf Millimeter-Papier und die 
anschließende Rechenarbeit zur programmtechni- 
schen Umsetzung gehören damit der Vergangen- 
heit an. Lassen Sie Ihrer Kreativität freien Lauf. 


m ein gutes Spiel zu programmieren, muß neben 
Spielidee und Sound auch die Grafik stimmen. Aber 
esistrechtmühsam, erst die Hintergrundgrafiken auf 
Papier zu entwerfen und dann das entsprechende Programm 
einzutippen. Ärgerlich wird es besonders dann, wenn man 
nachträglich etwas ausbessern will. Mit dem »Background- 
Painter« ersparen Sie sich diesen unnötigen Arbeitsaufwand. 

Das Programm funktioniert ähnlich einem Construction- 
Set, jedoch lassen sich auch die einzelnen Bauelemente neu 
definieren. Die Zeichen haben eine Größe von 4 x 8 Punkten 
in 16 Farben (Modus 0). Gemäß der Zeichenmatrix passen in 
eine Zeile 40 und in eine Spalte 25 Zeichen. Folglich haben 
1000 Zeichen auf dem Bildschirm Platz. Jedes Bild belegt 
‚somit 1000 Byte im Speicher. Hinzu kommt noch die Tabelle 
für die Zeichendefinition, die bei maximaler Ausnutzung der 
256 verschiedenen Zeichen nochmals 4 KByte Speicher 
einnimmt. 

‚Sie entwerfen zunächst mit »Background Painter« die Gra- 
fik und übernehmen dann die automatisch erzeugte Zeichen- 
definition samt Bildschirmaufbau in Ihr eigenes Programm. 
Der Vorteil besteht darin, daß Sie nach Herzenslust auf dem 
Bildschirm herumprobieren können, bis Ihnen das Bild gefällt. 


Maschinencode-Routinen für 
zeitkritische Abläufe 


Das Programm besteht aus einem Basic-Teil (Listing 1) und 
Maschinencode-Routinen (Listing 2) zur Ausgabe des Cur- 
‚sors, Vergrößerung des Bildes, das Auslösen der Garbage- 
Collection (Speicher-Reorganisation), etc. Den Startadres- 
sen sind gleich am Beginn (Listing 1, Zeilen 175 bis 190) 
Namen zugeordnet, um die Lesbarkeit zu verbessern. Listing 
3 enthält die Daten für das Titelbild. Wenn Sie auf das Titelbild 
als Demonstration verzichten wollen, dürfen Sie Listing 3 
weglassen. Die Funktion des Programmes bleibt gewährt. 


Die Speicherorganisation: 
Basic 

8732 heıx —— 
Maschinencode-Routinen 

8E71 hex 
Daten für Unterroutinen 

ee EN 
EBSuBReNe Dieser Bereich 

. 9293 hex enthält die 

Bereich für Bilddaten Bilddaten für die 

967B hex vollständige 
Bereich für Zeichensatz Grafik 

A67B hex 


die die Zeichen aus den vom Background-Painter erstellten 
Tabellen herausliest und als Grafik auf dem Bildschirm sicht- 
bar macht. Nachdem diese Routine auf Diskette gespeichert 
ist, läßt sie sich später an jede beliebige Adresse laden. Dann 
muß man jedoch das höchstwertige Byte der neuen Adresse 
im 17ten Byte ändern (normalerweise steht dort »&C0«). Der 
Aufruf erfolgt mit 

»CALL adresse, spielfeld, zeichensatz« “ 

adresse ist die Lade-Adresse der Maschinenroutine. 

spielfeld (Bereich für Bilddaten) ist die Adresse, ab der 
sich die Tabelle mit den Zeichennummern befindet. Sie liegt 
direkt hinter der Farbtabelle (siehe Speicherübersicht). 

zeichensatz ist die Adresse, ab der die Zeichendefinition 
gespeichert ist (befindet sich hinter der Spielfeldtabelle). 

Hier nun Schritt für Schritt die Vorgehensweise anhand 
eines Beispiels: 

Die fertige Grafik haben Sie bereits gespeichert. Zuerst 
schützen Sie den Speicher ab Adresse 7000 hex mit dem 
Befehl »MEMORY &6FFF« vor Überschreiben und laden 
dorthin den Maschinencode mit »LOAD ”prscreen.bin”, 
&7000«. Die Grafik laden Sie ebenfalls, beispielsweise durch 
»LOAD "grafik" ‚&8000«. Den ersten Wert im Zeichensatz- 
Speicher belegt der »Background Painter«. Er muß bei Dar- 
stellung der Grafik Null sein, da sonst lauter Punkte in der 
Grafik erscheinen. Also führen Sie immer ein »POKE 
&8000+1016,0« aus (8000 hex ist die Basisadresse, dazu 
kommen 16 Farb-Byte und 1000 Byte für die Spielfeld- 
tabelle). Nun setzen Sie noch die Farben entsprechend den 
Werten der ersten 16 Byte: 

»FOR i=0 TO 15:INK i,PEEK (&8000+1):NEXT i«. 

Um die Grafik dann aufzubauen, genügt der Aufruf 
»MODE 0:CALL &7000,&8000+16,&8000+1016«. 

Während des Programmlaufs erscheint am linken Bild- 
schirmrand das Menü. Die einzelnen Menüpunkte wählen Sie 
mit dem Cursor aus, indem Sie ihn auf die Symbole richten 
und mit Tastendruck die entsprechende Funktion aktivieren. 
Steuern läßt sich der Cursor wahlweise mit einem Joystick 
oder den Cursor-Steuertasten und der Copy-Taste als 
Feuerknopf. Bewegen Sie den Cursor zum unteren Bild- 
schirmrand, scrollt das Menü nach oben und zeigt die resttli- 
chen Funktionen an. Angefangen von oben bedeuten die ein- 
zelnen Menüpunkte: 

Paint: enthält die wichtigsten Funktionen für die Gestal- 
tung der Grafik. Mit dem Cursor bestimmen Sie 
die Position und setzen das aktuelle Zeichen 
durch Druck auf den Feuerknopf (Copy-Taste). 
Dieses Zeichen muß bereits definiert sein. Es 
läßt sich so lange beliebig oft auf den Bildschirm 
bringen, bis Sie ein anderes Zeichen als aktuel- 
les Zeichen bestimmen. Das geschieht, indem 
Sie den Cursor auf ein Zeichen richten und esmit 
»CTRL-G« anwählen. Ist das gewünschte Zei- 
chen auf dem Bildschirm nicht vorhanden, rufen 
Sie mit »CTRL-T« die gesamte Zeichensatztabelle 
auf. Neben diesen beiden stellt »Paint« noch wei- 
tere Unterfunktionen bereit: 

Aufruf der Zeichensatz-Übersicht. 

Zeichen unter dem Cursor wird aktuelles Zei- 
chen. 

Ausgabe des ASCIl-Codes für das aktuelle Zei- 
chen. 

Umschalten zwischen vergrößerter und norma- 
ler Darstellung. 

definiert neues Zeichen (Zeichen unter dem Cur- 
sor wird in die Definition übernommen, es kön- 
nen also vorhandene Zeichen als Vorlage die- 
nen). 


CTRL-R ändert definierte Zeichen 

In den letzten beiden Routinen (CTRL-D und CTRL-R) sind 
gende Funktionen verfügbar: 

CTRL-O überlagert zwei Zeichen (zweites Zeichen hat 
höhere Priorität). 

CTRL-C Farbe für Punkt wählen. 

CTRL-B Abbruch der Definition. 

CLR löscht Definition. 

ENTER übernimmt Definition in die Zeichensatztabelle. 
CTRL-Z vergrößert Zeichen bei der Definition. 


‚Nur bei der vergrößerten Zeichendefinition: 

CTRL (und Pfeil-Taste hoch/runter) spiegelt an der x- 

Achse. 

(und Pfeil-Taste rechts/links) spiegelt an der y- 

Achse. 

SHIFT (und Pfeil-Taste) schiebt in jeweilige Richtung. 

-_ CTRL-S sucht Zeichen in Zeichensatztabelle. 

Die Definition bei vergrößerter Darstellung unterscheidet 

ch etwas von der normalen Darstellung. Hier wird ein Punkt 

jer durch Drücken des Feuerknopfes gesetzt und mit 
;e« (Leer-Taste) gelöscht. 


Im Color-Menü wählen Sie aus der Farbpalette 
die 16 Farben für Ihre Grafik. Die Wahl der einzel- 
nen Farbtöpfe erfolgt wieder mit Hilfe des Cur- 
sors. Die Farb-Nummern sind durch Bewegung 
des Joysticks (der Cursor-Tasten) nach rechts 
oderlinks zu erhöhen beziehungsweise zu ernie- 
drigen. BeiDruck von »CTRL-A« erscheint wieder 
das Bild, und die Farbe ist direkt im Bild veränder- 
bar. ENTER übernimmt den Farbwert. 

zieht zwischen zwei frei wählbaren Punkten eine 
Linie, Diese wird in Elemente (Zeichen) von 4x8 
Punkten zerlegt und im Zeichensatz abgelegt. 
Das Programm beachtet dabei selbständig, daß 
ein Zeichen nicht mehrfach im Speicher steht. 
Die Position der Endpunkte läßt sich mit dem Cur- 
sor zunächst grob festlegen. Durch Drücken des 
Feuerknopfes (der Copytaste) erscheint ein 
Punkt, dessen Positionierung dann die endgül- 
tige Position bestimmt. 

legt die Farbe des Punktes fest. 

löscht die Positionen. 

funktioniert ähnlich »Line«. Jedoch bestimmt die 
erste Position den Mittelpunkt, die zweite Posi- 
tion den Radius des Kreises. 

dient der Vergrößerung des aktuellen Bild- 
schirmsektors. Dieser Sektor umfaßt 5 x 3 Zei- 
chen. In der Mitte befindet sich der Cursor. Das 
Bild scrollt bei Positionsänderung über den Bild- 
schirm. Bis auf »CTRL-T« und »CTRL-N« haben Sie 
auch bei vergrößerter Darstellung alle Funktio- 
nen aus Menüpunkt »Paint« zur Verfügung. 
kopiert Inhalte von Bildschirmbereichen. Sie 
markieren den zu kopierenden Bereich mit dem 
Cursor an der linken oberen und rechten unteren 
Ecke. Dabei bleibt das Zeichen des Cursors an 
der jeweiligen Stelle stehen. Nun steht der Bild- 
schirmsektor im Puffer und läßt sich beliebig oft 
kopieren. Dazu geben Sie durch Drücken des 
Feuerknopfes die neue Position der linken obe- 
ren Ecke an. Mit »>Space« wählen Sie einen ande- 
ren Bereich. 

ist genauso zu bedienen wie »Copy«, jedoch 
löschen Sie den ursprünglichen Bildschirmbe- 
reich. 

füllt einen markierten Bildschirmbereich (siehe 
»Copy«) mit einem gewählten Zeichen. Mit der 
Leertaste bestimmen Sie einen neuen Bereich. 


CTRL 


Garbage ist eine Routine, die alte, nicht mehr benötigte 

Collection: Zeichen aus dem Zeichenspeicher entfernt. 
Dabei werden Zeichen gelöscht, die zwar im Zei- 
chensatz noch definiert sind, aber in der Grafik 
keine Verwendung mehr finden. So läßt sich 
nach Fertigstellung einer Grafik der Zeichensatz 
von überflüssigen Zeichen bereinigen und Spei- 
cherplatz sparen. 


Clear löscht den Bildschirm ganz oder teilweise. Beim 

Screen: Löschen von Bildteilen ist wieder nach dem Prin- 
zip »von links-oben nach rechts-unten« der 
Bereich zu markieren. 

Clear löscht ein Zeichen, das Sie nur mit dem Cursor 


Character: auszuwählen brauchen. Dabei rücken die Zei- 
chen im Zeichensatz um eine Position nach vorn. 
In das Hauptmenü gelangen Sie, indem Sie das 
erste Zeichen der Zeichensatztabelle (Leerzei- 
(chen) anwählen. 


Help: ruft eine Hilfsfunktion auf. 

Value: dient zur Ausgabe der zweimal acht Byte (linke 
Seite und rechte Seite), aus denen sich jedes 
Zeichen zusammensetzt, auf Bildschirm oder 
Drucker. 

Disc: stellt folgende Funktionen zur Wahl: 


load file lädt alles, was Sie zuvor mit »Background Pain- 
ter« gespeichert haben (Grafik und/oder Zei- 
chensatz). Dabei erkennt das Programm selb- 
ständig, ob eine Grafik vollständig oder nur teil- 
weise gespeichert ist. Somit lassen sich beliebig 
viele Teile zusammen in den Bildschirm laden, 
wobei Sie die ursprüngliche oder eine neue Posi- 
tion wählen. 

save all speichert sowohl den Zeichensatz als auch die 
Grafik. 

save speichert nur das Bild, weshalb Sie darauf ach- 

picture ten sollten, daß bei wiederholtem Laden sich 
auch der ursprüngliche Zeichensatz im Speicher 
befindet (sonst gibt es nur Zeichen-Wirrwarr). 
Auch einzelne Bildschirmbereiche lassen sich 
speichern, um diese dann wieder in anderen Bil- 
dern zu verwenden. 

save speichert den Zeichensatz oder auch nur ein- 

table zeine Zeichen. Die Markierungen werden hier, 
wie auch bei »save picture«, mit dem Cursor fest- 
gelegt. 

load hängt einen allein gespeicherten Zeichensatz an 

table einen schon bestehenden an. Dabei müssen Sie 

append darauf achten, daß Sie die maximale Länge von 
255 Zeichen nicht überschreiten. 

show picture und show table 
erlauben nach dem Ladevorgang die Betrach- 
tung des Bildes oder der Grafik. 

catalog gibt ein Inhaltsverzeichnis des Kassetten-/Dis- 

ketten-Laufwerks aus. 

löst die Rückkehr ins Hauptmenü aus (wie die 

Enter-Taste). 


menu 


(Peter Ullrich/ja) 


Background Painter 
| Computer: | CPC 464/664/6128 


Kassette/Diskette 


————— — _— ——— 
ı0 background-painter c8D5@1 @*yc) FOR w=® TO 10@@: NEXTSCALL prsc 
20 te) 1985 by peter ullrich EBECAI reen:CALL curset ‚adro 1783C1 
25 felixallee 8 EB@C2] | s3@ G0To 558 [04541 
26 ' 8482 neustadt LF15A] 648 IF xc=39 THEN 538 ELSE xc=xc+1:B0SUB 
27° 09682/1451 C4DD6] 1221:G0T0 5380 CCSEE] 
se | LSF54] 66® PÜKE chrnum,B:CALL feuer ‚adrosCALL c 
4® ° ON BREAK GOSUB 7778 [1684] urset ,‚adrosPOKE picture+nc+4Q@#*vc ,BıP 
15@ MEMORY 34611 LF@58] OKE chrnum,actchr : RETURN L24FCc] 
14@ LOAD "bp.bin" ‚34612 t873C) | #70 ' [B3C8) 
168 INK INK S,1r INK 14,15: INK 15,9 [7A9AI ####*%* zeichen definieren ##nee# ( 
178 bladr=&CQQ0: adro=bladr 13C2AJ auf normalen bildschirm) c848C3 
175 ovly=&8734:mirry=&875B: sr=4878C: s1=& 690 ' tESCCI 
87B2: menu=uB7Dat picm-uBBBr Labfallnuß 700 IF newchr=256 THEN GOSUB 9QS@:CALL p 
B@Q: compare=%BB1Bi c#1=&8B62: copy=&BB rscreensCALL curset,adro:G070 5390 L@F@01 
63: 1buff=&BBBS: prtable=&BBCD: mochr=& 718 CALL curel ‚adroır#1=@:G0SUB 1088: IF 
SBF8: chpi c=WBC@B: clbyte=LBBAB tsaecı r#l THEN CALL curset,adro:G0T0 53® LC2B@1 
188 zeich=#8C2A: vzeich=KBCSFıcurcl=&BCAC 728 xpoia=xc#i6rypoia=(24-yc)*16+15 ESAFCI 
cur set=L8C&B: feuer=WEC9A: clscreen=k 70’ tE7C23 
SCCA: prscreen=LBCDB: zoom=&8D@3: veur= 748 GOSUB 920 LEEECI 
8DD6: yfeuer=ABEID: vpoint=uBE2A: deco 758 IF TEST (xpoia+xpoir ‚ypoia-ypoir) THE 
&BE45: encode=&BEAF ı adrel=&BE7S: Xp N col=® ELSE col=color [27.55] 
=&BE76: ypo=uBE77 LEA4EI 76@® PLOT xpoiatxpoir,ypoia-ypoir,col C1D64] 
190 spx=&BE71 YERSETZUNCE=EBE7A yecous 770 ' LESCAI 
E75: adr chr=&967B: buf fer=UBEBB: adrcol 780 in$=INKEY$: IF in$="" THEN 788 t6AICI 
=£9283: picture=&929S:chrnum=&BE77?° [0574] | 798 IF ASC(ins)=2 THEN POKE chrnum,PEEK( 
195 temp$=STRING$ (16, CHR$ (8) ) ıtempadr=PE picturetxc+4@#yc)CALL feuer ‚adro:PO 
EK (@temp$+1) +256*PEEK (@temp$+2) c@accı KE chrnum,actchr:CALL curset ‚adro:80 
200 my=lıxc=®: yc=@:color=i:newehr=1tacte TO 5380 171481 
hr=d: y=ß (2B7A] | 808 IF ASCtin$)=3 THEN GOSUB 126B:60T0 7 
201 DIM cot7) L9BBEI 88 tDagsı 
202 FOR i=® TO 7:READ aıco(i)=arNEXT {DBBEI | B1B IF ASCtins)=13 THEN 968 175741 
203 DATA @,24,14,6,26,10,18,8 L477C] 82@ IF ASC(in$)=26 THEN GOSUB 1858: GOSUB 
205 MODE @: BORDER @:POKE adrchr ‚@ CABSAI 1790: pladr=KC2AB+xpoir+ypoir#4B:CAL 
206 FOR i=® TO 15: INK i,@:NEXT:GOSUB 100 L zoom,adrzoom:CALL vzeich,tempadr:# 
oo 1D7461 1=8:6070 1938 159081 
220 ° [@6B6] | 838 IF ASClin$)=16 THEN POKE chrnum,@:CA 
225 CALL elscreensCAlL prscreen CA9381 LL feuer .adro:FOR i=® TO 1S:POKE tem 
238 adro=bladr (8D3A] padr+i „BsNEXT:PLOT ERBLASN ROSE SypOL a 
248 POKE chrnum,actchr [3366] -ypoir ‚color:G0T0 7: 12E7@1 
245 madrn=bladr+4+my#88: madr =madrn [817C] | 84@ keyfl=8:G0SUB 182B: IF keyfl THEN G0S 
258 ° LEIBCI UB 888:50T0 748 LBEB41 
260 ° men u Ma taD38) | 85@ IF ASC(ins)=88 OR ASC(in$)=224 THEN 
270 tESC®I SOSUB 928: G0SUB 865: G0SUB 980: G07T0 7 
28@ BORDER @:60SUB 49@:CALL menu,picmty: 42 c13081 
CALL curset ‚madr 1597E] | 868 G0TO 780 EFS6CI 
388 in$=INKEY$:IF ins="" THEN 390 t79EC) | 865 IF xpoir=12 THEN xpoir=@:RETURN ELSE 
3@2 IF ASC(ins)=88 OR ASC(in$)=224 THEN xpoir=xpoir+4: RETURN L26DEI 
386 cpa2aı .| 870 ' EBSCCI 
395 G0TO 418 [@64C) | 888 FOKE adrotoldy#1824,PEEK(tempadr+told 
306 IF INT ((my-14y/5)/2)<>(my-1+y/5)/2 T y/2) LF2B81 
HEN 308 tA9s81 | 898 POKE adrotoldy#1@24+1 ,PEEK (tempadr+o 
3@7 ON (my-1+y/5)/2+1 GOTO S@@, 3200 .6008 1dy/2+8) 17338] 
"3900, 164,345, 346, 6200, 7B0@, 2888,23 990 oldy=ypoir:RETURN LADF6I 
29,6300,3680, 7140 t2praı | 910 ' ct@pc23 
345 mflag=®: BORDER 8:G0T0 2508 TAABAI 92@ POKE tempadr+ypoir/2,PEEK (adrotypeir 
346 mflag=1:BORDER 7:60T0 2588 LACB&I #1024) 1259A1 
218 IF ASC(in$)=1® OR ASC(in$)=241 THEN 930 POKE tempadr+ypoir/2+8,PEEK (adro+ypo 
IF my=23 THEN IF y=2@ THEN 300 ELSE ir#1@24+1) [@11A] 
y=y+5:60T0 450 ELSE my=my+1:60T0 448 940 RETURN LA23A3 
tsıraı | 950 ° E11CA] 
420 IF ASC(in$)=11 OR ASC(in$)=24@ THEN 960 ' zeichen uebernehmen LF234] 
IF my=1 THEN IF y=® THEN 398 ELSE y- 965 POKE &8B44,8:POKE &8B4D,&23 [6EAEI 
y-5:50T0 458 ELSE my=my-1:1G0T0 448 LS12EI | 978 CALL compare,newchr ‚tempadr: IF PEEK( 
430 G0TO 308 LES46] c#1)<>@ THEN IF (newchr-PEEK (cfl)=ch 
448 CALL curcl ‚madr ımadr=bladr+4+my#B@:C 7 AND ndf1=@) THEN 975 ELSE chr=newc 
ALL curset ‚madr:G0T0 388 LA1a2) hr-PEEK (cf1)ı POKE picture+xc+ye#äß,c 
458 CALL menu,picm+ysCALL curset ‚madr:60 hr: GOSUB 905@:ndf1=0:60T0 788 LBsBEI 
TO 308 [644A] 975 FOR i=@ TO 15:POKE chrzei+i PEEK(tem 
488 FOR i=@ TO 15: INK i,PEEK(adrcol+i):N padr+i) ıNEXT ccc521 
EXT: RETURN CBABAI 980 actchr=chr:POKE chrnum,chr:CALL feue 
49@® FOR i=® TO 7sINK i,coti) :NEXTERETURN r,adro 157101 
[68481 99® IF ndfl THEN POKE picture+xc+yc#4B 
Er [86583 hrinewchrenewchr+1 ELSE CALL prseri 
SI@ ° Mm pa im tt Mi LABSAI n 17876] 
520 " CBBBCI 1080 CALL curset.adro:G0TO 530 LAC6R] 
525 BORDER 1:G60SUB 480: adro=bladr +xc#2+y ıeı@ ' 19212] 
c*8@:CALL prscreen:CALL curset,adro [6428] 1820 ' punkt bei der definition bewegen L[349A1 
530 in$=INKEY$: IF ins="" THEN 538 t6CB0) | 1950 IF"ASC(ins)=? OR ASC(in$)=243 THEN 
54@ kfl=®:G0SUB 115@:IF kfl THEN GOSUB 1 keyfl=1:IF xpoir=12 THEN xpoir=® EL 
221:60T0 538 CF8543 SE xpoir=xpoir+4 19868) 
545 IF ASC(in#)=88 OR ASC(in#)=224 THEN 1048 IF ASC(ins)=8 OR ASC(in$)=242 THEN 
CALL feuer ‚adroıCALL curset ‚adrosPOK keyfi=isIF xpoir=® THEN xpoir=12 EL 
E picture+xc+4@*yc „PEEK (chrnum) :60T0 SE xpoir=xpoir-4 L7F621 
648 tısası | 1850 IF ASClins)=1@ OR ASC(ins)=241 THEN 
546 IF in$=" " THEN GOSUB 660:60T0 648 LFDCA] keyfl=1:IF ypoir=14 THEN ypoir=@ E 
568 IF ASCtins)=4 THEN ndfl=1:6070 788 132521 LSE ypoir=ypoir+2 169881 
565 IF AsCtins)=18 THEN ndf1=@:60T0 700 L[6FCA) | 1960 IF ABClins)=11 OR ASCtin#)=240 THEN 
57@ IF ASC(in$)=7 THEN IF PEEK(picture+x keyfl=1ıIF ypoir=@ THEN ypoir=14 E 
c+4@*yc)=@ THEN 53@ ELSE actchr=PEEK LSE ypoir=ypoir-2 L7@BE1 
(picture+xc+4@*yc) :POKE chrnum,actch 187@ RETURN CAB?@] 
r:GOSUB 778@:6010 53580 co@B61 | 1880 chr=PEEK(picture+xc+4@rve) L1AE@I 
598 IF ASC(in#)=2@ THEN GOSUB 1390:60T0 1082 chrzei=adrchr+chr#16 133341 
538 tııscı | 1084 FOR i=® TO 7:POKE tempadr+i ‚PEEK(ch 
6@® IF ASC(in$)=13 THEN CALL curel ‚adros rzei+i):POKE tempadr+i+8,PEEK(chrze 
G0T0 288 C11D8] i+i+8) aNEXT 132543 
605 IF ASC(in$)=26 THEN 1658 ta9DAl) | 1098 IF nd#l THEN chr=newchr ELSE IF chr 
686 IF ASC(in$)=14 THEN LOCATE 1, EN i =@ THEN rfl=1:RETURN [BES4] 
»PRINT"chr.code : ";PEEK (picturetxc+4 1118 adro=bladr+xc#2+yc#B@ c75eC3 


Listing 1. Steuerprogramm für »Background Painter« 


ehr: 


i=adrchr+chr#16 


=1:RETURN 

13 RETURN 

IF yc=24 THEN 
1=1:RETURN 


=1:RETURN 
RE 


BALL eurset ‚adror RETURN 


en um 


60 BORDER PEEK (adrcol+color)ıfli=@ 
GOSUB 13@@: IF col THEN PLOT xpoiatx 


pair ypela-Tesir zeninr 
FOR w=1 TO 188: 
URN Eiee 60T0 1278 


308 in$=INKEY$: IF ins="" THEN 1 
IF ASC(in$)=9 OR ASCtin$)=243 THEN 
IF color=15 THEN 13@@ ELSE color=co 


lor+1:60T0 135@ 
or-1:60T0 1 
IF 


BORDER 1:fl1=13 
GOTO 13 


1e A 


+4:PAPER #1,@:CL8 


2"30; 
PEN 1HPRINT STRING+ (28 


STRING$ (28,"-")ıPEN 3 


r 
POKE chrnum,actchr 
CALL curset ‚adrolzRETURN 


unt+1:60T0 1598 


(newchr-1)#2:60T0 1598 
-2:count=count-1:60T0 15° 
60T0 1518 


chrnum,actchr 


ladr+xc1#2+16 
adroi=adrni:60T0 151@ 
2 m 
BORDER 1:G05UB 48@ 


GOSUB 1858 
GOSUB 1790 


17,25: PRINT yc# 2LOCATI 


xpoir=®: ypoir=@:0ldy=@: RETURN 
une bewege cursor #ee 


IF ASC(in$)=9 OR ASC(in$)=243 THEN 
IF xc=39 THEN 1228 ELSE xcexc+likfl 


IF ASC(in$)=8 OR ASCtin$)=242 THEN 
IF xc=® THEN 122@ ELSE xc=xc-1:kfl= 


IF ASC(in$)=1® OR ASC(in$)=241 THEN 
122@ ELSE ve=yc+iikf 


IF ASC(in$)=11 OR ASCtin$)=24@ THEN 
IF yc=® THEN 1228 ELSE yc=yc-1ıkfl 


TURN 
m: eurel ‚adros adro=bladr+nc#2+vc# 


“er. farbe fuer punkt auswaehl 


NEXT:IF #11 THEN RET 


IF ASC(in$)=8 OR ASC(in$)=242 THEN 
IF color=1 Ba 13@@0 ELSE color=col 


ASC(in$)=88 OR ASC(in$)=224 THEN 
RETURN 


oo 
BORDER PEEK (adrcol+color ) ıRETURN 
"character tab 


PAPER #1,@:G0SUB 1410:60T0 1568 

GALL curel ‚adrosGOBUB 142818070 151 

WINDOW #1,1,2@,1,INT((neuchr-1) /2@) 
#1 


PEN 2:LOCATE 1,1:PRINT "{CTRL X)cha 
racter table{CiRL X>CCTRL OICCTRL C 
£. 


LOCATE 1, INT ((newchr- 13728 kauprant 


count=®: xc1=@: adro1=bladr+80*2 
IF newchr>i THEN CALL prtable,newch 


in$#=INKEY$: IF in$="" THEN 151@ 

IF ASC(in$)=9 OR ASC(in$)=243 THEN 
IF count=newchr-1 THEN xci=@:count= 
0:60T0 1598 ELSE xci=xc1+2:count=co 
IF ASC(in$)=8 OR ASC(in#)=242 THEN 
IF count=® THEN count=newchr-lınci= 
Rise seimyel 


IF ASC(in#)=88 OR ASCtin$)=224 THEN 
RETURN 


IF count<>@ THEN actchr=count ıPOKE 
n prscreen:CALL curset ‚adrosRETU 


LOCATE EZ ER AN) eounts" "sadrni=b 
CALL curel ‚adroi:CALL curset ‚adrni 


PEN 3:LOCATE an 208 »LOCATE 


CAlL zoom,adrzoom:CALL veur ‚adrvcur 


in$=INKEY$: IF in$="" THEN 1700 
k#+1=@:G0SUB 1150: IF kfl THEN 1668 


LF@26] 


117323 
L7CBC1 
ECB6A1 


[31841 
CABBAI 


19054] 
£774A] 
[B81A1 
L7EEE)J 


[921E] 
L7AACI 


182SE] 


IF ASC(in$)=88 OR ASC(in$)=224 THEN 
CALL vfeuer:POKE picturetxc+4@kyc. 
PEEK (chrnum) :60T0 1775 

IF ASC(in$)=26 THEN CALL prscreen:a 
dro=bladr+xc#2+yc#B@sCALL curset,ad 
ro:G0T0 538 

IF ins=" * THEN POKE chrnum,@sCALL 
vfeuer:POKE picturetxc+4Q*yc ‚@: POKE 
chrnum,actchrıG0T0 1775 

ıF ASC(in$)=7 THEN IF PEEK (picture+ 
xc+4@*yc)=@ OR PEEK (chrnum)=® THEN 
178@ ELSE actchr=PEEK (picture+xc+4® 
#yc) :POKE chrnum,actchr:G0SUB 17981 
CALL zoom,adrzoomsFOR w=1 TO 1@@:NE 
XT:CALL veur ‚adrveur 

IF ASClin$)=4 THEN ndfl=1:60T0 1998 


IF ASC(in$)=18 THEN ndf1=0:6070 198 
a 


IF _ASC(in#)=13 THEN 288 
60T0 1708 

IF xc=39 THEN 1708 ELSE xc=xc+1:G0T 
0 1668 


adrzoom=picture+xc-2+4@* (yc-1) 


adrvcur=PEEK (picture+xc+4@#yc)#16ta 
drehr 
IF xc<=1 THEN xp=254+xc ELSE xp=xc- 


2 
IF yc=@ THEN yp=255 ELSE yp=yc-1 
POKE xpo,xprPOKE ypa,yp: 


PEN 2:LOCATE 1,25: PRINT "{2 SPACEI« 
nant6 SPACE} ypos{4 SPACE}"}:LOCATE 


PEN _S:LOCATE 8,251 PRINT xc; 1LOCATE 
17,25: PRINT yc31LOCATE 1,1:RETURN 


##0### zeichen definieren #auun« 
„(auf vergroessertem bildschirm) 


IF_newchr=256 THEN GOSUB 9838: 60T0 
1688 


rf1=8:60SUB 1080: IF rfl THEN 1660 E 
LSE pladr=&C2AB: POKE xpo,xp:POKE yp 


o,yp 

#1=@:CALL zoom,adrzoom 

POKE adrel ‚colorstempc1=PEEK (pladr) 
:CALL vpoint,pladr 


in$=INKEY$ı IF in$="" THEN 
kayfl=d: BOBUB 1920: IF keyrı THIEN 20 


r ASC (in$)=88 OR _ASC(in$)=224 THEN 
GOSUB 2888: 60T0 2328 

IF ASC(in$)=2 THEN POKE chrnum,PEEK 
(picture+xc+4@*yc):CALL vfeuersCAlL 
veur „PEEK (chrnum)*16+adrchrsPOKE c 
hrnum,actchr:G0TO 1788 

IF ASC (ins) un ER 

IF ASC(in$)=13 

IF ASC (in$)=26 THEN EA prsereen:C 
ALL zeich,adro,tempadr:oldy=ypoir:6 


oTo 

IF ASC(in$)=32 THEN IF PEEK(pladr)= 

® AND tempc1=® THEN 1958 ELSE adr=t 
empadr +ypoir /2-(xpoir>=8)*8:G0SUB 2 

178: 607 0 2320 

IF ASC(in$)=16& THEN POKE chrnum,@:C 

ALL vfeuer:FOR i=@ TO 15:POKE tempa 

dr+i „@sNEXT+CALL vpoint ‚pladr:G0TO 


1950 
IF ASC(in$)=19 THEN 2251 

IF ASC(in$)=244 THEN GOSUB 2313:CAL 
L_vzeich,tempadrı tempe1 =PEEK (pladr) 
»CALL vp« int pladr :G0T0 1958 

IF ASC\ins)=: es THEN GOSUB 2314: CAL 
L vzeich,tempadr:tempc1=PEEK (pladr) 
sCALL vpoint pladrıGOTO 1958 
IF ASC (ins) =247 THEN sr,tempad 
rsCALL vzeich,tempadr :tempc1=PEEK (p 
ladr)sCALL vpoint ,pladr:GOTO 1958 
IF ASC(in$)=246 THEN CALL sl,t ad 
rıCALL vzeich,tempadr ıtempc1=PEEK (p 
ladr)sCALL vpoint ‚pladrıGOTO_ 1958 
IF ASC(in$)=248 OR ASC(in$)=249 THE 
N GOSUB 231S:CALL vzeich,tempadrite 
mpcl=PEEK (pladr)sCALL vpoint,pladr: 
60T0 1958 


IF ASC(in$)=258 OR ASC(ins)=251 THE 
N CALL mirry,tempadr:CALL vzeich,te 
mpadr :tempc1=PEEK (pladr) :CALL vpein 
t,pladrıG0TO 1950 
IF ASC(in$)=15 THEN 2848 
SOTO 1951 


L) 
2040 PAPER #1,0:60SUB 1420: G0SUB 151@: IF 


count=® THEN 2848 
CALL oviy,tempadr ‚adrchr+16*count 


LC2681 
[A926] 


EDFF2I 


[8A54] 
t1c1A] 


11728] 
£D788] 
LE42EI 
EFD74] 
19A32] 
[66681 
L9AAEI 
L2AICI 


LSCCEI 
LE32A] 
C9@DC1 


LADA2I 
LS7FCI 


LB2BEJI 
EZEDE] 
18934] 
L3EF2] 


[D21E] 


tDEF®] 
13432] 


LF5701 
[197E] 
17D1A1 


EF316] 


16148] 


C1858] 
177161 


71 


— ze nn 
GRAFIK —_ 
rm 

2048 GOSUB 1790:CALL zoom,adrzoom:CALL v 243@ CALL chpic,count tED@21 

zeich,tempadr:G0T0 1938 CBD743 2448 neuchr=newchr-1:60SUB 147@:60SUB 15 
2058 POKE adrcl,tempclsCALL decode:CALL 18:60T0 2488 LF1661 

vpoint,pladr: IF PEEK(adre1)<>@ AND 2445 " 1962C3 

#1 THEN CALL vpoint ‚pladr:f1=@ L9A261 245@ FOR i=1_TO 25:LOCATE 1.26:PRINT:NEX 
2068 pladr=LC2AB+xpoir+ypoir*48:6070 195 T:MODE @:CALL prscreen:CAlL curset, 

@ CCCDAI adro:RETURN C42521 
2070 ° 197281 2500 ” £941C1 
2080 IF PEEK(pladr)=® AND tempc1=® THEN 2510 ec opy and move Hl 

1958 L6QA4] “.. L1C38] 
209@ adr=tempadr+ypoir/2-(xpoir>=B)#8 L[B4ABI 2520 ° 192201 
21@@ f1=1:IF tempcl<>@ THEN GOSUB 2178 IEB281 2525 f1=@:rf1-=@:60SUB 2530: IF rfl THEN.C 
211® POKE adrel,color:CALL encode 189081 ALL prscreen:G0T0 28@ ELSE CALL cop 
212@ code=PEEK (adrc1) :tempcl=codetcoder2 y,picture+tx+4@*ty:60T0 2698 LIFB61 

127841 2538 GOSUB 48@:CALL prscreensPEN 1:LOCAT 
213@ IF xpoir=@ OR xpoir=8 THEN code=cod E 1,1:PRINT"{CTRL X){5 SPACE}set 
| erz [S6F4] rkst& SPACEI{CTRL X2":FOR w=1 TO 
2148 POKE_adr ‚PEEK (adr)+code t3p183 @@:NEXT:CALL prscreen:CALL curset,a 
215@ RETURN [BE981 dro L9B54] 
2168 " 196281 254@ GOSUB 2640: IF spfl THEN 2538 ELSE I 
217@ code=PEEK (adr) TEADEI F r#l THEN RETURN ELSE GOSUB 2708 [A256] 
2188 POKE adrel,tempelzCALL decode:CALL 2558 tx=xcıty=yc EBEsQ] 

encode L3DSE1 256@ GOSUB 2648: IF spfl_THEN 253@ ELSE I 
2190 IF xpoir=@ OR xpoir=8 THEN code=cad F r#fl THEN RETURN ELSE GOSUB 2788 [9651 

e-PEEK (adrel)#2 ELSE code=code-PEEK 2578 IF xc<tx OR yc<ty THEN GOSUB 9048:6 

tadrel) L2B5C1 0TO 2538 L617E1 
2200 POKE adr ‚codertempc1=@:f1=@:RETURN [7DEBI 258@ POKE spx,xc-tx+1:POKE spy‚ye-ty+i [F&R@I 
221@ ° zeichen uebernehmen [66881 2598 RETURN TBAAQI 

| POKE &BB4D,&23 LaDr23 260@ GOSUB 264@: IF spfl THEN 2525 ELSE I 

| 2225 CALL compare,newchr ‚tempadrsIF PEEK F_r#l_THEN CALL prscreen:60T0 288 E 

| (c#1)<>® THEN IF_(newchr-PEEK (c#1)= LSE IF mflag THEN POKE xcc ‚tx:POKE 

| chr AND ndfl=®) THEN 2228 ELSE chr= yec,tysPOKE clbyte,&SEsCAll Ibuff,p 

newchr-PEEK (cf1)POKE picturetxc+ye ictüre+tx+4@#ty:POKE clbyte,&1A 124021 

*48,chr:GOSUB 905@:nd+1=@:60T0 2238 26@2 POKE xcc,xcıPOKE yec,yesCAlL Ibuff, 

| tA2B21 Dicture+xc+ä@eyc 145201 

2228 FOR i=® TO 15:POKE chrzei+i,PEEK(te 2685 CALL prscreen:CAlL curset,adro 138021 
mpadr+i) :NEXT TABA4I 261@ tx=xc:ty=ycıG0TO 2488 EFC1@] 

223@ actchr=chr:POKE chrnum,chr:CAlL vfe 264@ ins=INKEY$:IF in$="" THEN 2648 1C7081 

ver CBDBB] 2645 spfl=@: IF in$=" " THEN spfl=1:RETUR 

224@ IF ndfl THEN POKE picture+xc+yc#4@, N 149881 
chrinewchr=newchr+1 ELSE POKE xpo,x 2647 IF ASClin$)=13 THEN CALL curcl,adro 
p:POKE ypo,yp:CALL zoom, adrzoom LB6ACI arfl=1:RETURN L&BB43 
| 225@ CALL veur,chr#istadrchr:8070 1788 L7AB21 265@ kfl=@:S0SUB 115@:IF kfl THEN GOSUB 
2251 ‘ suche zeichen (ctrl s) L1A1B] 1221:60T0 2648 CBA241 
| 2252 POKE 28B44,8:POKE LBB4D,&23 LIAFCI 2668 IF ASC(in$)=88 OR ASC(in$)=224 THEN 
2253 CALL compare newchr ‚tempadr: IF PEEK RETURN LAC2A1 
| (cfl)<>@ THEN GOSUB'913@ ELSE GOSUB 267@ GOTO 2648 19328] 
| 9148 Laasaı 2700 CALL curel,adro:FOR w=1 TO 18@:NEXT 
2254 GOSUB 185@:60SUB 179@:CALL zoom,adr :CALL curset,adro c1Da21 
| zoom: CALL vzeich,tempadr: #1=@:G0T0 271@ FOR i=@ TO 7:POKE buffer+i ‚PEEK(adr 

1 1938 LEBB4] 0+1#2848) :POKE buffer+i+8,PEEK(adro 

1 2248 198221 +1+1#2848) :NEXT i:RETURN L6B241 

{ 227@ ' *s==## farbe fuer punkt auswaehl 2800 ° LEA22] 

f en *s##** (bei vergr. blildschirm) L[217A1 2318 ° clear screen #k 

2200 ° [26261 “.. L843A] 
2290 BORDER PEEK (adrcol+color):#11=® [24541 2820 ° 120261 
2390 GOSUB 1328 152921 283@ PEN 3:LOCATE 1,1:PRINT"{CTRL X214 S 
231@ POKE adrel ‚color:CALL vpoint,pladr: PACE}clear screent4 SPACE} {CTRL X" 

CALL vpoint,‚pladr 192681 ::PEN 1:PRINT_STRING$ (28, "-") ta8801 

. 2311 FOR w=1 TO I@@:NEXT:IF #11 THEN 195 2848 WINDOW #1,4,17,4,1@: PAPER #1,7:CL5 

® ELSE 60T0 2388 LFDE2] # L5A681 

| 2312 ’ Ec11E1 2858 LOCATE #1,1,2:PEN #1,3:PRINT#1," {C 

23513 FOR j=® TO &:POKE tempadr+j,PEEK(te TRL XatCTRL X1l or CCTRL XIPÄCTRL 

| mpadr+j+1):POKE tempadr+ j+8,PEEK(t Xart“ LE7C41 

| mDadr+j+9) :NEXT:POKE tempadr+7,@:Pü 286@ in$=INKEY$:IF in$="a" THEN 2870 ELS 

KE tempadr+15,@:RETURN 122161 E_IF ins="p" THEN 2908 ELSE 60T0 28 

| 2314 FOR j=7 TO 1 STEP -1:POKE tempadr+j 68 LBB44] 

„PEEK (tempadr+j-1):POKE tempadr+j+B 287@ GOSUB 3@@®:CALL ciscreensCLS:adro=b 

}PEEK (tempadr +j+7) :NEXT:POKE tempad ladrıxc=@:yc=8:60T0 525 L7B16] 

7,8: POKE tempadr +8 ,@: RETURN 14488] 2900 GOSUB 3288 TEA9CI 
2315 FÜR j=® TO S:temp=PEEK (tempadr+j):P 291® rfl=@:G0SUB 253@: IF r#l THEN 288 EL 

OKE tempadr +j,PEEK (tempadr +7- 3) :POK SE POKE clbyte,&SE:POKE xcc,tx:POKE 

E tempadr +7-j,temp: temp=PEEK (tempad yec,tyıCALL 1buff picturettx+4@#ty 

| r+j+8) :POKE tempadr+j+8,PEEK (tempad :POKE clbyte,&1A:GOTD 2918 TEBARI 

r+15-j)ıPOKE tempadr+15-j,temp: NEXT za0@ PEN #1,@:PRINT#1:PRINT#1," are yau 

3 RETURN 141583 sure" :PRINT#1,"(5 SPACE}Y/n" 162621 
2320 IF xpoir=12 THEN xpoir=®:50T0 2058 3@1® in$=INKEY$:IF in$="y" THEN RETURN E 

ELSE xpoir=xpoir+4:6070 285@ 119261 LSE IF in$s="n" THEN CALL prscreen:6 
2330 ' ECS1EI OTO 288 ELSE G0TO s@1@ LABSEI 
2548 : ###### clear character Henne L6A1B] 3208 ° [93183 
2550 ° [E522] 2218 ° weit color menu tik 
2368 CALL curcl,madr:PAPER #1,@:60SUB 48 # tE2CAI 

® 139181 322@ ° E911C1 
257@ WINDOW #1.1,20.1,INTC(nemchr-12/20) nn, 3230 GOSUB 488 C18483 

+41 'CSC. 3231 CLS:PEN 2sLOCATE 1,1:PRINT "{CTRL X 
258@ LOCATE 1 ,1:PEN SEPRINT"(CTRL Wclea a FeAcE)color menuts SPACE) ICTRL 

r character {CTRL_X)":B EAETAI %2";:PEN 1:PRINT STRINB$ (28, "-") c4288) 
2390 temp=actchr:GOSUB 1448: 505UB 1518 [94341 3235 WINDOW #1,1,22,3,12:PAPER #1,@:CLS 
24®@ IF count=® THEN CALL prscreensactch # 13348] 

r=temp:POKE chrnum,temp:SOSUB 470: I 3248 FOR i=® TO 7 tESCHI 

F newchr=1 THEN CALL clscreen:S0T0 3258  LOCATE 2,4+i:PEN 1:PRINT i::PEN 

28@ ELSE G0T0 288 176541 izPRINT"(CTRL X315 SPACE} {CTRL %3" 3 
241@ IF temp>=count THEN IF temp=count T PEN i+8:PRINT "(CTRL X315 SPACEITC 

HEN temp=® ELSE temp=temp-i [8558] TRL_X?"3:PEN 1:PRINT i+8 [73BAJ 
242@ IF count<> newchr-i THEN CALL mochr 326@ NEXT:PRINT"(CTRL DOI{CTRL Bictrl ar“ 

„ (newehr-1-count) #16, count#1&+adrch :PRINT “{CTRL OJCCTRL C)tZ SPACEIch 

r ELSE CALL chpic count scount=count ange on picture":PEN 1:PRINT:PRINT 

-1:xc1=xc1-Z:adroi=bladr+xc1#2+16@: STRINGS (28, "-"); 192481 

GOTO 2448 tDaDs] 327@ PRINT:PRINT"{CTRL O{CTRL BIt2 SPAC 


12 


ONIPUTE| 


Bir 


E}ink":PRINT:PRINT"{2 SPACE}color" 
#1=@:col1=@: inki=@:xc=8: vc=3: adro=b 
ladr+xc#2+8@*ycs CALL curset.adro 
GOSUB 3588 


in$=INKEY$: IF in$="" THEN 3308 

IF ASC(in$)=13 THEN CALL prscreen:G 
0TO 288 

kfl=@:G0SUB 115@: IF kfl THEN GOSUB 
1221 


IF xc<8 OR xc>27 OR yc<3 OR ve>i@ T 
HEN 3388 

SOSUB 3588 

IF ASC(in$)=88 OR ASC(in$)=224 THEN 
345@ 


60T0 3308 

CALL curcl,adro 

in$=INKEY$ı IF in$="" THEN 3508 

IF ASC(in$)=9 OR _ASC(in$)=243 THEN 
IF coll=26 THEN 3588 ELSE coli=coli 
+1:60T0 3558 

IF ASC(in$)=8 OR ASC(in$)=242 THEN 
IF coli=® THEN 358@ ELSE coll=coli- 
116070 3558 

IF ASC(in$)=88 OR ASC(in$)=224 TVEN 
POKE adrcol+inki,colisIF THEN 3 
23@ ELSE CALL curset,adro:60T0 3308 


IF ASCtin$)=1 THEN #1=1:CALL prscre 


60T0 3508 

INK inki,coli 

IF f1=@ THEN GOSUB 3598 

60TO 3508 
inki=yc-3- (xc>17) *Brcol 1=PEEK (adrco 
1+inki) 

IF PEEK(adrcol)=coll OR PEEK(edrcol 
+3)=coli THEN PEN 2 ELSE PEI 

LOCATE 9,17: PRINT InkisLocATe 9,19: 
PRINT col 1sRETURN 


er tabie mn 


#444" PRINT STRING$ (88, *-") PRINTEW 


INDOW #0, 1 R 
PRINT+PRINT*(ETRL X2S{CTRL Xcreen 
or (CTRL X9p(CTRL Xrinter :":PRINT 


in$=INKEY$: IF ins="s" THEN n=@ ELSE 
IF in$="p" THEN n=8 ELSE GOTO 3642 


PRINT #n,"values of character set : 
"zPRINT #n 
zeig=adrchr 


3648 PRINT"(CTRL XatCTRL X>11 or {CTRL 


allge. 


XIs{CTRL X}equentiell ı" 
in$=INKEY$: IF in$="a" THEN 365@ ELS 
E_ IF in$="s" THEN 3655 ELSE 60T0 36 


47 
FOR i=@ TO newchr-1 
GOSUB 3668 


NEXT:GOSUB 381@ 
SOSUB 3770: IF flag THEN 3828 ELSE 6 
OTO 3654 
PRINT: INPUT“enter code of character 
#"3is IF i>eneuchr OR 
:PRINT"not defined SOTO 3655 
GOSUB 3660: PRINT:PRINT"press {CTRL 
XICLCTRL X) to continue or {CTRL X 
enter {CTRL X} to return * 
in$=INKEY$: IF ins="" THEN 3657 ELSE 
IF ASC(in$)=13 THEN 3828 ELSE IF i 
n$="c" THEN 3655 ELSE GOTO 3657 
PRINT #n,"char. "si 
PRINT #n,"(4 SPACEI1. 
EK(zeigti#16)); 
FOR j=1 TO 7 
"„U"FHEX$(PEEK (zeigt iti«® 


3 &"sHEX$(PE 


FOR j=9 TO 1 


en 
G0SUB 3770: IF flag THEN 3828 
IF #1 THEN 3745 


RETURN 

in$=INKEY$ı IF in$="" THEN RETURN 
IF ins=" " THEN IF fl _THEN fl=@:RET 
URN ELSE #f1=1:60T0 3778 

IF ASC(in$)=13 THEN flag=1:RETURN E 
LSE flag=® 


RETURN 
PRINT+PRINT=PRINT"{2 SPACEI{CTRL X} 


TEICEI 
18196] 


press enter key to return{CTRL X}": 
RETURN 


3828 MODE @:CALL prsereenıG0T0 288 


4808 in$=INKEY$: IF ins=" 


15@ PLOT xpoia+xpoir ‚ypi 


.circlie #enee 


POKE &8B44,1:POKE &BB4D,&19:G0SUB 4 
80: BORDER & 

GOSUB 3938: IF rfl THEN CALL curcl,a 
dro:60T0 288 

S0TO 3995 

CALL prscreen:CALL curset,adro 
SOSUB 4880: IF rfl THEN RETURN 
IF rifl THEN 3938 

GOSUB 4100: IF rifl THEN 3938 
kumpolatxpolrıy@eypata-ypoir. 

CALL curcl ‚adrosPLOT x®,y@,colorıCA 
LL_curset ‚adro 

SOSUB 4@@0: IF rfl THEN RETURN 

IF rifl THEN 3938 

GOSUB 41@G: IF rifl THEN 3938 
iatxpoirsyl=ypoia-ypoir:fl=B: 


TuBaRt MID) eK i-aB) + lyI-yDdatvi-y 


ALL eurel „adro:PLOT xpoia+xpoir,vp 
oia-ypoir „cal :60TO Si 


ai=x 


THEN 4098 

Deines IF ASC(in$)=13 THEN rfl=1:RET 

De IF ASC(ins)=32 THEN rifl=1:R 

ETURN 

KEITB: BOBUB 115@: IF kfl THEN GOSUB 

IF ASC(in$)=88 OR ASC(in$)=224 THEN 

RETURN 

60T0 4888 

nd#1=1:CALL curcl ‚adro:60SUB 1888 

xpoi a=xc#16ı ypoia= (24-ye)#16+15 

GOSUB 928 

IF TEST (xpoiatxpoir ‚ypoia-ypoir) TH 

EN col=® ELSE Kalrenlen 
oia-ı 

in$=INKEY$: IF in$="" Ti 

IE pc ine)=5 THEN GOSUB 1288: c0ro 

rifl=@: IF ASCtin$)=32 THEN rifl=1:R 

ETURN 

keyf1=8:G0SUB 1820: IF keyfl THEN 60 

SUB 888:60T0 4138 

IF ASC(in$)=88 OR ASC(in$)=224 THEN 

RETURN 

60T0 417@ 

DEG: #1=@: #lag=Bschrzei=adrchr+newch 

r#16 


x=Q: xo=x@+r#C0S (x) ı yp=y@-r#SIN (x) o 
x=xp\16:0y=24-yp\16:ox1=oxsoyl=oy 


ir,col 
4178 


5885 PLOT xp,yp,color 
=® TO 368 


FOR » 
a syp=yO-r#SIN(x) 
® or en or ae OR yp> 


IF lag THEN For een 
ag=® ELSE DRAW xp,yp,color 
GOSUB 


IF INKEY(54)=128 THEN GOSUB 6128 
:60T0 3925 

NEXT 

GOSUB S84@:CALL prscreen:CALL curse 
t,adrosPLOT »®,y@,color:G0TO 3925 
tx=xp\lästy=24-yp\16 

IF ox<>tx OR oy<>ty THEN IF #1 THEN 
GOSUB 584@ ELSE CALL curset ‚bladr+ 
ox#2+oy*BBıoxi=oxsoyl=oysfl=i:IF 1 
1 THEN 5848 

ous=txıay=ty 

RETURN 


CALL curcl ‚bladr+ox1#2+0y1#8@ 
adrn=bladr tox#2+0yr8ß 
oxi=oxıoyl=oy 
offs,B:POKE offs+1,&8:CALL com 
Bare,neuchr ‚adrns IF PEEKICHIYCHO TH 
N POKE picture+ox+4@*oy ‚newchr-PEE 
Kiel) :6010 3915 
IF newchr=256 THEN GOSUB OSB: CALL 
erscreen:G0T0 288 
FOR 1=@ 10 7 
POKE chrzei+i „PEEK (adrn+i*2848) 
POKE chrzei+i+B,PEEK (adrn+i#2048 
+1) 
NEXT 
POKE picture+ox+4@*oy,newchr 
newchr=newchr+lschrzei=chrzei+16 
CALL curset,adrn 


5728 RETURN 


saaa 
6218 


draw Line nina 


187503 


£D7D43 
1C8323 
tAs1CI 
LAs1A] 
L9A261 
C2F441 


129CAJ 
LF224] 


LAs9CI 
t[311C] 
[6668] 


EFCCEI 
L1B6C) 


13092] 
EDFS4] 


LFDB4]J 
[62C8] 


Listing 1. Steuerprogramm für »Background Painter« 
(Fortsetzung) 


POKE &8B44 ,1:POKE &8B4D,&19:rf1=@:n 
df1=1:60SUB 48@: BORDER 5 

GOSUB 393B: IF r#l THEN CALL curel 
dro:60T0 288 

PLOT a0, yo col:d=@:xp=x@: yp=yBılfl= 


ox=xp\16:0y=24-yp\16: 0x l=oxıoyl=oy 
@:xr=SEN (dx) :dx=ABS (dx) 
j: yr=S6N (dy) sdy=ABS (dy) 
drehr+newchr#16 
FOR_j=1 TO dx+dy 

IF d<=® THEN d=d+dx:PLOTR @,yr:yp 


=yp+yr ELSE d=d-dysPLOTR xr ‚Brxp=xp 
*r 

GOSUB 58988 

IF INKEY(54)=128 THEN GOSUB 6128: 
6OTO 58358 
NEXT 


GOSUB 5848: 60TO_ 6838 

LOCATE 1,1:PEN StPRINT*(CTRL %317 5 
PACE)break(2 SPACE}!!(4 SPACE) CTRL 
X}":FOR w=1 TO 20@@: NEXT: RETURN 


Ba 5 1.1.17 BE Ze Se En SE U 5 577 


BORDER 9 

rf1=@:60SUB 2530: IF rfl THEN actchr 
=temp:POKE chrnum,actchr:60T0 288 E 
LSE POKE clbyte,&SE:POKE clbyte+i,a 
ctchr:POKE xec,txsPOKE yec,tysCAll 
1buff ‚picture+tx+4@#ty:POKE cibyte, 
1ArPÜKE clbyte+1,8:60T0 6248 


he 1 


MODE 2:PEN 1 

PRINT" (13 SPACEIEMEEH in form 

at i 0 n(2 SPACE)MeMMEE" 

PRINT" (12 SPACE) 

PRINTEPRINT 

PRINT"character-set ı":PRINT"starta 

dress ı &"3HEX$ (adrehr) ı PRINT"endad 

ress : &";HEX$ (adrehr+newchr#16-1) 

LOCATE 25,5: PRINT"number of charact 

ers :"ınewchr:LOCATE 25,6: PRINT"cha 

rcters free :":256-neschr 

LOCATE 53,5: PRINT"picture ı" 

LOCATE 53,6: PRINT"startadress ı &"; 

HEX$ (picture) sLOCATE 53,7: PRINT"end 

adress : &"3HEX$ (picture+48#25-1) 

PRINT:PRINT"{CTRL X}Paint/Zoom: (CTR 

L_X)"sPRINT"(4 SPACE) () only paint" 

ıPRINT"(4 SPACE)() only zoom" 

PRINT" (CTRL T) character table":PR 
INT"(2 SPACEICTRL G(2 SPACE)get cha 

racter“ıPRINT" (CTRL N) get code":P 

RINT"(2 SPACEICTRL Zt2 SPACE)zoom" 

PRINT"(2 SPACEICTRL D(2 SPACE)defin 

@_chr. "ıPRINT"(2 SPACEICTRL R(Z_SPA 

CE}redefine chr."ıPRINT"(2 SPACE)sp 

ace(3 SPACEIeIr. chr.” 

WINDOW #1.27,8@,11,25:PAPER #1,@:PE 

N #1,1:CL5 #12WINDOW SWAP 

PRINT"Definitions" 

PRINT"(2 SPACEI{CTRL 52 search chi 
»PRINT"{3 SPACEICTRL Ct2 SPACE) 
color "PRINT" (3 SPAGEICTRL B(2 

CE)break def.":PRINT"(3 SPACE)eIr (5 
SPACE)clear def."ıPRINT"(3 SPACEIE 

nter (3 SPACE)take def."ıPRINT"(3 SP 

ACEICTRL Z{2 SPACE}zoom chr.” 

MINDOW SWAP @,11WINDOW #0,54,00,12, 

PRINT "{CTRL O%£6 SPACEJovly chr. 

PRINT "{CTRL "sCHRE(1)E"CCTRL KI C" 

SCHRE (1) F"CCTRL 32))(2 SPACE)mirror 
x"sPRINT"CTRL "SCHRS (1), "CCTRL 12 
{ruCHR& CH ETSETRL H232 CZ SPACE) mir 

ror y"sPRINT" (shift "ICHR$(1)"CCTRL 
KI"SCHRE (1) "CCTRL IP" ICHRSCH) N" CC 

TRL HI"SCHRSC1)E"CCTRL 13312 SPACE) 

move chr." 

PRINT "(space}(7 SPACE}elr. point“ 

WINDOW #8,1,88,28,25 

PRINT" CTRL Xline/eircle: {CTRL X)" 


PRINT+PRINT"(2 SPACE}=pace{3 SPACE) 
set marks":PRINT"(2 SPACEICTRL B{2 
SPACE}break " 

LOCATE 32,1: PRINT "{CTRL X}move/cop 
y/#ill: (CTRL X3"sLOCATE 34,3:PRINT 
"space{2 SPACE)set marks" 
PRINT:PRINT:GOSUB 7785:MODE @rCALL 
prscreen:60T0 288 


“Mh arbage 
etionm ann 


colle 


CCB1E] 
IDSECI 
167981 


[BF62] 
CAF941 
LFS9CI 
L77ACI 
L1FD4] 
161261 


LCDF&I 
178481 
LF9521 


LESSCI 
LE768J 


L@D7EI 
CCAIEI 
[5176] 
10822] 
LFCB4] 


T7AAG) 
LCC28] 
t1C7C] 
LEE24] 
E3BA2] 
1CD98] 


[S1F8] 
18986] 


LA17E] 
L7CE6I 


CAFABI 


IFDIAI 


13382) 


187423 
12088) 


172581 


ICE38] 
[88261 


182181 
L2CFB] 
16298] 


[86E8] 


124801 


L&6E21 


12258] 
tes1c9 


155081 


7418 
7415 


7420 
7421 
7422 


7425 


7438 
7431 


7434 


7435 
7436 


PEN 3:LOCATE 1,1:PRINT"{CTRL X) gar 
bage collection {CTRL X3"5:PEN 1 ıP 
RINT STRING$ (28, "-") 

WINDOW #1,4.17,4,1@:PAPER #1,7:CLS 


#1 
PEN #1,@: PRINT#1: PRINT#1:PRINT#1," 
are you sure":PRINT#1,"(5 SPACE}y/n 


in$=INKEY$: IF ins="y" THEN 7978 ELS 

E IF in$="n" THEN CALL prscreen:G0T 

0 288 ELSE G0TO 7968 

SOSUB 488: WINDOW #1,1,2@,3, INT (new 

chr-1)/2@) +41 PAPER #1,B:CL5 #1 

PEN 1:LOCATE 1, INT ((newchr-1)/2@) +4 

:PRINT STRING$ (28, "-") 

IF newchr>i THEN CALL prtable,neuch 

r ELSE 6010 7139 

FOR count=newchr-1 TO 1 STEP -1 
adrol=bladr+count#4+16@:CALL curs 

et,adroi 

CALL abfall ‚count 

IF PEEK(c#1)=® THEN CALL curcl ad 
rol:60T0 7138 

count=PEEK (c#1) 

IF count <> newchr-i THEN CALL mo 
ehr , (newchr-1-count)#16.count#16+ad 
rchr 

CALL chpic ‚count 

newchr=newchr-1: IF newchr>i THEN 
CALL prtable,newchr 
NEXT 
SOSUB 49®:CALL prscreen:50T0 288 


di 

CALL curel ‚madr 

SOSUB 49@:LOCATE 1,1:PEN 2:PRINT"C 
TRL X>{5 SPACE)disc menut6 SPACEI CC 
TRL X"; 

PEN 1:PRINT STRING$ (28, "-") 

WINDOW #1,3,17,4,25: PAPER #1,7:WIND 
OW SWAP @,1 

xc=61 yc=3: adro=bl adr +xc#2+yc#Oß 
CLS:PEN 3 

PRINT 

PRINT" load file":PRINTSPRINT" 
all":PRINT:PRINT" save pictur: 
INT:PRINT" save table" 
PRINT:PRINT" load table ap" PRINT:P 
RINT“ show picture“ PRINTIPRINT" sh 
om table":PRINT:PRINT" catalog": PRI 
NTAPRINT" menu":PEN Or PRINT#PRINT"- 
——-————-"} PRINT" select item!" 


CALL curset,adro 


in$=INKEY$:ı IF in$="" THEN 7288 
kf1=@160SUB 115@: IF kfl THEN GOSUB 
1221:60T0 728@ 

IF ASC(in$)=88 OR ASC(in#)=224 THEN 
73380 

60T0 7288 


IF xc<4 OR wc>31 OR yc<3 OR vc>2@ T 
HEN 7288 

x=(yc-3) /248.5 

IF »<>INT(x) THEN 7288 

ON x GOTO 7498, 7488,7530,7680,7908, 
780@,7818,7458,7380 


WINDOW SWAP ®,1:G0SUB 498: CALL prsc 
reen:50T0 288 


CLS:ıPEN 1:PRINT"{CTRL X3{3 SPACEILO 
ad filet3 SPACEI{CTRL X>" 

GOSUB 7750: IF a$="" THEN 8908 

POKE buffer+11,@:POKE adrchr ‚newchr 
1 

LOAD ""+as 

IF PEEK(buffer+11)=255 THEN 7425 
newchr=PEEK (adrchr) +1: actchr=1:POKE 
chrnum,actchr:POKE adrchr „8:60T0 7 
228 

LOCATE 1,1@:PRINT"part of picture”: 
PEN 3:PRINT"enter:":PEN @:PRINT:PRI 
NT" (CTRL X3ofCTRL Xhriginal or":PR 
INT" (CTRL_XIn{CTRL X)ew"sPRINT:PRI 
NT"{2 SPACE}position” 

POKE spx „PEEK (buffer+14) :POKE spy,P 
EEK (buffer+15) 

in$=INKEY$: IF in$="o" THEN 7434 ELS 
E IF in$s="n" THEN 7438 ELSE G0T0 74 
sı 

adr=picture+PEEK (buffer +12) +40*PEEK 
tbuffer+13):POKE xcc ‚PEEK (buffer+12 
)zPOKE ycc.„PEEK (buffer+13) 

POKE adrchr ‚@:CALL Ibuff,adr:CALL p 
rscreen:50SÜB 779@:WINDOW SWAP @,13 


LC5281 


LCC961 
C1B621 


ESDAAI 


LBFSEI 
18334] 
L3D4C1 


LTAEE6] 
[5E66] 


CDBAB] 
10344] 


LC8481 
[7C72] 


195641 
[4784] 


L[8BF6] 
LF2641 
C416C1 
19026] 
LCC761 
19B2A] 
188283 


TAA141 
TABAEI 


136701 
E1DB6] 
CB27AJ 
CCCF2] 


1907C] 


LA6B6I 
CAA261 
L9AZEI 
CABE4] 


184381 
CCFFCI 
[8324] 
CBF26] 
cF9C1C9 
LC79E1 
CAs@81 


caDAa21 
L9AS@I 


L169C1 
104343 


L882C3 
C9DBAI 


L3A621 
C4E42] 
1D768] 


17881 


[B47E] 
L44AC1 


187781 


L7E4EI 
[2C5E1 


60T0 7188 
POKE adrchr ‚8:60SUB 48@:CALL prscere 
en:CALL curset ,‚adro 
in$=INKEY$: IF in$="" THEN 7448 
kf1=@:GOSUB 115@: IF kfl THEN GOSUB 
1221:60T0 7448 

IF ins="X" OR ASC(in$)=224 THEN 744 
5 


GOTO 7448 
POKE xcc,xc:POKE yec,vesCAlL Ibuff, 
picture+xc+4@*yc 

CALL prscreen:50SUB 779@:WINDOW SWA 
P® 126070 7188 


MODE 2:PEN 1:PAPER @:CAT 
SOSUB 7785:MODE @:CALL prscreen:GOT 
0 7188 


CLS:PEN 1:PRINT"CTRL X)13 SPACE)sa 
ve all{4 SPACE} CCTRL X2” 

GOSUB 775@: IF a$="" THEN 

POKE adrchr ‚newchr-1 

SAVE a$,b,adrcol ‚16+18@@+newchr #16: 
POKE adrchr ‚8:60T0 722@ 


CLS:PEN 1:PRINT "{CTRL X) save pict 
ure{2 SPACE}CTRL X)" 

PEN B:PRINT " {CTRL X}atCTRL X1l o 
r_ {CTRL_XP{CTRL Kart“ 
in$=INKEY$: IF in$="" THEN 7558 

IF in$="p" THEN 7590 ELSE IF ins="a 
" THEN 757® ELSE GOTO 7558 

GOSUB 775@: IF a$="" THEN 

SAVE a$,b,picture, 1888: 6010 an 
GOSUB 7758: IF un THEN 8808 EL! 
WINDOW SWAP 

rf1=9: GOSUB 2530: ır r#1 THEN 288 EL 
SE adr=picture+tx+4@*ty:CALL copy,a 
ir 


d 

POKE buffer+11,&FF:POKE buffer+12,t 
x:POKE buffer+iS,ty:POKE buffer+iä, 
PEEK (spx ) :POKE BEL EmEH US Lenk tun? 
1e=5+PEEK (spx) #PEEK (sp 


38 SAvE as;b apuffereit, „IEICALL precree 


n:60T0 


7688 CLS:PEN 1:PRINT"{CTRL X)(2 SPACEIsa 


ve table{3 SPACEI{CTRL X)" 

PEN @:PRINT "(2 SPACEICTRL XIatCTR 

L X311l or {CTRL X)p{CTRL Xrart" 

in$s=INKEY$: IF in$="" THEN 7788 

IF ins="p" THEN 7732 ELSE IF ins="a 
THEN 7728 ELSE GOTO 7708 

G0SUB 7758: IF a$="" THEN 8008 

POKE adrchr ‚newchr-1 

SAVE ae BT adrEhE snewebr.B EL RORE adr 

ehr ‚8:6010 7: 

GOSUB ch as="" THEN 8088 ELSE 


GOSUB 488: CALL prscreenıPAPER #1,8: 
GOSUB 1420: G0SUB 151B:1F count=@"TH 
= GOSUB 498:1CALL prscreen: 6070 71 


EnkgecolnErnesen Iro1:60SUB 2788: 60 
SUB 151@: IF count=@ THEN GOSUB 490: 
CALL prscreen:G0T0 7188 
IF temp>count THEN GOSUB 


7733 
adr 1=adrchr+tenp#16: adr 2=adrchr +cou 
nt#is 


9848: 6010 


temp=PEEK (adr1-1):POKE adri-1,(adr2 
-adr 1) /16+1 

SAVE a$,b,adr1-1,adr2-adr 1417 

POKE adr1-1,tempiGOSUB 49@:CALL prs 
creen:G0TO 7188 

CALL &BBöS:PEN 3:PRINT"enter name: 
:PEN @: PRINT: INPUT as 

RETURN 


CALL SureLsa adro:FOR w=i1 TO 1@@:NEXT 

»CALL cı dros 

PRINT« “ BPAleipress any key to ret 

urn 

in$=INKEY$ı IF in$="" THEN 779@ ELSE 
RETURN 


GOSUB 488: CALL prscreen: 
GOSUB 498: WINDOW SWAP 


GOSUB 7790: 
1:60T0 7188 


9@:CALL prscreen:60T0 7188 

PEN 3:PRINT:PRINT:PRINT”(3 SPACE)se 
t marks{2 SPACE}":FOR w=1 TO 2000:N 
EXT:RETURN 

ELS:PEN 1:PRINT"{CTRL X)12 SPACEI1O 
ad file ap {CTRL X)" 

SOSUB 775@: IF a$="" THEN aaa 

Air 1eakirchrtnnuchr #1 it ENMp-PEEK (ad 
LOAD ""+a$,adri-1:newchr=nenchr+PEE 
Ktadri-1)zPOKE adri-i1,temp 

IF newchr >255 THEN newchr=255 


teF@21 


caD821 
TESDCI 


127321 
LF4221 
TBA361 


152441 
L183@] 
tESSCI 
15378] 
CBAS6] 
78EE) 


LBCBA] 
1B5D8] 


188281 
188121 
tc18A1 
ICEDEI 
LaBAAI 


L1CDBI 


[885€] 
TAABAI 
10278] 


L38BA] 
t4EBA) 


Lıcscı 


L94E6) 
TAEAAI 


141581 
1295A1 
LFABEI 


[DES@] 
LFIGEI 


L9F961 


[2658] 
CC1141 


LAIGEI 
[61661 
[22AEI 


WINDOW SWAP @,1:5070 7188 


1C928] 
ELCH “u... error meldungen #s#x=* LFD241 
9@: 107243 


903@ PEN 3:LOCATE 1,1:PRINT "{CTRL X) ch 
aracter set full {CTRL X3":FOR wei 


TO 158@: NEXT:RETURN 
PEN 3:LOCATE 1,1:PRINT "{CTRL X314 
IACTRL X 


SPACE}already defined{3 SPACE} {CTRL 
‚0":FOR w=1 TO 1588: NEXT:RETURN 


#eneer meldungen #unsee 


PEN 1:LOCATE 1,1:PRINT "{CTRL X} ch 
ar. found: {CTRL X}"s:PEN SıPRINT ne 
wehr-PEEK (c#1): FOR w=1 TO 15@@:NEXT 


RETURN 
PEN SILOCATE 1, AUPRINT "{CTRL_ X} ch 
ar. not found CTRL X3"sFOR wei 
RE 1588: NERTIRETURN 

"nn anfanı ebild s ELLI 2 


185% EBCkrE" BCHTTPEN TEPRINT*or“ 
N ZAPRINT* enter":G0T0 11908 


119888 " s=..#* farbwechsel fuer anfangs 
bild wnunee 


ıPE 


11818 anf=2 [C46E] 
1@2@ anf=anf-1:IF anf<2 THEN anf=11 CCBD@] 
11838 an=anf 
11848 FOR i=2 TO 11 173741 
11858 INK i „PEEK (adrcol+an) san=an+i1:I 
F_an>11 THEN an=2 LC7D2] 
1186@ NEXT LFFAEI 
1187@ IF INKEY(18)=® THEN RETURN ELSE 60 e 
TO 11820 t6BEBI 


Listing 1. Steuerprogramm für »Background Painter« (Schluß) 


98" WH Assembler-Unterroutinen 


[ 
DATA 221,110,9,221,192.1,221,94,2,2 
21,86,3,6,16,126,245,1675° 

DATA 238, 178,32, 3726.230,170,79,241 
‚230,85, 3; 

DATA 137,18158.19, 16,252. 201,205, 10 
3,142,6,8,221,126,8,245,1762 

DATA’ 245,221,126,@,238,17®, 285,63,7 
9,221,126,8,238 22) 
baTa'177,221,119,8, 

63, 79,241, 238,85, 203,39,177,2486 
DATA’ 221,119,0,221,35, i6,2 213,201,28 


'9,221,126,2475 
DATA 5,230, 178,285,63,177,221,119,8 
‚221,35, 16,224, 281,205, 193, 2204 
DATA 142,2,8,221,126,8,245,230,85,2 
@3,39,221,119,8,241,23@,2132 

DATA 170. 1 at ae „85 


243.221,110,0,22 
‚82: 


107 


1 
111 
112 
113 
114 
115 


116 
117 i MER SRRERUR RUN 
15,14,13,8,2 
118 "DATA 18,19,17,17,17,16.15,18,11,8,1 
5519217, 17,17,16,238 
1,15, 19,17,17,17,16,15 . 


119 DATA 15,8,56 
.2,3,4,15, 
128 'DATA i7, 177 17, 14; 15,2,3,2,15,19,17, 
17,17,16,15,8,205 
121 DATA" +15, 19,17,17,17,16,15,5,1, 
7,236 
122 15,35,26,27,3 
123 8,64,128 


192,512 
124 "DATA 128,128,128,8,128,64,64,192,64 5 
re 64.80.54. 128,129, 128,1472 


35,33,193,16,231,17 

221,225, 221,25,193,16,216 
17,17,17,28,1738_" 
15,19,17,17,17,16,15, 

22,23,21,15,19,2 

DATA 17117117118,15,29,28,0, 1511951 


Listing 2. Basic-Hexlader der Maschinencode-Routinen 


126 
127 
128 
129 
130 
131 
2 132 
133 
134 
135 
136 
137 
138 
139 


148 
141 
142 
143 
144 
145 


146 
147 
148 
149 
158 
151 
152 
153 
154 
155 
156 
157 
158 
159 
168 
161 

162 
163 
164 

165 


1: 125 DATA 128 


128,64,0,128,0,0,0,8,8,128 


‚@,128,128,128,128,1 LAF6AI 
DATA 128,128 172,8,8,8,0,0,0,0, 128, 


0,64, 


128,128,84, (89021 


DATA 0,0,192,0, 122,0, 0,128,64,64,12 
8,2, 128,128,128,128, 1286 C1aDA] 
DATA DICHE ,64,0,64,64,64,64,64,128 


156 Zei 1172 LDDBEI 
0,0,0,136,204,204 


‚2,0 > @72 18481 
TA 8, 1128,192,192,192,0;0,8, 
4,8,8, LIrscı 

nee, 
19472] 

PBATA 0,4,8,0,0,0,8,8,0,8,0,0,8,60,2 
@4,204,512 1D52C1 

ATA 26.8,0,0,68,204,152,48,204,204 
‚@,0,204,284,48,48,1452 102661 

8,0,136,204,100,204 
„9,4,8,8 64 CBF881 

DATA 8,8,8,4,76,140,140,140,148,14@ 
‚140,76, 136,68,48, 64 14664] 

DATA 68,68,68, 13. Sie 0,0,0,0,0,0 

‚2,8, 8 ED8Scı 

8,0,8,4,76,198,136,140,136.148 
rsaezertaeie, LI6EE] 

DATA 14,12, 18,1640, 18,0,0,0 „16 

»16,16,18,1 188521 

Data A8,ie,i6, 16,8,0,8,2,2,2,8,0,0, 
»8,8,96 L2FaEI 
DaTa_48,0,0,0,0,8,0.,2,40,2,0,0, 

8,7 tEF&CI 
Kate 16,16,16,16,8,8,0,2,48,0,8,8,1 

16,16,176 EeDc41 
para ıa 15,16,16,0,0,0,0,48 ® 

‚8,8,8,112 LıcFaI 

DATA_48,16,16,16,0,0,0,0,0,8,8,@,12 

‚12,12,12,144 L7F301 
pata 12,12, 12,12,12,12,12,12,12,12, 

12,12,204, 204,204, 204,948 173DC3 

DATA’ 204,204, 204,204, 204,204 ‚204,20 

4,204 ‚204 204,204, 192,192,192,192,52 

LE2381 


"ara 192,192,192, en „192,192,19 


2, 3172, 192,192, au17z en, 


68,68,257& 199621 
A'68,68,48,68,204 ‚204,284, 204,20 


0. 208,200, 24.203’ 204. 204, 196. 2006 L25BA] 


n 
3 
ge 
5 
ERS 
5 
FR 


DATA 28,0.0,48,284,204, 284 ,284,204, 


» 
s 
ae 


LABE6] 
68, 1592 L3FFAI 


[91681 
‚2,8,0,0,0,0 

LBSFAI 
,2,0,0,4,12,8,0,0,64, 


„208,488 L7BaAI 


DATA 208,192,64,@,192,192, zes 240,2 
a, 290,192: ‚192,0,128, 132, 2 [32781 


4,192,128,0,0,8 0.8.0.0,0, 


@,0,0,8,544 113681 
en 

136,0,16,16,16,16,1152 C46F@] 

DATA’16,16,16,48,0,8,8,0,0,0,0,2,8, 


2,0,0,96 
ERRHSELH ‚2,8 


6,16,1 


£C74C] 
LF684] 


0,0,0,48,16,1 


DATA 16,16,16,16,0,9,8,0,0,8,8,48,8 
@,240,17&,176,784 LEB1A] 


DATA’ 176,176, 176.248, 160 240,176,17 
6, 178: 176, 240,2 24; 


20,2432 ECA7AI 
29,0,20.38,28,28,18.0,0,0,0 


Re N t7BaC1 


2301 3,237, 16,234, 1824 172181 
„Data” 18.139.500. 


"DATA 


123,1 
Data 

”e, ER 
ER 
Rn TA 
ara 


BATA 
16,21 
ra 


221,1@2,1,22 CBBAQ) 
229,2 


98,139,33, 
se, 197 zu Br 229,253,2459 " LF5341 
25,17,0,8,6,8 22i, 126,0,253,1 
52, 2: ze. 126,1 12068) 
9,8 


} 
253,1 32,14 ,253,35,221,2 
193, 120,201 t9acB1 
1,8,221, 18; 


2, ann 221, 193,17,1 
is 225 
2er, 206, 26 29 130723 
11@,8,221,182,1,17,155,142,58, 
912197,229 1738 1FS341 


8,115 
ta 142,79.4,8.237- Die: 1,49,0, 


„16,238, 201,205, LEB7@1 
105, 192,208 55,199 142,17 105, 


142,58, 17 142,1@3,58,114,142,1876 _ LECE4] 
tA_71,197,221,229,58 


7, ıleı 1azılıı, 


a 1,26:8, FAR! „119,1895" teFBBI 


231.33,19,4 
12,1 Aa, 1532 " caaaaı 


, 2342 
4,201,58,113,142,79, 1804 [ScE21 
3,0 9,253,9 205,22 23° 209 ,24,227,2 


AIR 30522 238, 159.5.209,222,130,16,2 ee) 


1,128,50, 121,182 ,285,42,2541 1943A1 


iz1 122, 108,50 ,8,91 281,721 ,55, 
160, 192,235,231,28,197.203.1976 °°" casgeı 


176 aanTa 165, jan: 193, zei, 221, „” ‚@,221,8 4 
LZAACI 


221,78,2,221,70,3 

177 BAtA 33712.6,25,283 172,281 221,126 
‚9.33,147.146.2,23.197. 1589 1C8341 

178 "DATA’6,48,198,218,34,148,194,35,14@ 
‚54,8,195,35,148,53,35, 1509 t@B28) 

179 "DAtA'16,248, 193, 16,234,2@1,221,110, 
@,221,102,1,229,253, 225, 221,248% tFaDcI 

188 DATA'11@,2,221,1@2,3,229,221,225,19 
5,178,148,221,110,8,221,182,2280 CAEBBI 

181 DATA'1,283,33,160,194,195,115,141,2 
@5,103,142,253,33,139,142,8,2113 CAAEEI 

182 DATA 8,17,8,8,253,126,8,221,119,@,2 
53,126,8,221,119,1,1488 LAD721 

183 DATA 253,35,221,25,16 258 ‚201,205, 1 
as,192, 17,0,8,253,33,123, te2cc} 

184 “oAta 14216,8,221,128,8,288.119,16,2 
30.69,288,162,8.221 119, 1981 C17881 

185 DATA" „12631,253,119, 24,258,178 
‚253,182,8,221,119,1,253,218 LASC6] 

186 "DATA 2123 121222 2811205, 105,1 
1,142,205,165,148,2238° caDa21 

187 "oAra 281,17,123.180.258.41.253,41,2 
53,41, 253, 41,253, 25,17,8,1982 LEADBI 

DATA’8,4,8,253,126,8,221,119,0,255, 
CeBEAI 


12610, 221 1119.11221,120 
Date” „253,35)16,238,201,33,147,14 
197.8,40)58,0, 1422 L2F661 
190 OBAtA 35 16.281 1081 16,245, 201 ,243,2 
21,558, i92 33,147,146,6,1978 LFCF2I 
25,197,6,40,197,221,229,78,6,0 
ar 253,225 


‚265,165,140,2184 CCB14] 
192 DATA 221,225 221 35,221,35,35,193,1 


18.100.201 ,17,0,8) 
285 DATA 8,253,119,@, 


eRSHATE 


as: 


6,23, EHRE, 1228, 251,281,243, 2368 t2E781 
97.221.229 253,229 36) „16,2242° LF7521 
225,17,128,2,253,25,221, 
195 Data 17,46,8,221, 25,33, 1191142152, 1 
"1b, 22i, 251 ‚281 16,5 1542 Loc961 
DATA’ 17 9,58,1 
740,282. 107. 141.25: L9ADAI 
54,25,24 ‚126,0,2187 177041 
DATA" 205 113,141,253,225 
975 L6B441 
23,150,195,87,141,6, 
200 DATA 253,229,229, 32551227 
„177,273 161443 
20ı "Bara' 197,205. 193,181,193. 53.253,25 
‚17,80,8,253,25, 18,232,253,2517 tosanı 
229,126, 230,85, 79,203, 1768 84041 
203 Data 39 1177,197,205, 192,141,193,35, 
‚2,2 
17,8,8,253,25,193, 
6,1634 t62DE1 
253 
6 
H 237142,253,126 
7,253,2398 1D6@21 
3,126,15,253,119,31,285, 103, 2038 LDEF6I 
21632 1221,126, „1:238,65,253, 1 


194 DATA 142,58,120,142,205 141,255, 
225,2 LSDF8] 
> 
197 _DATA 58, 1i7, 2,132 ,24 ‚8,258,187,141,2 
2 
199 "DATA 120,142,52,193,18 
CBS4EI 
9,126,230,170,79,203,53 
202 'DAtA 225,17,4,0,253,29,225,6,8,253, 
253,25,16,2@48 170641 
119,1,253,119, 
17 t3Dc43 
207 'bATa 119.23,293,126,8.253,119.24,25 
82,1,253,119,17,221,126,1 15488) 
DATA 


9,230,178,253, 182,9, 255,119,25 
„221,35,253,35, 16,228, 33,207 L7@EEI 
21a "DATA 139,142,283:35.188/194.195, 113 

‚141,58,121,142,205, »; 12, 23, 2382 LE9321 
211 "DATA 33,160,194, 


LaCDEI 
181761 


142,205,44,198 ' 107781 
D 58,115,142 ol. 111, 
REESER EN 4 41.1573 91861 

ie, 8,221,182,1, 


143501 
BEN 0,7 8,136,32,168 
3,1823 LeRBEI 
es, 16,08, 20,84,193,0,0,0,0,8 
36FEI 
19. 0,0.0,8,0,2,0,0,2,2,0,0, 
2,0 LF3@AI 
228 DATA 0,24,20,6,26,1,2,8,10,12,14,16 
„18,22,15, 176203 
520 MEMÖRY 34611: adr=34612 [82861 
510 FOR 1=18@ TO 218: sum=® CIBEZI 
528 FOR i=® TO 1S:READ a:POKE adr,aradr= 
adr+1:sum=sum#, tE7D@1 


NEXT 
53@ READ a:IF a<> sum THEN PRINT"error i 
n zeiler"1 


[D69C] 

540 NEXT 175F@] 
558 FOR i=@ TO 15:READ a:ıPOKE 37587+1 ,a: 

NEX £D3C8] 
56® FOR i=38523 TO 38523+141POKE i,@:NEX 

T LAsSCI 


57@ SAVE "bp.bin",b,34612,3927 191861 
Listing 2. Basic-Hexlader der Maschinencode-Routinen 
(Schluß) 


a anfangsgrafik Wan 


MEMORY 34611: LOAD"bp.bin" „34612 
adr=375@7 
FOR 1=488 TO 872 

sum=® 

FOR i=® TO 14 

READ a:POKE adr ‚aradr=adr+1:sum=su 
ma 

NEXT:READ a:IF a<>sum THEN PRINT"e 
rror in Zeile: “I:END 
NEXT 
SAVE"bp.bin",b,34612,&983:END 
DATA 8,26,7,12,18,19,18,13,6,12,14,1 

96 


gESEREAR SS 538 8 3Sukäuts 


123,123,123,123,123,123,123,125 
„123,123,123,123,123,123,123,1845 
DATA 123,123,123,123,123,123,123,123 
BErE 123,123,123,123,123,1845 


614 DATA 122, 8,0,8,0,0,124,0,0,8,8 
9,246 
615 Data @, 


„125 

DATA 8,8,0,0,124,0,1,4,0,8,9,15,16,1 

8,23,218 

DATA 29,30,32,35,36,23,4,0,46,45,47, 

48,54,58,59,544 

DATA 54,25,71,69,8,125,8,0,0,8,2,0 
1 


‚0,124,518 

620 Data 6,22,21,18,14,20,0,24,28,27 
33,48, 39,287 

621 DATA 24,28,27,43,44,50,49,55,57,68,6 
3,66,73,70,0,787 

622 DATA’ 125, ‚2, 124,0,2,5,7 
„11,274 


DATA 12,13,17,19,31,25,26,34,37,38,3 

1,25,26,41,42,417 

DATA’ 51,52,53,58,61,62,67,68,72,0,12 
669 


9,9.139,148,8,142,145,1 
6 
147,145,148,149,150,2,8 


1832 
8,8,0, 124,8 [) 
@,249 
631 DAtA 8,0,141,0 
„141 
@,0,157,172,166,167,@ 
787 
8,8,124,8,0,0. 8,109,108 
.197,0,448 
634 DATA’ 8,94,8,8,0,8,85,84,8,0,8,2,0,15 
9,159,580 
&35 DATA 156,171,163,164,8,125,8,8,8,0,@0 
„8,0,0,124,983 
636 DATA 0,0,0,8,0,8,118,8,186,111,97,1@ 
2,91,93,74,784 
637 DATA’ 75,76,83,81,80,8,8,@,168,162,1& 
9,168,178,165,8,1389 
638 DATA 125, 8,124,8,8,0,0 


8,247 

DATA @,112,185,8,100,98,95,76,92,0,@ 
‚77,82,78,79,1814 

DATA 87,0,0,8,161,8,154,155,8,8,125, 
.@,0,682 


‚104 
„103,331 

642 DATA’ 99,101,8,116,117,0,0,8,90,86,88 
»89,0,8,8,786 


Listing 3. Der Basic-Lader erzeugt das Titelbild 


EoDB23 
[885C] 
11868] 
Eesası 
16B42] 
135B2] 
LCFBAJ 
L71FA] 
13888) 
[BEA&I 
TAB16] 
LIEBCI 
L9BBE) 
tACı0] 
1A912J 
15214) 
tır16) 
{99181 
1[5D1A] 
L9CBAI 
T6AABI 
LEB46] 
[8048] 
18382) 
15314] 
[C1B6] 
L7FIEI 
1DSC6] 
CCAGEI 
1789C] 
16226] 
1B708) 
LFCS6] 
t1CD8J 
(7052) 
tAE18I 
£1296] 
CDAC4I 
16426] 
1698A) 
E1AABI 
A132] 
114383 
tA716] 
tABE2] 
18C08) 
1[85B6] 
£F19A] 
1B482] 
EF9BB] 
15148] 
[88083 


333371735 


EEE 


178,179,18@,183,185,186,1 
9,1431 
‚2,0,0,0,0,124,0,0,0,0 


8,8,118,12@, @,1 
8,173,136 


‚2,8, 

8,8,124,0,133,135,138,8, 

„® „538 

DATA 8,8,131,119,121,13@,0,2,176,8,8 

‚8,8,0,8,677 : 
.® ” 


Data’ 134,135,175,174,@,125, 
124,867 
133,133,133,137,127,127,127,1 
27 ,127,127,127,128,133,133, 1819 
Data 129, 127,127,177,127,127,127,127 


„125,8,0,8,8 


122,126,126,126,126,126 
„126,126,126,126,126,1382 
DATA’ 126,126,126,126,126,126,126,126 
„126,126, 126,126,126, 126,126, 1898 
Data 126,126, 126, 126,126, 122 


DATA 
191 


DATA 
bara 


132,132,132,132,132,192,152,152 

„152,152,152,152,152,132,132,2188 

DATA 132,152,132,64,54,8, 152,152, 152 
, 


152,152,152,152,1 2,191 
bATA'132,132,132,132,132,132,132,152 
„152,152,152,152,152,152,152,2148 
24,188,188,180,180, 188,188 

„128, 128,252,232,252,23584 
TA 232,18@,180,180, 188,180, 188,224 
1232, 232,232, 128,128, 2848 
}180, 188,188, 192, 192,188,18@ 
180,252,128,128,8,8,1952 
Data 128,128,232,0,0,0,0,0,0,0,0,64, 
129,129,129,939 
DATA 129,129,129,64,0,8,64,64,133,13 
3,133,133,@ 192,142, 1445 
DATA 142,142,142,142,142,0,128,20@,2 
090,152,152,152,152,0,8,1846 
DATA 0,8,128,128,128, 128,152, 152,152 
„152,152,152,152,152,224,1952 
DATA 224,224,224,224,224,224,224,135 
„135,194, 194,194, 194,194,128,2936 
DATA 192,128,0,0,0,0,0,0,144,144,64, 
64,64,64,64,728 
DATA 8,188,180,180,180,1808,188,180,1 
92,128,128,128,128,128,128,2228 
DATA 128 64,64,64,64, ‚0,0,8 
2,9,0,448 
DATA 8,0,0,64,64,64,64,64,64,64,64, 
‚2,8 512 
DATA 0,0,0,0,0,0,64,64,64,64,64,64 
„129,129,642 
DATA 169,169,169,169,169,192,135,135 
„135,135,135,194,128,169,169,2372 
DATA 169,169,169,129,129,64,128,194, 
135,135,135,135,135,192,8,2018 
DATA 128,2@2,2@2,142,142,142,192,0,0 
‚8,8,128,128,128.128,1662 
DATA 192,142,142,142,202,282,128,8,1 
28,128,128,128,8,0,8,1662 

6° 6 ‚6 69,169,169,169,1 
69,128,128,128,128,128,128,2128 
DATA 128,128,135,135,135,135,155,135 
,„135,135,142,142,142,142,142,2046 
DATA 142,142,142,8,0,0,0,8 „@,64, 
64 ,64,64,682 
DATA 64,64,64,64,0,0,0,64,64,64,64,6 
4,64,144,144,928 
DATA 152,152,152,152,152,64,64,64,64 


LFF32J 
[@44E1 
1B824] 
LFD983 
1413@1 
L@S1E] 
A638] 
[56861 
L7BF@J 
[83DAJ 
L7DECI 
141961 
1231039 
LS1BEI 
1D15AJ 
165B4] 
L7EE4] 
15814] 
125161 
1B218] 
LAF1AI 
124103 
tAIIEI 
tBE28] 
tı1ecE] 
127E2] 
1B878] 
t72F®) 
LFFSA] 
19004) 
127ACI 
15B76] 
12088] 
181281 
CB2BEI 
1731801 
[DFE&I 
11594] 
[5DEBI 
103163 
tB3S8E] 
171681 
17622] 
c5Dc21 
[A264] 
TE666] 
[B458] 
141941 
LAAS6] 
18138] 


GRAFIK 


737 


739 
70 
741 
742 


_ _j 
‚64,64,64,64,152,152,1576 [D6B6] | 743 DATA 9,0,0,0,0,8,8,192,152,152,152,1 
DATA 152,152,152,152,152,152,224,224 52,152,152,152,1256 C16DC1 
„224,224 ,224,192,128,0,169,2521 166041 | 744 DATA 0, 128,224,224,180,180,160,180,1 
DATA’ 129,129,64,54,64,8,0,135,135,13 28,128,128,128,8,8,8, 1808 [66721 
5,135,135,135,133,44,1457 t6eABI | 745 DATA 9,0,9,8,0,0,0,0,0,152,152,152,1 
DATA 128,128,128,128,128,128,128,0,0 52,152,152,912 177041 
‚8,0,0,128,194,194,1412 EFBBEI | 746 DATA 152,152,188,188, 168,180, 180,108 
bafa’135,0,0,0,0,0,0,0,128,1880,224,2 ‚180,180, 10,138, 76, 204,48, 2220 LE8721 
24,180,18@, 180, 1431 (72ER | 747 bATA'80,20,84,84,180,32,8,8,0,0,0,67 
DATA 180,180,232,128,0,192,169,169,1 18,8,0,547 1657A1 
69,169,0, 128,192, 224,224 ,2356 tBese) | 748 Dafa’0,0,0,0,0,10,138,12,204,16,80,2 
DATA 180, 188, 190,0,0,64,129,169,169, 2,0,0.8, 406 CB6ABI 
169,169,8,192,194,135,1938 t7pzeı | 749 DATA 0,8,9,0,0,0,0,0,0,0,0,68,4,168, 
DATA 135,135,135,192,0,8,128,128,128 67,387 LFAD4I 
„128,128,0,64,64,64,1429 (92221 | 75@ DATA 0,0,0,0,0,8,49,10,142,68,0,0,0, 
DATA’ 64,54,64,0,8,152,152,152,152,15 8,40,327 C1E821 
2,144,144,64,8,8,1304 tsac@ı | 751 DÄTA’67,5,0,0,0,138,4,0,0,138,8,68,8 
DATA 8,64,64,64,84,64,64,132,132,142 „@,136,364 CAB9BI 
„142,142,142,142,64,1422 teaaaı | 752 DATA 131,84,20,80,32,0,0,0,0,0,0,0,8 
DATA’ 64,54,64,64,64,64,64,142,142,14 »8,0,347 194741 
2,142,142,142,142,142, 1564 tA@F@ı | 753 Data 0,0,0,0,0,0,2,0,10,0,0,0,0,0,0, 
DATA 24,64,64,64,44,0,0,0,142,142,14 18 CSaDE1 
2,142,142,132,132,1294 LF8341 754 DATA 0,0,0,0,0,0,0,90,48,176,0,0,8,8, 
DATA 84,192,152,152,152,152,152,152, 2,244 c2A483 
152,192,180,180,188,188,18@,2412 120341 755 DATA 8 69,0,0,0,80,32,0,0,0,8,0,124, 
DATA_188,192,0,128,232,169,169,169,1 84,1,398 L9@B6I 
69,129,0,0,8,128,128,1793 [2FB0) | 754 DATA’ 65,5,0,0,130,2,168,40,160,32,0, 
DATA 128, 128,128,194,144,200,152,152 2,0,0,0.482 tE7BAI 
152,152,172,180,224,192,180,2448 EZAAAI 757 DATA 6,8,0,0,0,0,0,80,16,204,12,207, 
DATA’ 180, 180, 188, 192,169,169,169,169 18,168,48,737 LF9BEI 
„169,169,232,128,128,128,128,2498 _ [69@C1 | 758 DATA 8.0,0,2.8,152,0,0,0,2,8,0,0,0,0 
DATA' 128, 128,128,0,0,64,0,0,8,128,23 168 C1BD23 
2,169,169,128,0,1274 TCABB] 759 DATA 0,8,120,16,8, ,40,84,0,8,8, 
DAra 6,8.0,8.12,120,200,200,128,120 ,., 9,0,268 c2D841 
128,192,144,144,0,1 768 DATA 0,5,67,5,138,8,0,0,0,0,0,0,0,0, 
Bara'a,o 3,172.180, B0,100,64,64,64, 16, N e CıDacı 
0,8, 761 DATA 68, ‚1,124,169,32,80,8,138 
DATA_142,142,142,142,132,132,64,0,15 . Fe si BESIE FILTER IBENDR: " 720641 
2,152,152,152,152,152,192,2000 LFF3@1 762 DATA 6,0,0,0,2,0,0,0,0,8,124,0,0,69, 
DATA 128,224,224,224,224,128,128,0,8 4,197 1B650J 
„64,64,64,64,64 4,1564 tMSCEI | 763 DÄTA 0,0,8,2,130,10,0,0,0,0,2,0,8,0, 
DATA 64,64,142,142,142,142,142,142,1 9,142 CF8183 
142,152, 152,152, 152, 152, 2024 LEBACI | 764 DATA Q,9,0,0,112,0,0,8,2,0,0,0,2,188 
DATA 152,152,152,224, 224,224 224,224 ‚80,382 12A161 
,224,224,224,128,192,152,152,2872 17a9A1 765 DATA 16,8 0,0,0,0,0,0,0,136,8,138,1@ 
DATA’ 152,152,152,152,0,0,128,128,224 138,0,448 LE9681 
‚224,224, 224,0,0,0,1768 tcaseı | 766 bATA'9,2,0,0,0,0,02,0,0,0,0,0,0,0,0,0 
DATA’@,64,64,64,54,0,64,132,132,142, 159221 
142,142,142,0,0,1152 tA2401 | 767 DATA 0,0,20,88,16,68,4,65,2,168,8,0, 
DATA 0,8,0,0,8,8,0,64,64,148,140,148 2,0,0,42% c50141 
148,148,0,848 tDES2J 768 DATA 8,0,0,0,49,0,0,0,0,0,0,8,10,130 
DATA’ 128, 128,232,232,232,232,232,@, 0,209 CAFA41 
10,64,64,64,64,64,1736 (5B561 | 769 DATA 0,49,88,16,0,0,0,0,65,8,0,0,136 
Data 232, 232,252, 232,232,232,232,232 ‚76, 138,551 [DIEB] 
,64,68,64,64,64,64,64, 2304 tecocı | 770 bATA 19,0,0,0,0,80,32,0,0,0,135,2,40 
DATA 64,9,0,0,0,0,8,0,0,148,148,148, »0,0,299 161741 
148,148,148,952 caaseı | 771 DATA’8,0,0,0,0,0,0,0,0,0,0,2,2,0,2,0 
DATA 148,148,8,0,0,0,0,0,0,0,148,148 c541A1 
„148,148, 64,952 192821 | 772 DATA 138,5,65,139,5,130,2,0,0,0,32,3 
DATA’ 64,8,0,232,169,169,169,169,169, 2,8,0,8,548 taBDAI 
129,64,192,133,135,135, 1929 tB1961 773 DATA 6,8,0,0,0,80,8,0,0,0,0,0,0,0,12 
DATA 135,135,135,192,142,142,142,142 4,204 [3528] 
‚2@2,2@2,128,@,128,128,128,2081 tA2BAI | 774 DATA 0,0,8,8,0,0,8,0,0,0,0,0,0,0,0,0 
DATA’ 128,0,0,0,0,8,192,192,142,142,1 178281 
12,142,142,0,0,1222 t9FD21 | 775 DATA _0,0,84,20,80,16,76,2,0,0,8,0,0, 
DATA 8,128, 128,128,128,128,142,142,1 2,0,278 189303 
42,142, 142,142, 142, 142,128, 1904 tDECAI | 776 DATA 9,9,0,8,0,0,0,0,0,0,0,0,0,0,0,0 
DATA 128,128,128,128,128,128,128,8,& cA1241 
4,64,64,64,64,64,64,1344 1735AJ 777 DATA 168,0,0,0,0,0,0,0,0,0,0,0,0,0,2 
DATA’ 192,152,152,152,152,152,152,152 2,188 CDa4aı 
„64,64,64,64,64,64,64,1704 tEABA] 778 DATA 80,32,138,10,130,2,168,0,0,8,1& 
DATA 64,152,152,152,152,152,152,152, 0,20,84,1,0,825 173781 
152,64,64,64,64,64,54,1&64 t698E1 | 779 DATA 0,0,0,8,0,0,0,130,10,138,76,168 
DATA 64,9, 152,152, 152, 152,152,152,15 1,65,0,588 LIBESI 
2,192,0,128,128, 128, 128, 1832 taanaı | 780 data 8,6,0,0,0,0,0,10,138,4,68,16,0, 
DATA 224,224,224,0,64,64,64,64,64,64 0,258 t121C1 
64,188, 188, 180,180, 1848 tFB301 | 781 DATA 8,0,0,0,28,1,0,0,0,0,68,176,0,@ 
DATA 188, 180,188,148,192,192,232,169 „0,265 CCSB43 
„169,169,169,169,148,192,192,2681_  LCE@EI | 782 Data 8,8,152,0,0,0,0,0,8,0,0,148,40, 
DATA’ 128, 128,128,128,0,169,169,169,1 84,0,436 112761 
29,129,64,64,0, 135,135, 1675 145981 | 783 DAta’0,0,0,0,8,135,0,0,0,0,8,0,142,0 
DATA 135,135,135,135,135,192,128,128 „0,277 LBIABI 
128,128,128,128,128,9,135,1898 tzreaı | 784 DATA 0,0,0,0,0,0,0,0,0,0,2,0,0,2,2,0 
DATA’ 135,135,135,135,135,135,135,128 157221 
‚128,128, 128,128,128,128,128,1969 _ LFSDAI | 785 DATA 169,8,88,32,136,8,138,10,130,4@ 
DATA’ 192, 135, 135,135, 135,135,135,135 »2,0,8,8,0,743 Lc7883 
„@,128,128,128,128,128,128,1905 tıarsı | 786 bata’o 38,18,138,8,0,8,0,0,8,8, 
Data 128,0,0,0,64,54,64,64,64,64,132 0,0,28& c5D181 
„132,142, 142,142,12@2 tıaDBI | 787 DATA @,0,0,2,168,40,80,16,0,9,2,8,0, 
bATA'142,142,64,54,64,64,64,64,64,64 2,0,30& L7E221 
‚142,142,142,142,142,1506 t879A1 | 788 DATA 9,136,4,0,0,0,80,0,0,0,0,0,136, 
DATA’ 142, 142,142,64,54,64,64,64,0,0, 32,0,388 LIF9AI 
@,142,142,142,142,1314 1243A] 789 DATA 8,8,0,0,0,17,51,34,51,51,17,80,@0 
DATA 142,132,132,64,152,152,152,152, „85,119,425 CA8E41 
152,152,152,192,180, 188, 188,2245 LF92A] 79@ DATA 119,17,34,51,51,17,17@,187,187, 
DATA_180,224,224,128,0,0,0,0,0,128,1 51,51,51,51,34,34,1185 15062] 
28,128,232,0,8,1372 LE7E&I 791 bata 51,51,51,51,34,8,0,8,17,17,17,5 
DATA 9,0,0,0,0,0,232,232,232,232,232 1,34,0,0,374 18342] 
‚232,232, 232,0,1856 tFACEI | 792 DATA'@.0,34,34,34,51,34,5,0,8,17,17, 


17,51,17,311 
DATA -10,8,34,34,34,51,17,8,8,@,8,81, 
1,243,243,828 

DATA 243, 235, 81,243,245,01,81,81,81, 
162,81,8, 7,1637 
Dara 25, zus: 28 SS 203,05,91 34,245 


255,170,2 
381 85,255,255,191,63,63, 
ta 23,0,0,63,63,63,63, = 63,0,0,63 
163,63,83,695 
DATA 42,42,42,42,42,42,42,42,63,63,6 


7 
3165,63,63,65,63,65,21,2 
67 
3,65,63,65,0,9,63,65,65, 
@,21,21,63,63,65,63,2 


TA 63,63,63 63,81 ,01,243:243,243,2 
43,243,243,243,243,243, 
DAtA 243.245.243,245.243,243,243,243 
„243, 243,243,243,243,162,162,3483 
DATA 243, 243,243, 243,243, 243,0,0,0,0 
„0,162,243,243,0,2106 
DATA 0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0 


DATA _0,0,0,0,0,91,243,243,0,81,81,24 
3,243,243,243, 170; 

DATA 243,243,243,243, 243,243, 243,243 
„243 243,243, 243, 243,2 3,3645 
DATA" 243,243,243, 2431243, 243,243,243 
1243,243,0,0,8.0,8,2450 

3,0,0,0,81,243,243,243, 

a5 .0.01,243,248,2028 

DATA 243, 243,243, 243,81,243,243,243, 
243,243,243,243,170,170,170,3264 
DATA 178,170,255,119,255,8,8,2,8,0,8 
„170,243, 243,243, 186 

bata' 243,243, 243,243,243,243,0,162,1 

62,243,243,243,243,243,0,2797 

DATA 8,0,142,243, 235, 243,243,8,0,2,0 
‚@,162,162,243,17 

bata 128.126. 120.128, 192,128, 128,192 
8,8,0,0,0,128,128, 1488 

bara'a,a.0,2,0,0,120, 128,64,0,0,0,0, 

@,128, 

DATA 128. 120,0,0,128,64,0,0,0,0,128, 
128,128,0,8,832 

DATA _0,8,8,192,128,128,128,192,128,1 
28,128,128,64,64,64,1472 

Data 128 ‚0,0,8,0,9,24,128,128,192,12 
8,64,0,0, 128,9 

DATA" EA.&A.128,64,128,64,64,192,64,6 
4,64,64,8,0,8,1024 
DATA'128,0,0,8,0,128,9,0,64,64,64,64 
164 ,64,0,6 

DATA _0,0.192,64,0,0,0,128,128,128,12 
8,128,128,128,64,1216 

DATA 24,64,64764,64,64,64,128,64,64, 
64,64,64,64.64,1024 

Data 5,0,0,8,8,0, B.0,120,44,0,64,64, 


9,0,64,12 
@,128, 


DATA 120. 128,44,0,0 
i i i52 


1.1949 
ee 
1rs1,81181 


TE BLEN 51,51,51,80,0,8 0,0,8 
BAtA’0.0,0,0,0,0,0,17,17,17,17,17,17 
36 


17,0,0,0,0,34,54,34,34,0,0,0,0, 
1 
'TA_0,0,243, 243:245,245,162,81,245, 
243,243,243 ie2 2,162 
Data @ 235, 248,8,0.8,0.6,8.243,243,0 
1293,243,245,0,0,9,81,01,245,2 
= 245381 2025 

162 ‚8,05 ‚ai Kr 245,243,162,0,243 
3 23'243’ 245.243.162,0,142,128,1 
62,81,0,8, e, &2 a3, 191o 
Data 243 70,0.8,8,162,243,0,0,8 
2,0,0 Sres 
Enns 81,81 
81,243,81 
DATA 245,243 ,243,243,243,243,243,243 
243,0,243,81,0,162,243,291& 


L1B441 
198161 
LC49C3 
191581 
L39BAI 
L19B21 
LFEI®I 
t16F8] 
CCB74]1 
109581 
(882E) 
197241 
[BAS4] 
117A81 
LB9AC1 
CADIAI 
tAD9@] 
(53881 
13E74] 
LEaCBI 
170383 
LA4CEI 
127161 
LO@DAI 
C46B4] 
[S4F21 
L1A7@1 
105421 
C12DC3 
CA@DBI 
EDDACI 
{DFE4]J 
128741 
LAS141 
196841 
109761 
LBA9EI 
LASSCI 
[5B6C) 
11868] 
ECFDEI 
CA912] 
138A8J 
CFB48] 
LSCD61 
1564A] 
L1A3@J 
LE7SEI 
193B23 
LA@A4] 


842 DATA 243,243,0,162,243,243,81,0,243, 
2R3.0.0,8.142.248.2196 
DATA 81,243,243,0 


0.0.0,2,0,162,243, 
243,243, 226,0,1684_" 
844 DATA ® Er @,0,226,226,128,8,2,8,0,0,8 


8as Baia, 2. @,81,243,162,0,8,0,0,0,243,24 
8,97 
DATA.8,8,0,0, 162,81,0,0,0,0,0,0,0,0, 


11903 

847 DATA 119, 119,119,119, 119, 175120245, 

78,255, 255, 255,255, 255,51 ,2368 

Data 243,243 2i5, 233 81.01,247 ,85,24 

3,247, 259, 259,259, 170,170, 3861" 

849 DATA 0,243,255, 128, 128, 170,170,17@,@ 

243,243,0, 

esa bATA’0,0/0,245,245.243,243,243,81,0, 
243,243,162,162,243, 2547 

Dark 2 243,243,243,0,8,8,8,0,0,162,0,0 


‚0,89 
Bara'a,.o 245,17,17,17,17,17,51,51, 
119,51,51,51 
Data si,5i FR 51 +29 ,255,259,259,245 
‚243,243, 243,251, 255,294 
asa DATA’ 255, en 543, 243,283,243,255,247 
243,243, 243,243, 243,243, 255, 3697 
bATA’ 255, 247,243, 235, 243, 243,243,17, 
17,17,17,17,17,17,17,185 
Dar az, in are 119,119,119 
057 DATA 232587137 Es 05,5, 17 
858 nn 119,119,119,119, 
119,2 
255,0,0,8,234,191, 1882 


659 Data 191,191.191/8,64,149,63,63,123, 
183,183,8, 78 

BeB DATA 65, 63,123,63,@,64,149,63,63, 183 
193,183,63,65,63,1 

861 baTa’43,88,63,192,8, 183,183,125,63,1 
@6,128,8,8,65, 


63 
63,63,149, ei58, B,163,183,183,63 


11 

,63,243,183,183,0,0,64 
„149,63, 243, 123, 123,1871 

864 DATA 123,65,243,65,55,149,64,0,243,1 
23,243,63,63,186, 128,17. 

865 DATA 8,8, 192, 63, &3, 65, 125, 123,123,8, 
129,108,23,65, 25,1 353 

866 DATA 63,63, 0,192,63,185,183,183, 
2,68, 2 63,63,1269 

,185,183, 183 A Fade 63,63,6 

ER 1920 243, 63,243, 63,2 

@60 DATA 108,128,8)0,125,123,123,43,192, 
128,0,0,243,63,243, 1535 

Fee 


2 ‚ias n KERNE 106,243,123 
BATa' 108 108 102,1 212878 ,8,17,17,1 
Zaizeiz, 17217,17,888" 
DATA’ 255,119 19319, 119,119,119,119 


18 MEMORY &7FFi 

2@ FOR N kzone TO &8050 

3@ READ POKE ad,i 

a8 NEXT 

30 SAVE "prscreen.bin" ‚b,18900,u51 

68 ENI 

7@ DATA &#3,&dd, _ 200 ‚Lid ,&56,&01 ,&dd 
ko} L02 ud ‚u6b ‚U0S, 1dd,&21,800 

‘ 28,&c5,&dd 

Bad uch urdnkel udn 

11@® DATA &#d,&29,&44,&29,&4d,&29,&44,&29 

120 DATA &#d,&19,%11,200,&08,4.06,&08,&#d 

130 DATA &70,%00,&4d,&77,&00,&fd,&7e,&08 

148 DATA &4d,&77,&01,&dd,&19,&4d,&23,&10 

158 DATA Kee,&di,&dd,&eil,&dd,&23,&dd,&23 

168 DATA &23,&01,&18,&ca,&c1,&10,&c4,&#b 


17@ DATA &c9 


L771E1 


107923 
cA7741 
L9ABCI 
124183 
EBABCI 
EBSACI 
C6BCAI 
176083 
12544) 
L9BEBI 
14036] 
CABDEI 
L9ZAEI 
C1B0AJ 
161781 
EBFICI 
£[7BC81 
108961 
tiarc] 
LAC2C3 
1C3283 
LCBABI 
[48461 
L9FS2]J 
C1F18] 
1C7A21 
CDB@2] 
[6108] 
15196] 
[88121 


LAAB2I 
CE4481 
[SCBEI 
CD8641 
1B0581 
[8ED6I 


LDFBEI 
C1A68] 


Wenn Sie beim ersten Sonnenstrahl aus den 
Federn wollen, müssen Sie sich einen Wecker 
stellen. Wann die Sonne aufgeht, sagt Ihnen Ihr 
Computer auf die Minute genau, und das für jeden 
beliebigen Ort der Erde. Auf Wunsch erhalten Sie 
eine gedruckte Übersicht. 


ieses Programm wendet sich an alle, die es interes- 
siert, wann an ihrem Heimatort - oder vielleicht auch 
in Japan - die Sonne oder der Mond auf- oder unter- 
‚geht. Zusätzlich gibt es Auskunft über die Höhe dieser bei- 
den Gestirne über und unter dem Horizont während eines be- 
stimmten Tages an jedem Ort der Erde. 
‚Außer bei den Eingabedaten für den Ort und das Datum 
sind bei allen Eingaben nur Kennziffern oder Buchstaben 
ohne Drücken der Enter-Taste notwendig. 
' Nach dem Start erscheint zunächst ein Titelbild und nach 
Betätigung irgendeiner Taste das Hauptmenü. Zu allen Menü- 
Punkten sind hier auch jeweils Erläuterungen auf den Bild- 
schirm zu rufen, was dem Bedienungskomfort dient. 
Bei der Anwahl eines Menüpunktes, dessen Programmteil 
Berechnungen ausführt, verzweigt der Computer in ein 
Untermenü. Dort können Sie dann die vorgegebenen Daten 
für den Bezugsort ändern. Das geschieht durch die Eingabe 
des Ortes, seiner geografischen Breite und Länge, sowie der 
Bezugslänge für die Zeitzone. Hier geben Sie auch das jewei- 
lige Datum ein. Dazu stehen zwei verschiedene Möglichkei- 
ten zur Auswahl. Entweder wird nach Monat und Jahr oder 
aber nach dem Datum gefragt: 
Monat und Jahr: MM.JJ (zum Beispiel »10.86« oder »2.86«, 
nicht aber »2.1986« oder »Feb.86«) 
Datum: TT.MM.JJ (zum Beispiel »13.02.86«, nicht aber 
- 13.2.86 oder 13.02.1986) 
‘Wurde im Hauptmenü die Kennziffer 1 (Tabelle der Son- 
nen- und Monddaten) oder 3 (Tagesgang der Sonnen- und 
Mondhöhe) gewählt, so werden während der Berechnung 
der Sonnen- und Monddaten für jede halbe Stunde des 
betreffenden Tages die wichtigsten Daten für Sonne und 
Mond in tabellarischer Form ausgegeben: 
- Kulmination (Höchststand des Gestirns) 
- Beginn der Dämmerung (die Sonne steht noch 18 Grad 
unter dem Horizont) 
- Ende der Dämmerung (die Sonne steht 18 Grad unter dem 
Horizont) 
Auf- und Untergang (Höhe des Gestirns O Grad) 
- Mondphase (0 % = Neumond, 50 % = Halbmond, zuneh- 
mend, 100 % = Vollmond, -50 % = Halbmond, abneh- 
mend) 
= Horizontalparallaxe (Winkel, unter dem der Erdradius vom 
Mond aus gesehen wird) 
- Durchmesser des Mondes im Winkelmaß, stündliche 
Bewegung in Länge und Breite am Himmel 
Nach dem Drücken irgendeiner Taste erscheint dann je 
nach gewählter Kennziffer (1 oder 3) die Tabelle oder der 
Tagesgang. 
Die Tabelle in Bild 1 zeigt den Ausschnitt eines typischen 
Beispiels, 


Sag’ 
wo die Sonne steht 


® 
mir, 


Jülich 13.02.86 
Sonne 
Zeit Rekt. Dekl. 
13.52 
13.50 


13.48 


Höhe 
-51.2 
50.5 
49.9 


Dekl. 
3.28 
3.52 
3.76 


Höhe 
16.6 

-23.9 
-29.8 


0 2145 
1 2145 


2 2145 
und so weiter 
Kulminatlon..... 


Bild 1. Tabelle der Sonnen- und Monddaten 


- »Rekt.« steht für Rektaszension = Länge am Himmel (in 
Stunden und Minuten) 

- »Dekl.« ist die Abkürzung für Deklination = Breite am Him- 
mel (in Grad. Bogenminuten) 

- Höhe = geometrische Höhe in Grad über (+) oder unter (-) 
dem Horizont 

Nach erneuter Betätigung einer Taste fragt der Computer 
nach einem neuen Datum. Verneint man diese Frage (einfach 
»N« eingeben), können Sie sich mit »J« den Tagesgang von 
Sonne und Mond ausgeben lassen. 

Die Grafik verdeutlicht den Tagesgang der betreffenden 
Gestirne. Der Verlauf der Höhe über oder unter dem Horizont 
wird gegen die Tageszeit aufgetragen. Die Abszisse der Gra- 
fik steht also für die Tageszeit, die Zahlen für die genaue Uhr- 
zeit. An der Ordinate sind die Höhen der Gestirne Sonne und 
Mond abzulesen. Die Zahlen sind in Grad angegeben. Ober- 
halb der Grafik erscheinen der gewählte Ort und das jeweilige 
Datum sowie Sonnenaufgang, Kulmination und Sonnenun- 
tergang. Unterhalb der Grafik sind Mondphase sowie Auf- 
und Untergang aufgeführt. 

Wählt man im Hauptmenü die Kennziffer 5 oder 7 (Ausgabe 
einer Monatstabelle am Bildschirm oder am Drucker), erhält 
man beispielsweise das Resultat aus Bild 2. 


(Hans-Werner Pätz/ja) 

Jülich Breite = 51.0 Grad Länge = -6.3 Grad 
Datum Dämm. Aufg. Unterg. Dämm. 

hm hm hm hm 
1.2.86 656 818 1719 18.40 
2.2.86 655 816 1721 18.42 
3.2.86 ta | 
Kulmination Mondphase 
h m Grad in% 
12 48 21.9 -45.2 
12 48 22.2 -52.4 


Bild 2. Monatstabelle für Sonne und Mond 


Sonne und Mond 
CPC 464/664/6128 
Explora 
Kassette/Diskette 


Name: 
Computer: 
Checksummer: 
Datenträger: 


HEHE HR 
COPYRIGHT 


INK 2,18 
INK 3,7 
pn SÜHDEHE (48) „MONDHOEHE (48) „MOPHAS 
48 

DIM SOREKT (48), SODEKL (48) „MOREKT (48) 
„MODEKL (48) 
DS0=9. 9856473 : REM TAEGLICHE BEWEGU 
NG DER SONNE 
DMO=13. een » REM TAEGL.BEWEGUNG 
DHP=0.1114041 : REM TAEGL.BEWEGUNG 
\EUMS 
9: REM TAEGL.BEWEGUNG 
DES MONDKNDTENS 
SOLg=335.73 : REM BEZUGSLAENGE DER 
SONNE 
SOPBr282.55 ı REM BEZUGSPERIHEL DE 
MOLQ@=67.88 : REM BEZUGSLAENGE DES 
MONDES 
MOP@=233.75 : REM BEZUGSPERIHEL DE 
5 namen 

M_ BEZUGSLAENGE DES 


REI 
RSTETGENDEN KNOTEN 
JULO=2443202.5: REM BEZUGS-JUL. DATUM 


EKL =23.44 : REM EKLIPTIK 
DEF FNM(A,B) =B# (A/B-INT(A/BI) 

DEF FNASIN (I) =ATN (X/SOR(I-X#X) 

DEF FNACOS (X) =ATN (SOR(1-X#X) /X) 
SYMBOL AFTER 237 

SYMBOL Er 13 7,231,119,57,31,14 
SYMBOL 238,112,24@,224,251,258,156 


4 

SYMBOL Bean Tat an InrDae ım 
SYMBOL 240,48,240,240,240,120,60,30, 
BORDER 12,18 

LOCATE 8,6: PRINT "PROGRAMM ZUR BERE 
LOCATE 1@,7:PRINT "SONNEN- UND MONDH 
PRINT_STRING# (48,"_") 

LOCATE 15,11: PRINT "EOPYRIGHT" 
LOCATE 18, 12:PRINT “HANS-WERNER PAET 


Locare 12,15: PRINT "517@ JUELICH" 
LOCATE 17 ,14:PRINT „irBo“ 


2@ PRINT STRINGE (48, 


BrRlE 18,18: PRINT -CHRE (237) ;CHRE(23 
Locate 18,19: PRINT CHR$ (239) 5CHR#£ (24 
© 


LOCATE 6,23: PRINT 
ıramm durch" 
OCATE 4,24:PRINT "DRUECKEN einer be 

liebigen Taste" 

CALL &BB18 

BORDER 12 

MODE 1 

LOCATE 8,2:PRINT "WELCHER PROGRAMMTE 
I" 


EEE 2,5:PRINT LIE. ERLAEUT 
ERUNGEN 


LOCATE 2, TEPRINT, ETABeLLE DER SONNEN 
= UND MONDDATEN .. 


"Fortfahren im Pro 


LOCATE 2,8: PRINT FercLaeRunGen ZUR T 
LOCATE 2,1 hr’ "TAGESGANG DER son 


NEN- UND MONDHOEHE Zi SPi 


LOCATE 2, 131 PRINT" "MONATSTABELLE FUE 
R_DIE SONNE» 424 22+43" 
LOCATE 2,14:PRINT "ERKLAERUNGEN ZUR 
MONATSTABELLE ..... 6" 
Locate 2,1S3PRINT” "AUSGABE DER TABEL 
LE RÜCKER. » . 2.47" 
Lchte a 1repRihT 


nn. 9 
RINT "KENNZIFFER ———> “ 


Eins=INKEYs: IF EINS="" THEN 610 ELSE 
PRINT EINS 

KENN=VAL (EIN$) 

IF KENN=@ THEN 2788 

IF KENN=9 THEN 2748 


LC82AJ 
180823 
TACSEI 
£[D9223 
13918] 
TCBS5AJ 
TFOEEI 
ae 
1BCC] 
Trades 


10312] 
t1EC4] 


tAsı81] 
[13121 


IF_KENN=1 OR KENN=3 OR KENN=5 OR KEN 
N=7 THEN t9Ficı 


680 
ON KENN/Z G0TO 3058,3188,2908 
6070 480 


BEZLAEPS BE ORTS=NOUELICHSRBRETTEREIE 
LAENGE=-6. 
KEmE ir LbcATe 14,5:PRINT "EINBABEDAT 


00 PRINT _STRINGS (852, 
LOChTE 2,11:PRINT art: 15 SPACE} ";OR 


lecare 2,135: PRINT "BREITE: {2 SPACE)" 
JaPRINT USING "##.#"; BREITE; PRINT " 


LBtATe 2, 2 derrRnlt "LAENGE: 


. fuer MEZ: 
LOCATE 2,19:PRINT "- or 
+ westi. vom Nullmeridian 

LOCATE 2,25: PRINT SPACE$ (38) :LOCATE 
2,25: PRINT "A ENDE R N{S SPACER (I 


70° 
IF EIN$="" THEN 77@ 


EIN$=INKEYS : 
IF UPPER$ (EIN$)<>"J" THEN 848 
LOCATE 1,25: PRINT SPACE$# (358) :LOCATE 
2,25: INPÜT "WELCHER ORT "ORTS 
LOCATE 1,25:PRINT SPACE# (58) :LOCATE 
2,25: INPÜT "GEOGR. BREITE "BREITE 
LÄCATE 1,25: PRINT SPACES (38) : LOCATE 
2,25: INPÜT "LAENGE "3 LAENGE 
LÖCATE 2, SSL PRINT, SPACE$ (38) : LOCATE 
INPÜT "BEZUGSLAEI 


2,25: 1 NGE FUER DIE ZE 
ITZONE N BEZLAE 
‚GOoT 


IF KENN=5 OR KENN=7 THEN LOCATE 1,25 
PRINT SPACES (38) ı1LOCATE 2,25: INPUT 
"WELCHER MONAT UND JAHR "3 DATUM&sDAT 
UMs="B1. "+DATUMF 
IF KENN=S5 OR KENN=7 THEN MODE 2:WIND 
OW #1,1,80,1,3:WINDOW #2,1,80,4,23:G 
OTO 8808 
LOCATE 1,25: PRINT SPAGEX (SB) sLOCATE 
2,25: INPI ur WELCHES DATUM (z.B.88.8' 
„84 ıDarung 

F LEN(DATUMS)<S THEN 


860 
JAHRSVALIRTOHTS (DATUNE 2») 
MONTH = VAL (MID$ (DATUME 4,2) ) 


998 IF KENN=7 THEN PRINT #BiPRINT #BLPRI 


E27 


15 


930 1 


980 
998 


NT #8, ORT$5SPACE£ (15) 
RInT HB,USING_ "AR.#" 

SRAD(B SPACEIL EICH 
8 Lusing "HR. #"LAENBES:PRINT #8," 6 


7 _THEN PRINT #8:PRINT #8,"(2 
TEPAEEIDATUNES SPACE} DAEMM. 12 
SPACE)IUNTERG. DAEMM.{7 SPACEIKULMINA 

TIONt4 BPAGEIONDE NASEN 

IF KENN=7 THEN INT "ı 
1 SPACEIht2 SPackimts beceinc2 SPAC 
EImt5 SPACEInIZ2 SPACEIm{S SPACEIhT2 

SPACEIm(B SPACEINL2 SPACEIm(4 SPACE) 


‚2,1: PRINT. # 
Zermint #1, "BREI 


PRINT #1 USING "###. #";LAENGE; :PRI 
NT #1," GRAD" 

F_KENN=5_ THEN PRINT #1:PRINT #1,"{2 
SPACEIDATUMI4 SPACEIDAEMM. AUFG. {2 
DET: ee SPACE}KULMINA 


DAY = VALLLEFTE (DATUM, 2) 

IF MONTH>Z THEN 970 
TAGZAHL=365#JAHR+DAY+31# (MONTH-1) +IN 
TL(JAHR-1)/4) : GOTO 988 
TAGZAHL=36S#JAHR+DAY+31# (MONTH-1)-IN 
T(@. 4#MONTH+2. 3) + INT (JAHR/4) 
JULDAT@UT=TAGZAHL+2415019.5 
JULDATBOZASULDATBUTS (BEZLAE-LAENGE) / 


1008 STERNZEITEUT=ENM (155. 72835+ (JULDATD 


UT-JUL@) *DS0, 360) 


1818 SULDELTA=SULBATEOZ- -JULB+B.5 : REM J 


ı920 St 
19850 


UL.DATUM um 12 UHR 0Z 
ONNENLAENGEM=FNM (SOLO+DSO*JULDELTA 


»360) 
IF SONNENLAENSEM<@ THEN SONNENLAENG 
|=SONNENLAENGEM+35@ 


EM 
1948 SONNENLAENGE=FNM (SONNENLAENBEM+1.92 


*SIN (SONNENLAENGEM-SOPB) „36@) 


Listing. Sonne, Mond und Sterne 


178303 


TB4EBI 
CABAEI 


t14F81 
[B94EI 


146881 
Kırası 
LFA4EI 
tADFEI 
11388] 


L17EA] 
TEABE]I 


t47DE] 


tDESEI 


18730] 


tES94] 


[24841 
L6AFAI 


L8A88] 
13834) 


T36DA] 
L96F21 
1738C] 
LAZ1EI 
ISE9AI 
LBEA&]I 


1618 


1620 


IF SONNENLAENGE<® THEN SONNENLAENGE 
=SONNENLAENGE+368 

XDEKL=SIN (EKL.)#SIN (SONNENLAENGE) 

IF XDEKL=® THEN XDEKL=®. 200009001 
IF XDEKL=1 THEN XDEKL=1-0. 000000001 


SODEKL=FNASIN (XDEKL) 
XREKT=COS (SONNENLAENBE) /COS (SODEKL) 


IF XREKT=B THEN XREKT=0. Baannaaeı 
IF XREKT=1 THEN XREKT=1-0. 800000001 


SOREKT=FNACOS (XREKT) 
2 SOREKT < ® THEN SOREKT=SOREKT+18 


IF SODEKL<@ THEN ee EL, 
MOLM=FNM (MOL@+DMO*JULDELTA 360) 
er <MOLM- (MOPQ+DMPKJULDELTA) „3 


MOK=ENM (MOKB-DMERJULDELTA-: 8. 15#SINt 
SONNENLAENGEM-SOPR) „3, 

EVEK=FNM ( 1: en X2=MOLM-2#SONNENLAE 
NGE-MOAM) , 

ANEQ=FNM (= Ei PRSIN (BONNENLAENGEN-: so 
PO) ‚36@) 

MOAK=MOAM FEVEK+ANEO- 8. 37%SIN (SONNEN 
LAENGEM-SOP® 

HOLKSNDLMSEVEK+ANEQ+6. Z9#SIN(MOAK) 


30 MOL2=MOLK+Q. &#SIN (2#MOLM-2#SONNENLA 


ENGE) 
MOLAENGE=FNM (MOL2-B. 12#8IN (2#MOL2-2 
*MOK) ,360) 

MOBREITE=5. 15#SIN (MOL2-MOK) +@. 15#S1 
N (MOL2-2*SONNENLAENGE+MOK) 
FHASE=MOLAENGE-SONNENLAENGE 

IF PHASE<® THEN PHASE=PHASE+36B 

IF PHASE<=18@ THEN MOPHASE=PHASE/1. 
8 ELSE MOPHASE= (180-PHASE) /1.8 


H=@. 954+9.056*C0S (MOAK) : REM HORI 
ZONTALPARALLAXE 
D=120* (BD. 27«H-@.@1) z REM MOND 


DURCHMESSER IN BOGENMINUTEN 


NMGL=9.55+0. BERCDS (MOAK) x REM STDL 
„BEWEG. IN MDNDLAEI 
NMOB=Q. BSxCOS (HOLD HiOK) : REM STDL 


„BEWEG. IN MONDLAENGE 
REM BERECHNUNG VON KULMINATION, AUF 
- UND UNTERGANG DER SONNE 
SOLA=SONNENLAENGEM-SONNENLAENGE : S 
OL=SONNENLAENGE 
IF SOLA>18® THEN SOLA=SOLA-36@ 
ZEITGLEICH= (SOLA+ (SOL-SOREKT)) /15%& 
@:REM ZEITGLEICHUNG IN MINUTEN 
KULMINATION=12-ZEITGLEICH/6B+ (LAENG 
E-BEZLAE) /15 
X=-TAN (SODEKL)#=TAN(BREITE) 
HATABO=FNACOS (X) : IF HATABO<® THEN 
HATABO=HATABO+188 
HATABO=HATABO/1S 
KULHOEHE=9@-BREITE+SODEKL 
IF BREITE<® THEN KULHOEHE= 
REITE+SODEKL) 
AUFGANG=KULMINATTON-HATABO 


a UNTERGANG=KULMINAT ION+HATABO 


SOKUL=INT (KULMINAT TON) + (KULMINATION 
-INT (KULMINATION) ) *Q.& 

SOAUF=INT (AUFGANG) + (AUFGANG-INT (AUF 
BANG) )#2.6& 

SOUNTER=INT (UNTERGANG) + (UNTERGANG-I 
NT (UNTERGANG 

COSDAEN= (-Q. B09912-SINtBREITEIASING 
SODEKL) ) / (COS (BREITE).*COS (SODEKL)) 


DAEM=FNACOS (COSDAEM) : IF DAEM<@ TH 
EN ee 

DAEM=DAEM/1S5 

DAEMAUF=KULMINATI ON-DAEN. 
DAEMUNTER=KULMINAT ION 


'DAEI 
AUFDAEM=INT (DAEMAUF) + (DAEMAUF-1nT ‘D 
AEMAUF) ) #Q. & 
UNTDAEM=INT DAEMUNTER) + tDAEMUNTER-I 
NT (DAEMUNTER) ) #Q.& 
IF KENN=5 THEN 2530 


IF KENN=7 THEN 2648 

MODE_2 

LOCATE_1,25:PRINT SPACE$(1@);" Bi 

€ t @t3 SPalEiwart en (es wird 

Rack gerschnet) » 

Locarı PRINT "SONNEN- UND MOND 


DATEN FUER ";ORTS;* AM "3DATUME 


LOCATE 5,6: PRINT "642 SPÄCEIDLZ SPA 

CEIN{Z SPACEINI2 SPACEIE" 

LOCATE 5,8:PRINT "KULMINATION: "z:P 

RINT USING "##. #4"; SOKUL5 zPRINT " U 

HR IN "5:PRINT USING "##.#"; KULHDEH 

E;zPRINT " GRAD HOEHE" 

5 RATE S,12:PRINT "AUFGANG: "3:PRIN 
ING_"##. ##"; SOAUF5 PRINT " UHR 

31 VERACEIINTERGANB: PRINT USING 


"446. Hi"; SOUNTER; :PRINT " UHR" 
LOCATE 5,1@0: PRINT "Anfang der Daemm 


L[OBDO] 
LF92AJ 
[BFSE] 


[CCiE] 
C88E21 


LA9BEI 
CS3ACI 


LiC6CI 
tTE126] 


LED721 
EBSCCI 
L94E61 
CBBA2] 
L7E261 
tCESE] 
tSase] 


EFC18] 
CAC6E] 


[4856] 
[84603 
LSDBCI 
te19eı 
[D71C] 
L7ABEI 
L661AJ 
EFD461 
LD3981 
C7FiEI 


CSED41 
L18DC] 


L[8BEAI 


CAFEOI 
LFA721 
15928] 
[3026] 
C24CC1 
L@EACI 
L78AEI 
cD1A21 
LDF@&1 
L12E2] 
TöBEC] 
18808] 
tD1361 
15804] 
LEF18] 


CAICEI 


144821 


1640 
1650 L. 


1668 


1670 


1780 IF TZEIT 


ms 
d LOCATE trat prınr 


erun. 
Eng ıt 


"}zPRINT USING "##.##" 3 AUFDA 
Prınt Uhr 7 SPACE}Ende der Da 
j:PRINT USING "##.##";UN 

TDaem; ® 


RINT ® Uhr 
LOCATE 5,15: PRINT "ne2 SPACEIO{2 SP 
"MONDPHASE: 


ACEINEZ SPACEID" 

OCATE 5,17: PRINT 
int USING "##H.#" ; MOPHASE; : PRIN 
Üocate 5,21:PRINT "HORIZONT. een 
: (2 SPACE)" PRINT USING "Ah.nn" 
:PRINT " GRAD{4 SPACEIDURCHMES: 
7 SPACE)"; :PRINT USING "##. WE Ds SPR 
INT " MINUTEN! 
LOCATE 5,22:PRINT "STDL.BEW. IN LAEN 
GE: ";:PRINT LEING BR A NeOL sERT 
NT GRAD{4 SPACE}STDI Eh. 
SEESEN USING "tt. ERTENHOD, EPRIN 


For 150 Pro 48 

ZEIT = 1/2 

UZEIT = ZEIT - (LAENGE-BEZLAE)/1S 

STERNZEITOZ=FNM(STERNZEIT@UT+UZEIT® 

15#1.08273791+8.002737989*LAENGE#1S 
0) 


A lau 


SOL=SONNENLAENGE+ (ZEIT-12)#0.0410697 
SODEKL II =FNASIN(SIN(EKLI#SIN(SOL)) 
BOREKTt 1)=FNACOS (COS (SQL) /COS (SODEK 
» 
IF SOREKT(I)<@® THEN SOREKT (I) =SOREK 
TtI)+1S0 
IF SODEKL(II<Q THEN SOREKT(1)=360-5 
OREKT (I) 


SIERNZELTOZT SOREKT (1) 

® THEN TZEI(=TZEIT +368 
SINHSSIN«ERELTEI SSIN(BODEKL (13) +LOS 
(BREITE) *COS (SODEKL (1) )*COS(TZEIT) 
SOHGEHE LT) SENASIN (SING) 
MOL=MOLAENGE+ (ZEIT-12) *NMOL 
MOBSMOBREITE+ (ZEIT-12) <NMOB 
SINDEKL=SIN (MOB) «COS (EkL_) +COS (MOB) * 
SIN(EKL)#SIN (MOL) 
MODEKL (1) =FNASIN (SINDEKLI 
REKT1=COS (MOB) *COS (MOL) 
REKTZ=COS (MDB) «COS (EKL) #SIN(MDLI-SI 
N<MOB) *SINEKL) 
MOREICT (I) =ATN (REKTZ/REKT1) 
IF REKTi >= AND REKT2>=@ THEN 1920 


IF REKT1_>=® AND REKTZ2 <@ THEN MORE 
KT=MOREKT+36® : GOTO 1928 

MOREKT (1) =MOREKT (I)+18@ 

IF MOREKT(I)<® THEN MOREKT (I)=MOREK. 
Tı1)+36@ 

IF MOREKT(I)<B THEN MOREKT (I)=MOREK 
TI) +36® 

TZEITM=-STERNZEITOZ-MOREKT (I) 
SINHM=SIN (BREITE) *SIN (MODEKL (7) )+CO 
S (BREITE) «COS (MODEKL (1) )«COS(TZEITM 


3 
BONOHOEHE (II =FNASIN (SINHM) 
J=1-1 
IF I=® THEN 2050 
ır FE. MONDEIOEHE (1) /MONDHOEHE (AT) >»0@ 


DELTAHOEHE=ABS (MONDHOEHE (1J) )+ABS (M 
ONDHOEHE (13) 

ELTAZEIT =ABS (MONDHOEHE (19) )#0.5/D 
ELTAHOEHE 
ZEIT=1J/2+DELTAZEIT 
UHR =INT (ZEIT)+Q.6# (ZEIT-INT(ZEITI) 


IF MONDHOEHE (14) >MONDHOEHE (I) THEN 
LOCATE 32,19: PRINT DE LERENeSE Nr 
RINT USING "##. ##" UHR; PRINT " 

* ; MOUNTER=UHR: GOTO 2050 

LOCATE 5,19: PRINT "AUFGANG: ";:PRIN 
T USING re ##";UHRZSPRINT " UHR":M 
DAUF=UHR 

NEXT 

LOCATE 1,25: PRINT SPACE# (19) ;"Fortf 
ahren im Programm durch Druecken ir 
jendeiner Taste" 

ALL &BB18 

IF KENN=3 THEN 2300 

IF KENN=5 THEN 2530 

IF KENN=7 THEN 2640 

MODE _2 

LOCATE 1, a ORT$;} :LOCATE 78,1: 


PRINT DATI 
£3 SPACEISONN 


TZEIT = 


E26 SPAGEIM DO N D! 


Listing. Sonne, Mond und Sterne 
(Fortsetzung) 


TABECI 
[0146] 


L78D41 
ESAAEI 


c811A] 
ESDF6] 


CABA&I 
[51227 
tEACA] 
L302C1 
t88erc] 
LEF16] 
L7A9C1 
[3876] 
178181 
LES161 
LD7BEI 
L5A1A1 
tT1SFEI 
[BAF61 
E4AAA1 
C3B341 
LAADCI 


CBA7aI 
[89961 


[59661 


L551AJ 
[D3861 


L7E741 
187763 
£C4221 


CDAD41 
CA@DB] 
TCACEI 
£1418]1 
t&B3A] 
139593 
176803 
[3642] 
[BD86J 


CA9TEI 


[D194] 
EDDacı 


Be: 


SEE 
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Mit einem Akustikkoppler öffnen Sie Ihrem Computer das Tor zur ganzen Welt. Der 
HITRANS 300 C stach im Akustikkoppler-Test der Ausgabe 3/86 durch die besten Übertra- 
gungseigenschaften hervor. Sie erhalten ihn bei uns als Fertiggerät, lediglich eine Block- 
batterie muß eingesetzt und das Gehäuse zugeschraubt werden. Sie können den Koppler 
auch über ein 12-Volt-Netzteil, das in jedem Elektronikgeschäft preisgünstig erhältlich ist, 
betreiben. Die Bauanleitung für ein RS 232-Interface finden Sie in der Ausgabe 3/85. 


Preis für Akustikkoppler Jetzt nur noch Betrlobssoftware auf Diskette 


HITRANS300C Dm DR DM 198,- (sFr. 178.) Bestellnummer: HW 071 DM 14,80* arr. 13,90 


(ohne Batterie) CE re UnmEache ewssshtin D3e Beiriebssattware beiindet eich sußerdem auf BE 


Programm-Service-Diskette des 64er-Sonderheftes 
‚Achtung: Nicht für Wiederverkäufer Bestellnummer: HW 072 SH 7IBS. 


Bitte verwenden Sie für Ihre Bestellung immer die abgedruckte Postgiro-Zahlkarte oder 
einen Verrechnungsscheck. 

Sie erleichtern uns damit die Auftragsabwicklung, und dafür berechnen wir Ihnen keine 
Versandkosten. 


Bestellungen aus der Schweiz bitte direkt an: ® 
Markt Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Tel. 042/415656 Markt&dechnik 


Bestellungen aus Österreich bitte direkt an: a = 
Ueberreuter Media Handels- und Verlagsges. mbH, Alser Straße 24, 1091 Wien, = Unternehmensbereich Buchverlag, 
Tel. 0222/481538-0 Hans-Pinsel-Straße 2, 8013 Ha 


83 


2140 


2183 


2198 


LOCATE 1,3:PRINT "ZEIT{@ BEAETIREKT 
„15 SPACEIDEKL. (4 SPACEIHDEHE CL 
AEEFREKT- 15 SPACEIDEKL. (4 SFACESHOE 


WINDOW #1,1,88,4,25 
age 
OUSING "ana; 172, HPRI 
5: PRINT #1 USING "## 
{SOREKT (1) 715); PRINT B1USING 


#" INT (6B» (SOREKT LT) /1S- INT (SORERTE 


1 SEREHELSTAEERINE, #1, using 
SODEKL (1) ‚:FRIN 

T #1,USING Are * 

(13: PRINT #1,SPACE£ (8); 

PRINT #1,USING "#64" z INT (MOREKT (I) 

115) 1: PRINT #1 „USING Iankn", INT (6D= 

(MOREKT (1) /15- INT (MOREKT (1) 71523) 

PRINT #1,SPACE$ (3); 

PRINT #1,USING "ih. ##";MODEKL (1) 

PRINT #1 ,SPACES (4) ;:PRINT #1,USI: 

"4.4"; MONDHOEHE (1) 

NEXT I 

LOCATE 1,24:PRINT "KULMINATION UM_" 

PRINT USING "##.##"7SOKUL; :PRINT 

RT UHRLS SPACE) AUFGANGE ;FRIN 

NG "it." SOAUFF = ERINT " UHRtS SPA 

CEIUNTERBANG: IT USING "AR.# 


SASSUNTERLEFRIN 
D: PHASE ="s:PRINT US 
FR Tun. 9" MOPHABEFTPRIN “2tA SPA 
Eh "SPRINT USING “A. tn" 
UHR{S SPACEIUNTERGAN 
Kit KERN USING "#4. A" ;MOUNTER; ı 
PRINT " UHR" 


CALL &BB18 
LOCATE 1,25:PRINT SPACE$ (78) :LOCATE 
Ay yayıERiNT "ANDERES DATUM(2 SPACEI 


EIRDeINKEYE : IF EIN$="" THEN 2268 
IF UPPER(EINS)="J" THEN 860 ELSE L 


OCATE 1,25:PRINT "AUSGABE ALS Tabes 


GANG (J/N)" 

EIN$=INKEY£ ı IF EIN$="" THEN 2290 
IE „UPPERFIEINFIRND® THEN 2300 ELSE 
MODE 2 

LOCATE 5,25: PRINT "M ON D : PHASE 
ANLEERIN USING "#4#. #"; MOPHASE: dr 
INT ACEIAUFGANG: "5 :PRIN 
ING "Ahen MOAUF 5 : PRINT " UHRCS E43 
ACEIUNTERGANG: RINT USING "##.# 
#" ; MOUNTER; :PRIN IHR" 


LOCATE 3,1:PRINT "SONNE: {2 SPACEIAU 
FEANG ";:PRINT USING "#4. #4"; SOAUF; 
:PRINT " UHR{Z SPACEIKULMINATION "4 
:PRINT USING "##.##"; DSL TE PRINT, N 


UHRS SPACEIUNTERGAMG " 


NG_ "#4. #4"; SOUNTER sen 

BRIGIN 20,20,20,620,20,38@ 

FOR Im TO S:MDVE @,1*4@:DRAW 600,1 
NEE 2. 


0, 1B1:DRAW 600,181,0:MOVE 9,17 
9:DRAW' 600, 177,0 

FOR I=1 TO'7:MOVE 1#75,Q:DRAW 1875, 
360,8: NEXT I 

Tosimave ®,54: PRINT "@"5:MOVE 146 
A:PRINT va; MOVE 292,64: PRINT Lie 
;:MOVE 442 Baspnınt "18"; : MOVE 592, 


64: PRINT "8" 
"OCATE 2,13: @":LOCATE 1,9:PR 
INT "3Q"5LOCATE 1,5 "6@":LOCA 


VE 1,11: PRINT "#+"sl 
"-"}LOCATE 
21: PRINT 

LacATE 4, 3:PRINT ORT$:LOCATE 30,3:P 

RINT_"SONNEN- UND MONDHOEHE" : LOEATE 
70,3:PRINT DATUM 

MOVE @,2*SOHDEHE (2) +19S: TAGEFRINT " 

:TAGOFF:MOVE @,2*SOHDEHE (9) + 


1 
FOR I=1 TO 48:DRAW I#12.5,2*SOHOEHE 
(1)+190,8:NEXT I 

@, 2*MONDHOEHE (@)+195: TAG: PRINT 
SHOND: N}: TABOFF: MOVE 9, 2*MONDHOEHE ( 


2) +180 
„2*MONDHDE 


I=1 TO 48:DRAW I#12.5 
HE(I)+18@,0:NEXT I 
22: PRINT CHR$ (237) ;CHR£(2 
75,25:PRINT CHR$ (239) 5CH 


LOCATE 75 
38) :LOCATE 


v 
LOCATE 1,25: PRINT SPACES (78): 
3,25: PRINT "ANDERES DATUM (J/N 
EIN$=INKEY$ ı IF EIN$="" THEN 2488 
IF UPPER$(EINS)="J" THEN 860 ELSE L 
OCATE 1,25:PRINT SPACE$ (78) :LOCATE 
Ei Za3RRINT "AUSGABE DER DATENTABELL 
Ne 


AUCATE 


120461 


CSD1A1 


T@DEa] 


LEABBI 


LOA861 
C6D1AJ 


LAs9E1 


[3894] 
LFC6EI 


LFAA4] 
(885C] 


ca908] 
[D2641 


[20421 
LSABB] 


tABACI 


[60461 
TAACEI 
CDA20I 
[D9CEI 
1369A1 


126F4) 


CFiFEI 


C28D4] 


£LA2D4] 


L72AAJ 
L6@cAI1 


EDB341 
TB8E61 
[398€] 
LF6761 


169301 
L986C) 


LIECCI 


2400 


2610 


2620 


EIN$=INKEY$ : IF EIN$="" THEN 2598 
IF UPPERS(EIN$)I<>"J" THEN 488 

G0TQ 2110 

REM AUSGABE DER MONATLICHEN SONNENT 
ABELLE 

PRINT #2 USING UAR"DAYzERRINT #2 
INT #2,USING Bann MOnTN? + PRIN 


T FE PRINT #2,USING "4; JAHR; 
PRINT #2,USING "#4. ##" 3; AUFDAEM; :P 
RINT #2,USING "#4. #4" ; SOAUF5 EPRIN 
T_#2,USING te. #4" ; SOUNTER; : PRI 
NT #2,USING a. Bl UNTDAENFTFRIN 
T #2,ÜSING "4 #3 SOKUL 3; = PR 
INT #2,USING SEunaeen #" } KÜLHDEI 


PRINT 42, SERCERLIRISEFR NT #2,USING 
"hä. H; MOFHASI 

DAY=DAY+1 

IF DAY=27 AND MONTH=2 AND (JAHR-4#I 
NT(JAHR/4)=@) THEN 958 

IF_DAY>=27 AND MONTH=2 THEN LOCATE 
2,25: PRINT "NEUER MONAT (J/N) "zEIN$ 
=INKEYS:IF EINF="" THEN 2590 ELSE I 
EQuFPERF(EINK=TZ THEN 848 ELSE 26 


3 

IF DAY=31 AND (MONTH=4 OR _MONTH=4 0 
R MONTH=? OR MONTH=11) THEN LOCATE 
2,25: PRINT “NEUER MONAT (J/N) "ıEINF 
SINKEY$:IF EIN$="" THEN 2600 ELSE I 
Ei UPPER$ (EINF)="J" THEN 848 ELSE 26 


Ir DAY=32 THEN LOCATE 2,25:PRINT "N 
EUER MONAT (J/N)"sEINS=INKEYS:IF EI 
N$="" THEN 2610 ELSE IF UPPER$(EIN$ 
}="J* THEN 848 ELSE 2639 

GOTO 950 


2639 LOCATE 2,25: PRINT "ANDERER ORT (J/N 


2440 
2458 


2660 


2670 


2680 
2698 


2709 


27ı0 


2720 


I "zEINF=INKEYS:IF EINS="" THEN 2630 
ELSE IF UPFER$(EIN$)="J" THEN 798 


ELSE 480 

REM ee DER MONATSTABELLE AUF D 

EM DRUCKEI 

PRINT #8 Using "##"; DAY; : PRINT #8 
FOR EHONTN EPREN 


3: PRINT #8,USING 
DRSESIN PRINT 8E„USIne a"; JAHR; 


PRINT #8,USING "Hank AN" LAUFDAEN ep sp 
RINT #8,ÜSING "Ah. ee 

T #8, USING "Ammann. 4"; SOUNTEI EBRT 
NT RBUSING. "ra. Hr yÜNTDAENg SPRIN 
T #8,ÜSING "AHHnRAnnn. Mh"; SOKUL5:PR 
INT #8,USING "Hann. AERO ÜLHDEHE 
PRINT hs, Pong LIFRE IT #8,us1l 
"Rt. 4" MOPHAG 

DAY=DAY+i 

IF DAY=29 AND MONTH=2 AND (JAHR-4*I 
NT(JAHR/4)=9@) THEN 950 

IF_DAY>=29 AND MONTH=2 THEN LOCATE 
2,25: PRINT "NEUER MONAT (J/N) ":EIN$ 
SINKEY£:IF EIN$="" THEN 2788 ELSE I 
5 UPPER$(EINS)="J" THEN 840 ELSE 48 


IF DAY=31 AND MONTH=4 OR MONTH=6_0 
R MONTH=9 OR MONTH=11) THEN LOCATE 
2,25:PRINT "NEUER MONAT (J/N) "sEIN$ 
SINKEYS:IF EINF="" THEN 2719 ELSE I 
F URPER$(EIN$)="J" THEN 840 ELSE 48 


o 

IF DAY=32 THEN LOCATE 2,25:PRINT "N 
EUER MONAT (J/N) "sEIN$=INKEYS:IF EI 
N#="" THEN 2728 ELSE IF UPPERF(EIN$ 
}="J" THEN 240 ELSE 480 

G0TO 950. 


MODE 9 

LOCATE 7,12: PRINT 
CALL &8D18 

ale EB 


MODE 
LocATE 20,2:PRINT "ALLGEMEINE ERLAE 
UTERUNGEN NZLOCATE 28,3: PRINT STRING 


Lögate 3) &:PRINT "Was bietet das Pr 
ogrammı 
LÖCATE 3,9:PRINT_"1. Berechnung des 
Tagesgangs von S O N N E{3 SPÄCE}u 
ndt3 SPACEIM O N D" 

LOCATE &,11: PRINT (Datenausgabe als 
Tabelle'oder Grafik 
LOCATE 3,14:PRINT "2. 
belle fuer die Sonne" 

PRINT STRING$ (L5@,"_") 
FRINT:PRINT " Alle Eingaben muessen 
durch Druecken der <ENTER>-Taste a 


"ENDE" 


Monatliche Ta 


Listing. Sonne, Mond und Sterne 
(Fortsetzung) 


[C55@1 
[8556] 
CC9@C1 


L683A1 


£D21C1 


[8818] 


L121E] 
190861 


tEFFCI 


[DSBEI 


LEBS4] 

ECFOA] 
L6CC2] 
tr9701 


L[F6EQ] 


1D55C3 


1@B64] 


[D6EDI 
CBQBA] 


CF198] 


10744] 


[3SDE] 


[6284] 
£7166] 


[2ED8] 


183141 
[9082] 


188621 
LS3DC1 


1927881 
[2282] 


bgechlossen werden" [31F21 
PRINT:PRINT "(12 SPACEIJ/N - Abfrag 
en nur durch Druecken von <J> oder 
SN>" LC3EEI 
LOCATE 10,25 PRINT "Fortfahren im P 
rogramm durch Druecken irgendeiner 


Taste" 1L324C1 
CALL &BB18 [36821 
S0TO 498 85p81 
MODE 2 L9CC4] 
LOCATE 15,2:FRINT “Erklaerungen zur 
Monatstabelle fuer die Sonne" 14492] 
PRINT STRING$ (#58, "_") [19883 
PRINT "(13 SPACE} In dieser Darstell 
ung wird fuer alle Orte der Erde":P 
RINT 191321 
PRINT_"t11 SPACE}fuer den ausgewaeh 
lten Zeitpunkt angegebenz" L9E741 
LOCATE 28,9: PRINT "Datum in der For 
mt5 SPACESTT.MM. 2 Las1a2 
LOCATE 20,11: PRINT "Daemmerungsbegi 
AnS_SPACE>hh. mm" CA4BEI 
LOCATE 22,124 PRINT "Sonnenaufgang(? 
SPACEIhh. mm" 128501 
LOCATE 20,14:PRINT "Sonnenuntergang 
€ (CE) hh L9DBAI 
INT "Daenmerungsende 
LSAGEI 
LOCATE 20, 17:PRINT "Kulminationszei 
€t& SPACEIhh.mm" LAFSCı 
LOCATE 20, 184 FRINT "Kulminationshoe 
he int2 SPACE)*#.* Grad" teEcc1 
LOCATE 20,28: PRINT "Mondphase in % 
(+ zunehmendt2 SPACE}- abnehmend)" LB4DB] 
PRINT _STRINGS (450, "_") 184721 
GOTO 2870 LDA22I 
MODE 2 E21BE1 
LOCATE 15,2: PRINT "Erklaerungen zur 
Datenausgabe als Tabelle" L7F621 
PRINT STRING$ (&50,"_") L2C7A1 
PRINT "t2 SPACEIDie Tabelle zeigt f 
uer jeden Ort der Erde im Stundenab 
stand" C6B481 


309@ LOCATE 22,9: PRINT "Rektaszension (' 
Laenge am Himmel ')" [3134] 

3102 LOCATE 20,9:PRINT "Deklinationts SP 
ACEI( "Breite am Himmel” tecc8] 

s11@ LOCATE 29; „I1:PRINT "Hoehe ueber dem 
Horizon L&SBEI 

3120 LOCATE 25, 13: PRINT "Aufgang(3 SPACE 
>um hh. Uhr" [8ESAI 

zı30 LOCRTE 28, 14:PRINT “Untergang. um hh 
Ihr 199A21 

zıam LÜCATE 20,16: PRINT "Kulminatian der 

‚anne um'hh.mm Uhr in **.* Grad Ho 


3150 LULATE 20,18:PRINT "Mondphase in % 
(+ zunehmend, (2 SPACEI- abnehnend) * 


Z16@ PRINT BTRINGS(A50, es 
3178 ad 2370 


3198 Locate 15,25 PRINT "Erklaerungen zur 
Datenausgabe als Grafik" 

3208 PRINT STRING# (450,"_") 

321@ PRINT "(3 SPACEIDIe Grafik zeigt de 
n Tagesgang der Sonnen- und Mondhoe 
he fuer jeden Ort" 

3228 LOCATE 18,12:PRINT "Betrachten Sie 
die Grafik. Sie erklaert sich selbs 


3230 GOTO 2870 


L1ESB1 


16746] 
LaF7A] 
1752A] 
15406] 


L3AAQ] 
LE87@] 


cec181 


L1BBEI 
16824] 


Listing. Sonne, Mond und Sterne (Schluß) 


Dem Gärtner zur Freude 


Welches Gemüse wo und wie am besten wächst 
und gedeiht, darüber informiert Sie jetzt Ihr Com- 
puter mit unserem Garten-Planungsprogramm. 


ach dem Start des Programms »Mischkultur« 

erscheint auf dem Bildschirm das Hauptmenü. 

Geben Sie jetzt eine der zur Auswahl stehenden 
Kennziffern ein, verzweigt das Programm zum gewählten 
Unterpunkt. Sofern kein Block-Cursor zu erkennen ist, wird 
die Eingabe sofort bearbeitet. Anderenfalls drücken Sie 
ENTER. 

Normalerweise beginnt man das Programm mit Punkt 1 
(Erstellen des Gartenplans) oder Punkt 4 (Pflanzenüber- 
sicht). Die Pflanzenübersicht informiert Sie zunächst über die 
zur Auswahl stehenden Pflanzen. 

Mit der Eingabe eines der hervorgehobenen Buchstaben 
wählen Sie den entsprechenden Punkt aus. 

Möchten Sie Auskunft über eine Einzelpflanze, müssen Sie 
wenigstens die ersten fünf Buchstaben der Pflanze einge- 
ben. Nun zum eigentlichen Gartenplan: Dazu müssen Sie im 
Hauptmenü den Punkt 1 anwählen, wenn es sich um eine 
erste Aufstellung handelt, oder den Punkt 5, wenn Sie einen 
bereits existierenden Plan weiterbearbeiten wollen. 

Jetzt werden Sie aufgefordert, Angaben zur Größe des 
‚Gartens, zum Reihenabstand und zur Art der ersten Planzen- 
reihe zu machen. Jede Frage ist mit ENTER zu bestätigen. 

Der Computer schlägt vor, welche Pflanze inwelcher Reihe 
‚am vorteilhaftesten plaziert ist. Sie brauchen nur die Auswahl 
zu treffen, bis Ihr ganzer Garten bepflanzt ist. Wollen Sie die 
Bearbeitung abbrechen, so wählen Sie statt einer Reihe »-1« 
und das Programm verzweigt zurück ins Hauptmenü. 


Gefällt Ihnen die »Computerversion« Ihres Gartens und wol- 
len Sie sie speichern, werden Sie aufgefordert, sich einen 
Namen zu überlegen. 

Bei Wahl der Druckerausgabe erhalten Sie Ihren komplet- 
ten Gartenplan mit Längenangaben säuberlich auf Papier. Wir 
wünschen auch in der Praxis gutes Gelingen. 

(Hans-Werner Pätz/ja) 


gartplan 


Der Berten 
Der Rein 
Damit hat'der Garten 


Fr 
TB Reinen. 


Pflanze 


Stangenbohnen 
Neunselaender Salat 
Rosenkahl 
Enicoree 


Zucchini 
Spinat 
Sellerie 
Kohlrabi 
Tomaten 


Arnensnenz 


Koptualat/Einnalat 


Bild. Ein fertig bestücktes Beet 


Name: 
Computer: 
Checksummer: 
Datenträger: 


CPC 464/664/6128 
Explora 
Kassette/Diskette 


10 een  — [BSIA] 86® IF flag=1 AND typ<>i THEN G0TO 91@ E 
2@ ‘*** Der Mischkulturen-Garten »#* [1638] LSE IF flag=i THEN 880 ELSE READ typ 
IQ Re 11904] C3BB61 
20 #0 copyright ... [Fa48] 878 IF typ<>i THEN flag=1:6070 918 [B2A43 
SQ '#0r Werner Paetz ... [SBFEI 880 READ menge 13D1@1 
&B 00“ 13.2.86 ... t1@D23 890 FOR j=1 TO mengerREAD schlecht (i,j): 
70 une Pr Fern C3DDCI NEXT 5 C9CAC1 
80 '#0r 5178 Juelich ... [Das81 flag=® teEBB] 
U RR [BFE@I F1@ NEXT i [4484] 
ı00 ° [DEB@I 928 WINDOW#1,5,88,6,6 14840] 
118 MODE 2 198523 930 WINDOW#2,5,4@, 11,23 Ca2F23 
12@ DIM names (49) ‚gut (48,18) ‚schlecht (48 748 WINDOW#S,45,88,11,23 EDB66] 
„1@) „NICHT (48) „GUEN(4@) tBA1®I 958 WINDOW#4,2,88,25,25 [9604] 
138 P£lanzensortiment L183C3 768 WINDOW#S,1,88,6,22 LA7AsI 
148 38 CFBA4] 970 ° [73CE] 
188 Data "ATomaten“ ‚"AErbsen" ‚"AStangenb 788 CL: 179461 
ohnen" „"AGurken" , "AZuechini","AKarto 998 LOCATE 5,2:PRINT "AUSWAHL FUER GARTE 
#feln" LFC4@1 NPLAN DES MISCHKULTURENGARTENS" 178023 
168 DATA_"BBuschbohnen" ‚"BZwiebeln" ‚"BKo 1008 LOCATE 5,3:PRINT "===mmumunnzunnmee 
hl (Rot-,Weiss-Wirsing) ","BRosenkoh Sesunsentssununnunnnunnnnnunnen" LESD@I 
1* ,"Böruenkohl""BBlumenköhl/Brokkel 1®1® LOCATE 8,6:PRINT "1) (5 SPACEIERSTEL 
i","BSchwarzwurzel","BRote Beete","B LEN DES GARTENPLANS" 160841 
Sellerie" 115941 102® LOCATE 8,8:PRINT "2)(5 SPACEIAENDER 
17@ DATA "CZwiebeln" ‚"CLauch/Porree" ‚"CK N DES GARTENPLANS" L76AAI 
103® LOCATE 8,1@:PRINT"3) (5 SPACEIDRUCKE 
N DES GARTENPLANS" L73DE1 
1848 LOCATE 8,12:PRINT"4) (5 SPACEIPFLANZ 
ENUEBERS L3BB@J 
1880 1@5® LOCATE 8,14:PRINT"S) (5 SPACEIEINLES 
go EN EINES" GARTENPLANS" ESFACI 
EMoehren/karotten" ‚"CKohlrabi ","CRet 1068 LOCATE @,161PRINT"@) (5 SPACEIE N D 
tich/Radieschen" L@C561 190141 
19@ READ anzahl CSFESI 1878 Locare 8 28: PRINT"(7 SPACEIWELCHE W 
200 FOR i=1 TO anzahl C48E2) AHL ———> 22 2 SPACE) CCD341 
21@® READ Names (i) 1739C) 1888 GOSUB E31AAI 
22@ NEXT i [46F8] 1898 IF incae OR ein >53 THEN PRINT CHR 
230 ° 18788) #17) 5CHR$(7):60T0 988 L59FA1 
240 'Liste des guenstigen Anbaus 1841AJ 1108 ein=ein-48 189581 
250 ° tEIBCI 111® LOCATE 32,20: PRINT EINsFOR I=1 TO 2 
240 DATA 8, ze, Se 18,17,9,8,28,25 c ei} ı c8C80] 
278 DATA & 8,9,29,38 [397€] 
280 8225.9.29.18 eDe163 1D49A1 
298 2 15,17,14,18,9 [993€] 138 CLS CicgEı 
300 18241 114@ PRINT STRING$(88,"_"):LOCATE 28,3:P 
3180 C911a) RINT "AUS WAR [IS BPACEID E'RCS 
320 LBAZEI ACEIP FLANZE N" tE2941 
30 c48A21 115@ PRINT STRINGSCEB," "> L1A2EI 
30 C44981 116@ LOCATE 1@,8:PRINT Fauertig mit":LO 
350 LF1923 CATE 55,8: PRINT "unquen mit" LF77C1 
368 CE2941 117@ PRINT STRING$ (8@," 148321 
3780 ECArcı MOVE @,3@:DRAW 6 „38: Move 330,30:D 
38a 142781 284 tOB9EI 
398 CFA14] PRINT#4,"A) -Reihe(5_SPACEIB) -Reih 
208 229, 17,28,1 LAAG&I e(5 SPACEIC) -Reihe(5 SPACEIE) inze 
410 L65A@1 1pflanze(5 SPACEIM) enue" L9E221 
420 19 t84AA] ı 1539E1 
430 13,7,2,4,27 Lasaaı 1218 IF ein-77 THEN 908 C9A141 
0 EFB923 122® IF ein=65 THEN anfang=1rauswahl=6:6 
450 L9As&I dro"ı278 12D7E1 
460 EC71EI 1230 IF ein=66 THEN anfang=7:auswahl=15: 
470 LEA7AI G0T0 1278 CCBEEI 
480 1,28,3 [246A1 1248 IF ein=67 THEN anfang=16: auswahl=3@ 
470 CAEIGI :60T0 1278 CD64C3 
sao De 13,6,1,30,3 t38c81 1250 IF ein=69 THEN CLBW4L INPUTS4 Weich 
sıo EBAFCI e FEN ı";PflanzessFOR Ij=1 
520 11, 12,20 .58 EF1BBJ nzahlı FCURPERSGEFTEIpFlaneet, 29) 
530 2,38,27,19 CDCACI ÜPPERKILEFTS(MIDS (names (13) 523 ‚5 
540 ‚30, LOSEEI THEN anfang=i jr auswahl =i j3GOT0' 127@ 
55o et TE42CI ELSE NEXT ij:CLS#4:60T0 1258 CABIEI 
ET LEACA] 1268 GOTO 1348 16414] 
570 ‘Liste des unguenstigen Anbaus BSECI 127® FOR i=anfang TO auswahl tC2B41 
E-J LAECBI 128@ CLS#1HPRINTS1, LEFTS(Name$(1) ,1);" 
5 tcas@1 — Reihe" ‚MID$ {names (i) ‚2) L2EEAI 
.. 17,1,8 CCC32] 129@ CLS#2:CL5#3 1842A] 
2 1388 FOR _k=1 TO 1B:IF qut(i,k)=@ THEN 13 
tBFE@] 1@ ELSE PRINT#2,MID$ (names (qut (i,k) 
c@81@1 },2) NEXT k 157241 
LECC®I 131@ FÖR j=1 TO 1®: IF schlecht(i,j)=@ TH 
7,2,9,1@,11 [SFSEI EN 1315 ELSE PRINT#3,"(3_SPÄCEI" MI 
Tacaaı D$(name$ (schlecht (1,3)) ‚2)ıNEXT 3 LBDE@] 
L6ESCI 1315 IF anfang=auswahl THEN CLS#4:PRINT® 
[89681 4,"{6 SPACEIM) enue(9 SPACEIE) inze 
7,6,28,25 CADBAI 1pflanze ":60SUB 1368: IF ein=69_TH 
£772C3 EN 1258 ELSE IF ein=77 THEN 988 ELS 
73,7,2,9,18,11 T@9B&] E 6070 1348 184481 
29, TABaB] 132@ CLS#4:PRINT#4,"(6 SPACEIM) enue(9 S 
125921 PACEIW) eiter ":G0SUB 1368: IF ein= 
1349A1 77 THEN 988 CaB9A1 
C1BA41 133@ NEXT i 1 
E3D2E1 134@ CLS#4:PRINT CHR$(7);CHR$(7):60T0 11 
770 LFAACI 72 116661 
78@ FOR ae TO anzahl LFAFCI 1358 REM 1[3D9A] 
798 READ b LE@BCI 136® REM Eingabe-Routine Caas8] 
888 FOR j=1 TO b LAFBB. 1378 REM 2FIE 
B1@ READ qut (i,3) LFAZAI 
82@ NEXT 5 143861 
SR NEXT i L1B@61 
140 flag=® LF9B6. er 
850 FOR i=1 TO anzahl LFDF81 Listing. Optimale Nutzung Ihrer Gemüsebeete 
BAAPPYM, 
86 :OMPUTER 


568 banz=INT (r, 


eins=INKEY$: IF ein$="" THEN 1388 EL 
ER ein=ASC (UPPER$ (ein$) ) :RETURN 


1a Print BTRINBSTON.T, ")3LOCATE 12,3:P 
L 


RINT"E RS T ELLE N{3 SPACEIE I 


NE S(S SPCBIGARTENPLANS 
PRINT STRINBE (ORT 7a) 


un. ist die 
n 19 SP 


zu bepflänzende Flasche 
ACE)";laenge 
LOCATE 


8: INPUT "Wie gross 


1458 SE 
LöcAte 5,1@: INPUT 
erste | Reine “A, 


"Welches ist die 
B_oder C) (15 SPACE} 
ur h$=UPPER$ (reih$) 

I Reineenan OR REIH$="B" OR REIHS= 
"C" THEN 1488 ELSE 1468 
reihanz=CINT (laenge/abst) 

IF reihanz<33 THEN 153@ ELSE LOCATE 
2,20: PRINT "Bei einem Reihenabsta 
nd’ von";CINT (18@*abst);"cm darf das 
Gartenstueck nur";32#absts;"m lang 


sein." 

LOCATE 15,22:PRINT "Teilen Sie die 
Gartenflaeche in mehrere Stuecke" 
LOCATE 14,24: PRINT "#"** Zum Fortfa 
hren beliebige Taste druecken ##u#" 


CALL &BB18:60T0 1488 

IF (reiht="A") THEN aanz=INT((reiha 
nz+3) /4) scanz=INT (reihanz/2) ıbanzer 
eihanz-aanz-canz:60T0 1588 

IF (reih$="B") THEN banz=INT((reiha 
nz+3) /4) :canz=INT (reihanz/2) ıaanzer 
eihanz-banz-canzıG0T0 1588 
aanz=INT((r=ihanz+2)74) 


2/4 

BANZZINT treihanz+l)/2) 

LOCATE 2,1S:PRINT"Der Garten wird i 
nsgesant "jreihanzj "Reihen haben 
zaanz;"x A, ";banz;"x B und a 
“c)" 

DIM reihe$ (reihanz) ‚reihe(reihanz) 
LOCATE 5,24: PRINT SPACE$ (78) :LOCATE 
5,24:PRINT "Bepflanzen der Reihe 1 
.!"jreihanz; "(4 SPACE)Ende=-1"5 

1F aflag=® THEN LOCATE 58, ZA: PRINT 
"von vorne an = 8"; 

INPUT reihanf 

IF reihanf<@ THEN 988 

IF REIHANF>REIHANZ THEN PRINT CHRS( 
7) 16070 1608 
aflag= 
IF reinant=@ 


THEN 2568 


THEN 1718 
THEN 1728 
IF reih$="B" THEN 1738 
IF (i+1) MOD 2=@ THEN buch#="C":60T 
174@ ELSE IF (i+2) MOD 4=@ THEN b 
48 ELSE buch$="B":6 
0TO 1748 


IF (i+3) MOD 4=@ THEN buchsus ans 807 
0 174@ ELSE IF i MOD 2=@ THEN buch: 
="C":60T0 1748 ELSE buchsmeB" ,B0TO 


1748 

IF (i+3) MOD 4=@ THEN buch$="B":60T 
0 174@ ELSE IF i MOD 2=® THEN buch* 
Bcmsorn 174@ ELSE buchs="A" 


FOR NI=1 TO 40: NICHT(NI)=@: GUEN{N 
NEXT NI 


IF RV=@ THEN 1898 
IF (REIHANF+RV)<® OR (REIHANF+RV) DR 
EIHANZ THEN 1898 

IF REIHE (REIHANF+RV)=@ THEN 189@ 
FOR RVA=1 TO & 

FOR_RVJ=1 TO 18 

IF SCHLECHT (RVA,RYJ) = REIHE(REIHAN 
F+RV) THEN NICHT (RVA)=1 

IF GUT (RVA,RVI) = REIHE (REIHANF+RV) 
THEN GUENIRVA)=1 


IF REIH@=1 THEN LOCATE 5,24:PRINT C 
HR& (7) SCHRS(7), "*** ZUM FORTFAHREN 
IRGENDEINE TASTE DRUECKEN ##*" ELSE 
G0T0 1928 

CALL &BB18:LOCATE 5,24: PRINT SPACES 


[21F2 


(68) 

CLS#5:LOCATE#S, 2,1:PRINT#S, 
eihe "jreihanfj" ist eine "jbuch$;" 
- Reihe, damit stehen folgende Pfl 
anzen zur Auswah 

FOR IND=1 TO & 
IF NICHT(INDI=1 THEN 1998 
LOCATE#S,1@, IND+2 

IF GUEN(IND)=1 THEN PRINT#5,CHR# (24 


35 

PRINT#S,IND;" +2 SPACE)" MIDS (NAHE 
SIND) „2) 

IF GUEN(INDI=1 THEN PRINT#S,CHR# (24 


33 

NEXT InD 

60T0 2448 

FOR RV=-4 TO 4 


"Die R 


2828 IF RV=@ THEN 


4 


i Er a 


GE 


. i 


ei 


2118 

IF (REIHANF+RV)<® OR (REIHANF+RV)>R 
EIHANZ THEN 211@ 
IF a THEN 211@ 
FOR RVB=7 Ti 
FOR .RvJ=i 10 18 

F SCHLECHT (RVB,RVJ) = GESSEHRELNELIARN 
FaRv) THEN NICHT (RVB) =: 
IF GUT(RVB,RVJ) = NEIRE (REIHANF+RV) 
THEN GUEN{RVB)=1 


TE REIMG=1_THEN LOCATE 5,241PRINT C 
TRastot Ihe Hase Sr ZUM FORTFAHREN 
DRUECKEN ###" ELSE 


Fe WBB18.LocAre 5,24:1PRINT SPACE$ 


68) 

ELSSS:LOCATENS, 2,13PRINT#S, "Die R 
eihe "jreihanf;" Ist eine "jbuch$j" 
- Reihe, damit stehen folgende Pfl 
anzen zur Auswahl: 

FOR IND=7 TO 15 

IF NICHT(IND)=1 THEN 221@ 
LOCATE#5, 18, (IND-&) +2 

IF GUEN(INDJ=1 THEN PRINT#S,CHR# (24 


PRINT#S, IND-64 " 212 SPACE}";MIDS(NA 
ME$ (IND) „2) 
IF GUEN(INDI=1 THEN PRINT#S,CHR$ (24 


2338 
at Keil eRU) ce OR (REIHANF+RV) >R 


IZ THEN 2338 
Te "REINE REIRANE RU 8 THEN 2338 
FOR RVC=16 TO 3@ 
FOR _RVJ=1 TO 18 
IF SCHLECHT (RVC,RVJ) = REIHE (REIHAN 
F+RV) THEN NICHT (RVCI=1 
IF GUT(RVC,RVJ) = REIHE (REIHANF+RV) 
GUENIRVC) = 


NEXT RV 

IF REIH@=1 THEN LOCATE 5,24:1PRINT C 
Urs (T)ICHRe (TH Teee ZUM FORTFI 
IRGENDEINE DRUECKEN 


60T0 2 
Fe &BB18:LOCATE 5,24:PRINT SPACES 
CLSMSLLOCATERS, „2,1: PRINTES, "Die R 

"jreihanfz" eine "jbuch$z" 

Reihe: damit s ehen folgende Pf1 

anzen zur Auswahl 


'ORTFAHREN 
“*" ELSE 


LOCATE#S, 18, (IND-15) +2 
Ir BUEN SUEN(IND)=1 THEN PRINT#S,CHR# (24 


PRINT#S, IND-15;" ı€2 SPACE)" MIDSN 
AMES (IND) „2) 
Ir SUENCIRDI=1 THEN PRINT#S,CHREC24 


NExr IND 


2448 LOCATE 5,24:PRINT SPACE$ (78) ı LOCATE 


5,24: 11 "Welche Dilanze (bitte K 
ennziffer [-1 = 


IF buch$="B" THEN z=ein+6:60T0 2508 


Listing. Optimale Nutzung Ihrer Gemüsebeete 
(Fortsetzung) 


119821 


LtEBBCI 


[2762] 
L926E] 


87 


IF buch$="C" 
reihe$ (reihanf)=MID$ (name$(z),Dıre 
ihe (reihanf)=z 

CLS#5:FOR i=1 TO reihanz: IF i<17 TH 
EN LOCATE 2,5+i:PRINT USING “##"zi5 


THEN z=ein+15 


sPRINT" ı(2 SPACE}";LEFT$(reihes(i) 
‚3@) ELSE LOCATE 42,5+i-16:PRINT US 
ING “##"5i5: PRINT" :{2 SPACE}"zLEFT 
$(reihes(i),3@) 

NEXT i 

IF flaga=i THEN RETURN 

FOR ENDE=1_TO REIHANZ: IF REIHE(ENDE 
)=@ THEN 255@ ELSE NEXT ENDE:G0TO 2 
+88 

IF REIH@=1 THEN 2588 ELSE 1688 

REM GARTENPLAN MIT REIHE 1 BEGINNEN 
fin 

REIH@=1 

REIHANF=REIHANF+1 

60T0 1678 

LOCATE 5,24: PRINT "#### ALL E(SS 
PACEIR E I H E N{3 SPACEIS I N DIS 
SPACEIBBEPFLANZT #ner" 
LOCATE 18,25:PRINT "D) RUCKEN{& SPA 
CEIA) ENDERN(7 SPACEIM) ENUE" 
EIN$=INKEY$: IF EIN$="" THEN 2628 EL 
SE EIN$=UPPER$ (EINS) 


IF EIN$= THEN 988 
IF EIN$=' THEN 268@ 
IF EIN$="D" THEN 2798 


LOCATE 18,25:PRINT "(2 SPACEIF AL 
SC H E{3 SPACEIE I NG A B E(7 SPA 
CE}":FOR I=1 TO S@@:NEXT:GOTO 261@ 
REM 

REM Aendern des Gartenplans 

REM 

CLS 

PRINT STRING$ (88,"_"):LOCATE 12,3:P 
RINT"A ENDE R NTS SPACBIE INE 
S{3 SPACEIG ARTENPLANS" 
PRINT STRING$ (88,"_") 

IF aflag=® THEN ELS:LOCATE 5,12:PRI 
NT "Es ist noch keine Reihe bepflan 
zt":FOR i=1 TO 2@@8:NEXT i:G0T0 988 


#laga=1:G0SUB 25 +laga=-® 

LOCATE 5,24: INPUT"A endern{4 8 
PACE)n e 1 c h e r{3 SPACEIR e i h 
we SPACE}oder -1 fuer Ende: "ıreih 
an 

IF reihanf=@ THEN PRINT CHR$(7):CHR 
$#(7):G60T0 275@ 

IF reihanf<@ THEN 988 

A =1:60SUB 1670: flaga=8:60T0 275 
REM 

REM Druck-Routine 


PRINT STRING$ (88,"_"):LOCATE 28,3:P 
RINT "DRUCK E N<5 SPACEID E SS 
SPACEIGARTENPLAN 5" 
PRINT STRING$ (8@," _") 

IF PLAN$="" THEN PLAN$="GARTENPLAN" 


LOCATE 5,24:PRINT "B I T T Et3 SPAC 
EID RUCK E R(4 SPACBIE INS CH 
ALTEN !!“ 

LOCATE 18,25:PRINT "danach beliebig 
e Taste druecken":CALL &BB18 
PRINT#B,CHR$ (11) 
PRINT#B,CHRS& (27) 5 CHR$ (49) 
PRINT#8,STRING$ (88, *_") :PRINT#B:PRI 
NT#B,, SPÄCES$ (38) ;plan#: PRINT#8,STRIN 
6488,“ _") 

PRINTÄSTPRINT#8,SPACE$ (10): "Der Gar 
ten hat eine Laenge von{5 SPACE)" 1 
aenge; "m." 
PRINT#8,SPACE$ (18) ;"Der Reihenabs 
nd betraegt(8 SPACEI"; INT (abst#*108) 
"cm." 

PRINT#8,SPACE$ (18); "Damit hat der G 
arten(15 SPACE)": :PRINT#B,USING"##" 
jreihanz; : PRINT#8," Reihen." 
PRINT#8: PRINT#8: PRINT#8 , SPACE$ (10) ; 
"Reihe(2 SPACEIArt(4 SPÄCEIPflanze" 


PRINT#8,SPACE$ (1@) :STRING$ (7@ 
PRINTAB:ERINTEO-SPACES (19) ; :PRINT#S 
PRINT#G:PRII f 
NÜSINGFARR" 13 1 PRINT#B, " (5 SPACEI "; 
LEFT$ (name$ (reihe(i)),1)3"(5 SPACE} 
"jreihes(i) 

NEXT i 

PRINT STRING$ (88,"_"):LOCATE 38,3:P 
RINT plan$:PRINT STRING$(8@,“_") 
PRINT:PRINT:PRINT:PRINT"Der Gärten 
hat eine Laenge von";laenge; "m." 


=) 


LA2361 
185D81 


L9AB4] 
198621 
EFBA2I 


17634] 
L@39E1 
LFFDAI 
CBD683 


CAB@4 
L6F2EI 


CDEDEI 
LFSCCI 
1512A1 
L48F0) 


L1C38] 
[2F441 


L[3F26] 
132A6] 
[DCS83 
CB4AA] 
118961 


t1FrD2] 
14636] 


EB7AEI 
17634] 


ID9AEI 


CAA&A] 
tD3F@] 
LIEBAI 
LiBACı 
CADF4] 
[549€] 
LCASCI 


1978841 
176503 


106321 


C1D643 


L8E34] 
197741 
tB978] 


189221 


L74BA1 


CF6FBI 


t12@C1 


1SES8] 
LFEB&] 
[51461 


CBE221 
1B4761 


1D6381 
L7CC63 


PRINT:PRINT"Der Reihenabstand betra 
egt"; INT (abst*1@@) ; "cm." 
PRINT:PRINT"Damit hat der Gartent& 
SPACE) "zreihanz; "Reihen." 
PRINT=PRINT:PRINT:PRINT"Reihet8 SPA 
CE)Art(1@ SPACEIPflanze" 

FOR i=1 TO reihanz 

PRINT:PRINT USING"###"3i5:PRINT" (11 
SPACE)" ;LEFT$ (name$(reihe(i)) ,1);" 
<11 SPACE}"zreihes(i) 

NEXT i 

PRINT "zum Fortfahren eine Taste dr 
uecken":CALL &BB1B 


REM 
REM ENDE DES PROGRAMMS 
REM 


CLS 

PRINT STRING$(88,"_"):LOCATE 28,3:P 
RINT "B E END E N<3 SPACEID E St3 
SPACEIPROGRAMM S" 

PRINT STRING$ (88,"_") 

LOCATE 28,1@:PRINT "1 .... Abspeich 


ern des Gartenplans" 

LOCATE 2@,12:PRINT "2 .... Zurueck 
zum Hauptmenue" 

LOCATE 28,14: PRINT "® .... ENDE" 


LOCATE 27,2@: PRINT "Kennziffer -— 
{6 SPACE)" 

GOSUB 1388 

ein=ein-48: IF ein<® OR ein >2 THEN 
PRINT CHR$(7)3CHR$(7):G0TO 3178 
LOCATE 45,20: PRINT ein 

IF ein = 2 THEN 988 

IF ein = ® THEN CLS:LOCATE 28,12:PR 
INT "E N D E":LOCATE 1,231END 

REM Abspeichern 

LOCATE 18,22: INPUT "Welcher Name :" 
plans 

Li TE 18,22:PRINT "Bitte das Band 
an die richti Stelle spulen" 
LOCATE 18,23: PRINT "danach "REC/PLA 
Y’ und irgendeine Taste druecken":C 
ALL &BB1G 


OPENOUT "!gartplan" 
PRINT#9 ‚PLÄNS 


PRINT#9,laenge 
PRINT#9 ,abst 
PRINT#9,reihanz 
PRINT#9,reihs 

FOR i=1 TO reihanz 
PRINT#9,reihes(i) 
PRINT#9,reihe(i) 
NEXT i 

CLOSEOUT 


> 


+23: PRINT SPACE$ (68) 
„22:PRINT "{4 SPACE)Abspei 
chern(2 SPACE)des Gartenplans beend 
et(& SPACEI" 

60T0 3138 


REM 
REM EINLESEN EINES GARTENPLANS 
REM 


CLS:LOCATE 1@,12:PRINT "Bitte das B 

and an die richtige Stelle spulen 

LOCATE 18,14: PRINT "(3 SPACE)danach 
PLAY’ und irgendeine Taste drueck 

en":CALL &BB18 

OPENIN "!gartplan" 

INPUT#9 „PLAN 

INPUT#7,1aenge 

INPUT#9,abst 


35@@ INPUT#9,reihanz 


INPUT#9 ,reih$ 

DIM reihes (reihanz) ‚reihe (reihanz) 
FOR i=1 TO reihanz 
INPUT#9,reihes(i) 

heti) 


Listing. Optimale Nutzung Ihrer Gemüsebeete 
(Schluß) 


L786C39 
1Aa321 


LFD6BI 
[26321 


L1AE6] 
[89621 


L3B84] 
LAAFEI 
CaBCa] 
138981 
[288€] 


C48B2] 
1322E] 


La4CC41 
LB35@J 
tDF@8] 


LFB38J 
13CB8] 


LEC8@] 
L9BAEI 
LA1201 


LE7BE] 
TEBABI 


1695E] 
1D4661 


LB15@] 
[D7EB] 
£18A2] 
[F4DE] 
15144] 
C2CDAJ 
LAA921 
12336] 
135D4] 
L&B8E] 
[CC68]1 
142B6] 
LAFCCI 


140321 
L9DBEI 
LAF98] 
11D66] 
t4D9C] 


tES9EI 


tcaa@1 
[6E28] 
CEAAAI 
L2CE6] 
[9664] 
tABE2I 
LCC9AI 
CADA4I 
14134] 
CD&DEI 
172981 
L&A2CI 
tS5aF8] 
L7EB2] 
L9EDEI 


Volle 
Übersicht 


Endiose Zahlenkolonnen sind meistens sehr 
schwer lesbar. Dieses Programm hilft Ihnen, stati- 
stische Daten grafisch übersichtlich darzustellen. 


gal, wie auch immer Sie Ihre Daten veranschaulichen 

wollen, »Statistik« hält vier verschiedene Arten für Sie 

bereit: Kuchen-Diagramm, Balken-Diagramm, Trend- 
Darstellung und Break-even-Point. Zugunsten der höheren 
Auflösung und großzügigerer Beschriftung erfolgt die 
Bildschirm-Ausgabe im Modus 2. Durch die verwendeten 
Farbkombinationen eignet sich das Programm für den Einsatz 
sowohl auf einem Farb- als auch auf einem Grün-Monitor. 
Anwendungen für das Programm finden sich nicht nur im pri- 
vaten Bereich: auch Kleinbetrieben und Selbständigen kann 
es ein wertvolles Hilfsmittel für die Planung sein, da es auto- 
matisch aus den Daten vergangener Zeiträume Trends für die 
nähere Zukunft berechnet. Stellt man zwei verschiedene 
Daten einander gegenüber, lassen sich beispielsweise 
Kosten und Umsätze miteinander vergleichen. Beispiele für 
die Bildschirm-Darstellung von Balken- und Trend- 
Diagramm finden Sie in Bild 1 und 2. Dabei wird auch noch 
zwischen mehreren Produkten und Kostenarten unterschie- 
den. (Klaus Eschemann/ja) 
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Bild 1. Umsätze zweier Artikel als Balkendiagramm 


a E « s 


Statistik 
Computer: CPC 464/664/6128 
Checksummer: Explora 
Datenträger: Kassette/Diskette 
100 6010 915 
105 ' *#* UP Beschriften 
110 Kr RER teingabe) +"/"+zeiges+"/" 


115 


120 


125 


130 


135 
140 


145 


+hm$ (ha) +umr $ (eingabe) : ueber $=UPPER$ 
(ueber #) 

xanf=B0-anz (eingabe) :schritt=INT( (64 
O-xanf) /anz (eingabe) ) ıt#=25- (anz (ein 
gabe) /2) zwt=( (22-anz (eingabe) )#2) tan 
z (eingabe) :xend= (xanf*2) + ((anz (einga 
be)-i)*schritt) 

a=INT ( (nanf+((anz (eingabe) )*schritt) 
-schritt)/16)+INT((xanf)/B):ON pm GO 
SUB 2140, 215012140 21902140 „ASENBZU 
MODE 2:LOCATE a-INT (LEN (ueber $) /2) ‚2 
:PRINT"{CTRL %) "zueber$;" {CTRL X)" 
:PLOT 0,0:DRAWR 0,599: DRAWR 639,0:DR 
AWR 0,-399: DRAWR-639 ,„O 

FOR a=0 TO anz (eingabe)-i:READ zeits 
:MOVE (wt /2) +xanf+(schritt#*a)-(LEN(ze 
it$)#4) „20: TAG:PRINT zeit$; : NEXT: MOV 
E »anf-40,390: TAG:PRINT"D M";:MOVE x 
anf-5,400:DRAW xanf-5,40,3 

FOR a=360 TO 40 STEP -20 suk$=STR$(I 
NT((a-40)##)) 

MOVE xanf-10,a:DRAWR 8,0:MOVE 2,a+ 
6: TAG: IF LENCUk$) >4 THEN PRINT RIGHT 
#(b1$+MID$ (uk$,1,LEN(uk$) -3) ‚erli (ei 
ngabe)-3)5;"."3RIGHT$ (uk$,3); ELSE PR 
INT RIGHT$ (bl$+uk$,erll (eingabe)+((L 
EN (maxdm$ (eingabe) )-1)\4)); 
NEXT:MOVE 2,46: TAG:PRINT SPC((erllie 


ingabe)-1)+| (LEN (maxdm$ (eingabe) )-1) 
\4))5"0"5:MOVE xanf,40:DRAW nend,40: 
DRAWR_O 


MOVE 20,20: TAG: PRINT UPPER$ (zeig$(pm 
195 :RETÜRN 

> *** UP Vorschau (parabol. 
Trend) #** 
s3-0:15==0:x255=0: x2su=0: x3s=0:145=0 
33 5=0:x5=0:x25=0:x2=0:13=0:x4=0 
anz=anz (eingabe) :t=t (eingabe) 
ordan=((an 
z-1)/2)*-1 ELSE ordnz=2:ordan= (anz-1 
I*-1 

x=ordan:FOR a=1 TO anzıs=hwert 
be,start ‚a-1) ıxs=x#s:x28= (#2) 
x"2ın Sen "Senden" dissesstsinssensstns 
11 285=x285+x 25: 3 2su=x2sutnZixIsexsst 
xSıxäs=rästnä:x=«tordnz NEXT 
b=xss/x2su: c1= (x2ss- ( (n2su/anz)*ss)) 
302= (x4s- (n2su/anz)#®x2su)zIF c2=0 TH 
EN c2=1 

diff=0:diff=hwert (eingabe,start,anz- 
1)-hwert (eingabe,start,O) 
c=c1/c2:a= (ss- (x2su#c) ) /anzıx=ordan: 
FOR y=0 TO anz-i:hwert (eingabe,7,y)= 
ar (bex)+ic#tn"2) )+diff 

mh (eingabe,7,y)=(hwert (eingabe,7,y)/ 
# (eingabe) JEISINTL (SGN Chnert (eingabe 
»7,y99+1) 72) 

ir'mh teingabe,7,y)<=0 THEN mh (eingab 
e,7,y)=2 

sex tordnzı NEXT 

RETURN 


*** UP Maximal darzustelle 
nder Wert * 
unr$(eingabe)="":t=1:1F anz (eingal 
>15 THEN erll=4 ELSE erl1=5 


FOR y=x+1 TO anz (eingabe)-1 

IF _maxdm(eingabe,x) <=maxdm(eingabe,y 
’ ingabe x) maxdm(ein 
gabe,x)=maxdm (eingabe,y} :maxdm (einga 
be,y)=hı 

NEXT: NEXT: maxdm=maxdm (eingabe,O) ımax 
das=STR$ (maxdm) 

FOR a=1 TO LEN(maxdm$): IF MID$ (maxdm 
$,a,1)="+4" THEN li=arle=VAL (RIGHTS (m 
axdms,2)) ELSE IF MID$ (maxdms,a,1)=" 
-" THEN pui=a 


Listing. Umsatz, Kosten, Trends und Analysen 


1B5521 
148061 


151601 


130843 


C15101 


tBFC4]J 


128101 
L6DC21 


L48C41 


123201 
CA1A21 
[71161 
188543 
EFCA4J 


LAFB21 


t20FEI 


cC0D21 
C9CEOI 


LFOACI 


LABC&] 


[CD26] 


L9FO6I 
[51E0] 


t4E4A] 


LaFcBI 


335 
340 


345 


350 


NEXT arIF pui=0 THEN pui=li-2 

IF le THEN dm=VAL (MID$ (maxdm$ ‚pui-1, 
pui)) #10” (1i-2-pui ) +VAL (MID$ (maxdm$, 
pui+1,LEN(maxdm$)-1i+1)) smaxdm$=""ım 
axdms=STR$ (dm) : max dm$=max dms+STRINGS 
(le-(1i-pui-2) ,"0") 

IF LEN(maxdm$)-1>eril_THEN t=((LEN(m 
axdm$)-1)-er11)/3 ELSE GOTO 295 

IF INT(t)<t THEN t=INT(t)+1 

ON t GOSUB 280,285,290:t1=t#3:t=10"t 
1imaxdm=VAL (LEFT$ (maxdm$ LEN (maxdm$) 


-tt1))):G0T0 295 

umr$(eingabe)=" IN TSD DM":RETURN 
umr$(eingabe)=" IN MIO DM":RETURN 
umr$(eingabe)=" IN MRD DM":RETURN 


tteingabe)=t:erll (eingabe)=eril+1:RE 


TURN 

e *** UP Berechnen Darstell 

ungswerte ##* 

DEG: tg=TAN (62) :5w=SIN (30) ı cw=C0S (30) 

104f=40: f=maxeing (eingabe) /320: # (ein 

gabe)=f 

xanf=80-anz (eingabe) schritt=INT( (64 

Ö-xanf) /anz (eingabe) ) 

FOR x=0 TO anz (eingabe)-i:mh (eingabe 

„6,x) shwert (eingabe ‚6,x) /f (eingabe) / 

t (eingabe) :st (eingabe,x)=x#schritt+x 

anf: NEXT 

FOR sle=0_TO prokoteingabe)-i1 

FOR x=0 TO anz (eingabe 

mh=hwert (eingal 

(eingabe) ınh (eingai 

}ıNEXTENEXT+RETURN 

E *** UP Maskenaufbau 
u. 


MODE 2:BORDER 9:LOCATE 15,2:PRINT"S 
TATISTISCH E(S SPAcE)A U S 
WER TUN G":LOCATE 15,35: PRINT STR 
ING$ (45, "="):LOCATE 23,5:PRINT "Graf 
iken, Trends, Analysen" 

ft=13PLOT 9,395:FOR y=1 TO 2:RESTORE 
3005:FOR x=1 TD &:READ a,b:DRAWR a# 
#t,baft  12NEXT:ft=-12NEXT 

ft=1:PLOT 628,85:FOR y=1 TO 2:RESTOR 
E 3010+FOR x=] TD &:READ a,b:DRAWR a 
#ft ‚b#ft „S:NEXT2#t=-1: NEXT 

IF maxeing(O)=0 AND maxeing(1)=0 AND 
hm=0_THEN LOCATE 12,7:PRINT CHR$(16 
4)3"(2 SPACEIKlaus Eschemann Am Turm 
sberg 342 SPACEIS300 Braunschweig" 


RETURN 

3 *** UP Berechnung und Dars 
tellung Kuchen ##* 

CLS: ueber $=UPPER$ (umko$ (eingabe) +"/" 
+zeige$+"/"+hm$ (hm) ) :LOCATE 40-INT (L 
EN (ueber $) /2) „1:PRINT "{CTRL X) "jue 
ber$;" {CTRL X)": IF kusum(eingabe) T 
HEN 410 

1max=MAX (1 


(LEN (maxdm$ (eingabe) )-3)) 
:FOR a=0 TO prokoteingabe) -1:kusutx) 
=0: FOR b=0 TD anz (eing 

kusu (a) =kusu (a) +hwert (eingabe,a,b)/1 
0”1max : NEXT: kusum (eingabe) =kusum (ein 
gabe) +kusu (a) : NEXT 

kuda (eingabe,0)=(360/kusum(eingabe) ) 
*kusu (0) 

FÜR ari_TO prokoeingabe) skuda (einga 
be,a)= (360/kusum (eingabe) )* (kusu (a)) 
+kuda (eingabe,a-1)ı 

hx=320: hy=200: hk=180 

FOR a=0 TO prokoteingabe)-i:xw(a)=hk 
*COS (kuda (eingabe ,a) }+hxıyw (a) =hk#SI 
N(kuda (eingabe,a) }+hyıxab (atl)=xn (a) 
tyab(atl)=yw(a)ıIF xab(a)>400 THEN x 
ab (a) =400 

NEXT: xab (0) =500: yab (0) =400 

DEG:FOR a=0 TO 359:PLOT hk#COS(a)+hx 
„hk#SIN(a)+hyı NEXT a 

Hrproko (eingabe) irn) mn) 

FOR a=0 TO proko(eingabe)-1:PLOT hx, 
hysDRAW xw(a) ‚yw(a)sMOVE xw(a)+((xab 
Ka) nn ta)3 721 50 ymtar + iyabca 
33/2) +15: TAGPRINT prokas (eingabe);a 
+15 NEXT 

RETURN 


**#+ UP Darstellung Balken-D 
iagramm #** 

t=t (eingabe) sanz=anz (eingabe) :FOR x= 
0 TO anz-i1:mh=mh (eingabe,0,x) 
FOR y=0 TO mh-2 STEP 2:MÖVE st (einga 
be,x) „off+y:DRAWR wt ,O,1:NEXT y 

FOR k=y TO y+tf*sw STEP 2:MOVE st (ei 
ngabe,x)+(k-y)#tg,off+k+1:DRAWR wt,O 
„S:DRÄWR O,k#-1:NEXT k 

F: ***-Saeule aufstocken- 
wu. 

IF proko(eingabe)<2 THEN 505 

FOR sle=1 TO prokoleingabe)-1 

FOR ynh+2 TO ahtmh (eingabe,sie,x)-1 
STEP 2 

MOVE st teingabe,x) ‚off+y:DRAWR wt,O 


LAF9CI 


113961 
LOogAaI 
L79E8] 


L73A4] 
CB8B8] 
CFOB&] 
tB2AAI 
cC1D003 


L77C83 


LASF4] 
LoD4A] 


L260E1 
LATZEA] 
10398] 
151901 


EFSECI 


L70F41 


11434] 


[D78E1 


Ei91A] 
LCC321 


181221 


tEIFCI 


LDA4FEI 


LES901 


L&4EE1 


LAS5601 
L9C803 


LSDF21 
CCB10] 


[97361 
CBEAAI 


18736] 
CAO36] 


13340] 
EFBIEI 
CA47AI 


CB9B0] 
CBC10] 
LFES6] 
L&BF6] 


TEA441 


Ei: 


590 


595 
600 
605 
610 


615 
620 


625 
630 
635 


640 


645 
650 


655 
660 
665 
670 
675 


680 


‚3:DRAWR tfrcn,tfren,2 

NEXT yı IF sle=prakoleingabe)-1 THE 
N 495 
FOR key TO y+tf#sw STEP 2 

MOVE st (eingabe ‚x)+(k-y)xtg,offtk+ 
(mh (eingabe,sle-1,x)+mh (eingabe,sie 
‚x)) MOD 2) :DRAWR wt „0,3: DRAWR 
ah)#-1 
NEXT k 
MOVE st (eingabe,x) ‚off+y:DRAWR wt,O, 
2 
mh=y:NEXT sle:FOR k=y TO y+tf#sw STE 
P_2:MOVE st (eingabe ‚x)+(k-y) *tg,off*+ 
k+2: DRAWR wt „0,5: DRÄWR O,mh#-1: NEXT 
MOVE st (eingabe,x) ‚off+mli(eingabe,O, 
x) :DRAWR wt ,O„2INEXT x:RETURN 

*4*’UP Darstellung Trend,B 

erechnung geometr. Trend #** 
{7% (eingabe)  anzranz (eingabe) ; Imax-H 
AX (1, (LEN (maxdm$ (eingabe) )-3)) 
FOR x=1 TO anz-i 
MOVE st (eingabe ,x-1)+wt/2) ‚off+(mht 
eingabe ‚pro,x-1)/f)ıDRAW st leingabe, 
x)+(wt/2) ‚off+ (mh teingabe ,pro,x)/#)} 
NEXT x:MOVE xanf „off+ mh (eingabe,pro 
„09 /#) :DRAWR we/2,0 


diff=ATN{schritt/ ((mhleingabe,pro,an 
2-1) /#)- (mh (eingabe,pra,anz-2) /#) +1) 
):MOVE st (eingabe,anz-1)+(nt/2) joff+ 
{mh teingabe pra,anz-12/4) 

DRAW »end ‚MAX (of f+3,0ff+ (mh (eingabe, 
pro,anz-1}/f)+((xend-st (eingabe,anz- 
1) )#COS (di FF) SEN (di ff) )) 

tranz=anzı IF trvor THEN 585 

FOR x=0 TO anz-i:IF hwert (eingabe,pr 
0,x)<3 THEN hmada (pro,x)=litranz=tra 
n2-1:60T0 560 

hmadn (pro ,x)=hwert (eingabe,pro,x)/10 
A1maxs 

NEXT x 

FOR x=0 TO anz-i 

dm=hmadn (pro,x+1) shmadm (pro,x) ıhmadm 
(pro,x+1)=dm: NEXT x:trend= ({(hmadm (p 
ro,anz-1)“(1/tranz))/(f (eingabe)*f)) 
7£)*10”1max 

MOVE st (eingabe,0) ‚off+mh (eingabe,pr 
0,0) /#:DRAW st (eingabe ,anz-1)+wt „off 
+1 hmadı (pro, anz-1)* (1/tranz))/U te 
ingabe) *#))/t)#10" max 

MOVE_XPOS ‚YPOS+6: TAG: PRINT ">" 3 MOVE 
XPOS-40. YPOS+ (20% (-1+ (2#eingabe)))s 
TAG:PRINT INT (trend*(# (eingabe) ##)); 
:60T0 590 

Yp=YPOS-offzMOVE XPOS-100 ,YPOS+(60%( 
-1+(2*eingabe) )) : TABzPRINT"——- >" 1 PR 
INT USING"HWAHAR" ;yp* (#%*# (eingabe)); 


MOVE st (eingabe,0)+8,30+ mh (eingabe 
pro,0)/f)+(40%eingabe) : TAG: IF wbep=7 
THEN PRINT"Vorschau ";j:IF start=6 T 
HEN PRINT umko$ (eingabe);" Total";:G 
0TO 600 ELSE PRINT proko$eingabe) ;w 
3360T0 600 

IF start=& THEN PRINT umko$ (eingal 
j, Total"; ELSE PRINT prokos(eingabe 
zw; 

nbep=0:pro=0:start=0:RETURN 

2 *** UP Darstellung BEP 


yo 


u. 
anz=anz (eingabe) :t=1: IF t(1-eingabe) 
>t (eingabe) THEN t=t (1-eingabe) 

FOR x=1 TO anz-1 

MOVE st (eingabe,x-1)+(wt/2) ‚(mh teing 
abe ‚ubep,x-1) /#) /t+off 

DRAW st (eingabe,x)+(wt/2) ‚mh (eingabe 
„ubep ‚x? /f/t+0fF: NEXT 

MOVE St (eingabe,0) ‚mh (eingabe,wbep,O 
) /# /t+0f# : DRAWR wt 72,0 
diff=ATNschritt/ ( (mh (eingal 
nz-1) /uf (eingabe) )- (mh (eingabe,ubep, 
anz-2) /uf (eingabe)))):MOVE st (eingab 
e,anz-1)+(wt/2) ‚mh (eingabe ‚wbep ,anz- 
13 /uf (eingabe) +off 

DRAW xend ‚MAX (off+2, (mh teingabe ‚wbep 
„anz-1) /uf (eingabe) }+ ((Hend” st (einge 
be,anz-1)) COS (di ##) #SGN (di ##) )+off) 


RETURN 
g *+* Steuerung Balken-Diag 

ramm + 

CLS:#=f (eingabe) :GOSUB 105:G0SUB 435 


GOSUB 2285: IF spei THEN GOSUB 2095 
GOTD 1005 
? *** Steuerung Trend *#*#* 


marg=0:#=feingabe):IF trvor THEN 70 
5 

%=start:begr=mh (eingabe,x,O) FOR a=1 
TO anz-i:IF mhleingabe,x,a)>begr TH 


[66281 


LFEFO] 
[S80E] 


183943 
LC30E] 


LAE94 


La43A41 
LoACAI 
125561 


LE32CI 
ECASCI 


CC4B8J 
LO7BEI 


CAs101 


CBSBE] 
131541 
LO1F4J 
109143 


C1C24] 
[86603 


CoDFAI 


LEBD&] 


LD2F81 


117323 


LE7BA] 
LA4BEEI 
LE4701 
L6BFEI 


CB2E2] 
[08663 


107881 
C0D58] 
EDBC41 


tE24C1 


L789A] 
tB23E] 


EDSB81 
LS7CEI 
L604C1 
123003 
CBFFEI 


L44CC3 


EN begr=mh (eingabe,x,a) 
NEXT: mar g=INT (240/begr #10) /10: #=INT( 
(# (eingabe) /marg)#10)/10: IF INTLFI<H 
THEN #=#+(0.5- (#-INT(#))) 

+=MAX (1,#) 

GOSUB_1ÖS:pro=start: #=f/# (eingabe) :G 
OSUB S10:IF spei THEN GOSUB 2095 
CALL &BB18:start=0:6070 1005 

2 *#* Steuerung Trend Vorsc 
hau ###* 

Pro=7: ueber $=UPPER$ (umko$ (eingabe) +" 
VORSCHAU "+hm& (hm) +umr$ (eingabe) ) 
begr=mh (eingabe,7,0):FOR a=i TO anz- 
1:IF mhteingabe,7,a)>begr THEN begr= 
mh teingabe, 7,a) 

NEXT: marg=INT (240/begr #10) /10: #=INT( 
(f (eingabe) /marg)»10) /10: IF INTAFICE 
THEN #=f+(0.5- (#-INT(#))) 

#=MAX 1,8) 

GOSUB 115: 4=#/# (eingabe) :G0SUB 510: 1 
F spei THEN GOSUB 2095 
trvor=0:start=0:CALL &BB18:60T0 1005 


? *** Steuerung Break-eve 
n-point ws 
CL 5: maxdn=maxdn (0,0) 1eingaberds #=4 (0 
}EIE maxdm (1,0) >maxdm THEN eingabe=i 
ıf= 
IF maxdm(eingabe,0) /maxdm(1-eingabe, 
0) >30 THEN MODE 2:LOCATE 10,12: PRINT 
"Gleichzeitige Darstellung der ":LOCA 
TE 10,14: PRINT"gewuenschten Umsatz- 
und Kosten-Werte ist nicht moeglich! 
":LOCATE 10,24:PRINT"Bitte Taste dru 
ecken": 6070 '895 
IF trvor THEN GOSUB 155:eingabe=1-ei 
ngabe:GOSUB 155:60TD 790 
5 ***-Analyse bep-#** 
* 
*=start:begr=mh (eingabe,x,O):FOR a=1 
TO anz-1:IF mh(eingabe,x,a)>begr TH 
EN begr=mh (eingabe,x ,a) 
NEXTe mar gS260/begriif marg>i THEN fr 
# (singabe) /marg: #=MAX (ROUND (#) „INT CF 
+0. 
ueber $=UPPER$ ("analyse/"+zeige$+"/"+ 
hm$ (hm) +umr $) :GOSUB 105: nbep=start 
£5#7# teingabe) auf (eingabe)=FıEuEUB & 
eingabe=1-eingabe: #=f* (# (1-eingabe) / 
# (eingabe) ) zuf (eingabe)=f: IF t(i-ein 
gabe) >t (eingabe) THEN uf (eingabe)=uf 
teingabe)#(t (1-eingabe) /t (eingabe) ) 
GOSUB &05:60T0 820 
2 *#*-Vorschau bep-* 
.r 
maxdin=mh (0,7 ,anz-1) zeingabe=0: #=# (0) 
11€ aht1,7,0)>maxdm THEN eingabe=lıt 
begr=mh (eingabe,7,0): FÜR a=i TO anz- 
AnTr mh (eingebe, 7,a) >egr THEN bagr= 
mh eingabe, 7,a) 
NEXT: marg=INT (begr /300#10+0.5) /101#= 
MAX (INT (# teingabe) *marg) +1,1) 
ueber $=UPPER$ ("VORSCHAU/ "+Zeiges+"/" 
+hm& (hm) +umr$ (eingabe) ) GOSUB 115 
#=#/# (eingabe) :uf leingabe)=f:G0SUB & 
05: eingabe= =## (# (l-eingab 
e) /# (eingabı bei=fzIF t1 
ngabe) t(eingabe) THEN uf (eingab 
=uf (eingabe) # (t (1-eingabe) /t (eingabe 


») 
GOSUB 605 
. “r-graf. Ermittlung 
bep-* 

IF mh (0 ‚wbep 0) /uf (0) >nh (1 ,wbep,0)/u 
#11) AND mh (O „nbep,anz-1) /uf (0) Imh(1 
„wbep ‚anz-1)/uf (1) THEN 870 
vorzei=1:FÜR y=0 TO anz (eingabe)-i:d 
i##=INT (mh (1 ‚wbep ,y) /uf (1) )- (mh (O,m 
bep,y) /uf (0))) 

IF SGN(diff) <> vorzei AND anzs=0 TH 


@FSABS (mh (1 nben sanze) 


i 

hr TUnben serie 7uf(1)))/s 

chrittıstg=( (mh (O,nbep ‚anzs) /uf (0) )- 

(mh (0 ,nbep ‚anzs-1] /uf (0) /schritt 

spt=0:sp=0:FOR a=st (O,anzs-1) TO st( 

O,anzs) zspt=spt+1 

top= (mh (O,nbep ‚anzs-1) /uf (0) )+(stg#s 

pt) ıdown= {mh (1 ‚nbep ‚anzs-1) /uf (1))-( 

get#spt) Habst=donn Top 

F abst<=0 AND sp=0 THEN sp=spt 

NEXT a:beph=wt/2+sp+st (O,anzs-1)bep 

vzoff* mh (0 ,nbep ‚anzs=1) Juf (0) )+ (ap® 

s 

FOR a=0 TO 1:MOVE st (a,a)+8,0ff+((mh 

(a,nbep,a) /uf (a))-10)+130#a)ı IF wbep 
THEN TAG:PRINT "Vorschau "3 

IF start=& THEN TAG:PRINT umkos(a)5;" 


LF7341 
[23403 
C18B81 


L439A1 
[AB681 


LA352] 
L47D2] 


[78721 


C1D2C3 
[34861 
L499C] 
CCC401 


[B&2E) 


cc1r4] 


L6F10] 
[9CD4] 
LISFCI 


103303 


LFC9BI 
11692] 
199841 


L7EFEI 
C155A3 


LCIFEI 


L7A38J 


189681 
L6CDAI 
LTEAOEI 


L9F6CI 
LA9FAI 
1570E] 
LF2B21 
LASE4I 


1B1263 
LESS61 


CABOBI 


tec9B1 


LB8SF8] 
LE7121 


L71FEI 


LF77EI 


935 


1000 
1005 
1010 


1015 


1020 
1025 


1030 
1035 


Total";:G0T0 885 
TAGEPRINT proko$ (a) zw; 

NEXT:IF beph=0 THEN MÖVE »end-150,36 
: TAG: PRINT"Kein bep vorhanden"; 16070 
PLOT beph-25,bepv+50: TAGıPRINT INT(( 
(bepv-40) #f (eingabe) *uf (eingabe) )) 5: 

beph,bepv:DRAW beph,40 

wbep=0: trvor=0: start=0: anzs=0: sp=0:b 
eph=O:bepv=0: IF spei THEN GOSUB 2095 


CALL &BB18:60T0 1005 
z *** Steuerung Kuchen-Dia 
Iramm wer 

OSUB S70:CALL &BBIB:IF spei THEN GO 
SUB 2095:60T0 1005 ELSE GOTO 1005 

x ** Anfangs-Vereinbaru 
ngen #** 


DIM hwert (1,7,23) ‚maxdm(1,25) ‚hmadm( 
6,23) ‚kuda(1,5)bl$="(& SPACE} " zumko 
shms( 
1 i Balkend 
iagramm":hm$ (3)="Trend"ihm$ (4)="Brea 
k-even-point" 
proko$ (0)="Produkt”":proko$ (1)="Koste 
nart":proko$ (2)="Produkte" ıproko$# (3) 
="Kostenarten":DIM mh(1,7,23) ,st(1,2 
3):DEFINT e,0,p,y 
zei$(1)="Jahre‘ ei$(2)="Jahr"szeigs 
(2)="Monat":zei$(3)="Monatı zeis(ä) 
="Monat":zeig$(4)="Woche"izeis(SI="W 
ochen":zei$(&) #5 (6)="Taı 
":zei$(7) 7 STEP 
9% (a)=MID$ (zei$(a),1,LEN(zei$(a) 
1) 2NEXT 
POKE &BDEE ‚uC9 
® “Hauptmenu 
e un. 
hie 335sLOCATE 72,2:PRINT FRE 
LOCATE 15,10:PRINT"Kuchendi agramm-D 
a] SPACE}======)(3 SPACE} 
LOCATE 15,12:PRINT"Balkendiagramm-D 
Be TUngTe SPACE} ======){3 SPACE} 
LOCATE 15,14: PRINT"Trend-Darstellun 
g9{17 SPACE}======>(3 SPACEIS" 
LOCATE 15,16:PRINT"Break-even-point 
BEE elLLUngEe SPACE}I======>(3 SPAC 
LOCATE 15,18:PRINT"E N D E{27 SPACE 
}j=e=====)(5 SPACEIE" 
LOCATE 15,23:PRINT"I H R E{4 SPACE} 
WA HL{4 SPACEIB I T T EC& SPACE}! 
":LOCATE 59,23: PRINT"(2 SPACEI" 
ATE 59,23: LINE INPUT a$:a=4:50 
265: IF fehler AND UPPER$(a$)<>" 
HEN fehler=0: 
IF UPPER$(a$) 
ES:END 
hm=VAL (a$) tuebers="" 
ON hm GOTD 1060,1135,1210,1310 
ig *** Untermenue Kuchen-D 
iagranm #** 
CLS:60SUB 335 
LOCATE 15,8: PRINT"Kuchen-Diagramm": 
LOCATE 15,9:PRINT STRING$(15 ) 
LOCATE 15 EI NTRELTEERTE e Umsatz{i 
9 SPACE} >t4 SPACEII" 
IF maxeing(0O) THEN LOCATE 15,11:PRI 
NT"Anseheı 
LOCATE 15,13: PRINT"Ein: 
97 SPACEI---->(4 SPACEI2" 
IF maxeing(1) THEN LOCATE 15,13:PRI 
NT"Ansehen" 
LOCATE 15, 15:PRINT"NEU-EINGABE (KOR 
REKTUR) (10 SPACEI---—>(4 SPACEIS" 
LOCATE 15,17: PRINT"HAUPTMENUE {23 SP 
ACEI--——->{4 SPACEIH" 
LOCATE 15,23:PRINT"I h r et4 SPACE} 
Wah 1{4 SPACEIB i t t et5 SPACE}! 
"ıLOCATE 57,23: PRINT"(2 SPACE) "LOC 
ATE 57,23:LINE INPUT a$ra=S:ıGOSUB 2 
aan fehler THEN fehler=0:60T0 11 


IF UPPER$(a$)="H" THEN 1005 
um=VAL (a$) IF um=3 THEN 2005 
eingabe=um-i: IF maxeing (eingabe) >1 
AND prokateingabe) >1 THEN 985 

IF maxeing(eingabe) THEN MODE 2::L0 
CATE 5,12:PRINT"Fuer Kuchen-Diagram 
m "zumko$ (eingabe);"-Werte fuer min 
destens 2 "iprokos (eingaber2)}” ein 
geben! ":LOCÄTE 50,24: PRINT"Weiter d 
urch Tastendruck"iCALL &BB18:G0T0 1 


e Kostenti 


Listing. Umsatz, Kosten, Trends und Analysen 
(Fortsetzung) 


£L82DC]J 
[9CE2I 


[33303 
13434] 
120343 
139C2] 
L6B20] 


TOAAEI 
C10D01 


CALECI 


1B464] 


10938] 
CFD28] 


C1B401 
LD7DEI 


EBESEI 


LA17CI 
100961 


L9B1AJ 
TAADEI 


[DO641 
LA&SAI 
[634E] 
[261E] 


ECD46] 
LAE7CI 


1[C2B21 
LBF221 
t9B1C1 
L420A1 
118241 
179C8] 
[SECA] 


143461 
C2F341 
CASS58] 


LFAC6I 


s0TO 1445 
’ *** Untermenue Balken-D 
iagramm **%* 

CLS:G0SUB 335 

LOCATE 15,8: PRINT"Balken-Diagramn": 
LOCATE 15,9: PRINT STRING$ (15,"-") 
LOCATE ER ya Umsatz {i 
9 SPACE} >14 SPACEIT" 

IF maxeing(0) THEN LOCATE 15,11:PRI 
NT"Ansehen 

LOCATE 15,13: PRINT"Eingabe Kosten(i 
9 SPACEI-I-->14 SPACEI2" 

IF maxeing(i1) THEN LOCATE 15,13: PRI 
NT"Ansehen" 

LOCATE 15,15: PRINT"NEU-EINGABE (KOR 
REKTUR) (16 SPACE} >14 SPACEIS" 
LOCATE 15,17: PRINT"HAUPTMENUE (23 SP 
ACE) >{4_SPACEIH 

LOCATE 15,23: PRINT"I hr e(4 SPACE} 
Wa h 1c4’SPACEIB i t t e(5 SPACE)! 
":LOCATE 57,23: PRINT" (2 SPACE)" LOC 
ATE 57,23:LINE INPUT a$ra=S:GOSUB 2 
265: IF fehler THEN fehler=0:60T0 11 


75 

IF UPPER$(a$)="H" THEN 1005 

um=VAL (a$) 

IF um=3 THEN 2005 

eingabe=um-1: IF maxeing(eingabe) TH 
EN 650 
GOTO 1445 


*** Untermenue Trend #** 


CLS: GOSUB 335 
LOCATE 15,7: PRINT"Trend-Darstellun: 
"zLOCATE 15,8: PRINT STRING$(17,"-" 


LOCATE 15,9: PRINT"Auswerten Umsatz 
Periodeti2 SPACE} >14 SPACEI1" 


IF m ing(O)=0 THEN LOCATE 15,9:PR 
INT"Eingabe({2 SPACE)" 8 
LOCATE 15,11:PRINT"Auswerten Kosten 


Periodeti2 SPACEI---— >14 SPACEIZ" 
IF maxeing(1)=0 THEN LOCATE 15,11:P 
RINT"Eingabe(2 SPACEI" 


LOCATE 15,13:PRINT"Vorschau Umsatz 
folgende Periodet4 SPACEI--—— >14 SP 
ACEIS" 

IF maxeing(0O)=0 THEN LOCATE 15,13:P 


RINT SPC (32) 

LOCATE 15,15:PRINT"Vorschau Kosten 
+olgende Periodef4 SPACEI---->{4 SP 
ACEI4" 

IF maxeingt1)=0 THEN LOCATE 15,15:P 
RINT SPC(32) 

LOCATE 15,17:PRINT"NEU-EINGABE (KOR 
REKTUR) (13 SPACEI---->(4 SPACEIS" 
LOCATE 15,19: PRINT"HAUPTMENUE (26 SP 
ACEI-—-—->{4 SPACEIH" 

LOCATE 15,23: PRINT"I hr e{4 SPACE} 
Wah 1C4 SPACEIB i t t e(5 SPACE)! 
":LOCATE 60,23: PRINT"(2 SPACE}":LOC 
ATE 60,23:LINE INPUT a$:a=5:GOSUB 2 
265: IF fehler THEN fehler=0:6010 12 
70 

IF UPPER$(a$)="H" THEN 1005 
um=VAL(a$)z IF (um=3 OR um=4) THEN t 
rvor=1: IF maxeing{um-3)=0 THEN fehl 
=um-2:G60SUB 2105: fehl=0:trvor=0:G0T 
0_1005 

IF (um=3 OR um=4) THEN trvor=i1 
abe=um-Sınbep=7:G0T0 1365 

IF um=5 THEN 2005 


ing 


eingabe=um-1: IF maxeing(eingabe) TH 
EN 1365 

G0TO 1445 

2 *** Untermenue Break-eve 


n-point ##* 
rd 2105: IF fehl THEN fehl=0:G0T0 
CLS:G0SUB 335 

LOCATE 15,9: PRINT"Break-even-po: 
»LOCATE 18,10: PRINT STRINGB$ (16, 


LOCATE 15,12:PRINT"Auswerten vergan 
jene Periode{il SPACEI--——>{4 SPÄCE 
1 

LOCATE 15,14:PRINT"Vorschau folgend 

e Periodet14 SPACEI---->{4 SPACEI2" 


LOCATE 15,16:PRINT"HAUPTMENUE (29 SP 
ACEI---->{4 SPACEIH' 

LOCATE 15,23:PRINT"I h r et4 SPACE} 
Wah 1{4 SPACEIB i t t e{5 SPACE}! 
“:LOCATE 63,23: PRINT"(2 SPACE}":LOC 
ATE 63,25:LINE INPUT a$ıa=2:GOSUB 2 
zes Ir fehler THEN fehler=0:60T0 13 
IF UPPER$(a$)="H" THEN 1005 
um=VALta$)zIF um=1 THEN 1365 

IF um=2 THEN trvor=1:wbep=7 

5 *** Auswahl Trend/BEP-Einz 


it" 


In) 


1BC20] 


LCA1B] 
12082] 


108841 
120281 
12010] 
149103 
13218] 
L78CE1 
154B8] 


64176] 
1733AJ 
L&0BEI 
12844] 


139603 
16814) 


[66A03 
133761 
129803 
17003 
LICFOI 
E2B36J 
196461 


L1A40] 
[85641 


102283 
LAF&CI 
[328E1 
160861 


LOFS21 
EDC441 


18440] 


LAFA4] 
L004A] 


L97CA] 
£9016] 


LIFDEI 
1[7B52] 
t2F82] 
L91CEI 
t9B5C] 


CA978] 
EAOSCI 


L7F50] 
C2F401 
LE270] 
159C81 


1365 
1370 


1375 
1380 


1385 


1390 


1395 
1400 


1405 


1410 


1415 


1420 
1425 


1430 


1435 


1440 
1445 


1450 
1455 
1460 
1465 
1470 


1475 
1480 


1485 
1490 


1495 
1500 


1505 


1510 
1515 


1520 
1525 


1530 


1535 
1540 


1545 


el/Gesamt x** 
CLS:60SUB S35:LOCATE 15,9: 1 
HEN PRINT umko$ (eingabe) 3" 
IF trvor THEN PRINT"Vorscha: 
PRINT zeige$; 
PRINT " "shms (hm) 
LOCATE 15,10:PRINT STRING$ (LEN (umko 
*(eingabe) )*SGN{hm MOD 4) +LEN (hm& (h 
m) )+1+MAX (Bxtrvor ‚LEN (zeige$) )+SGN( 
hm MOD 4) ,"-") 
LOCATE 15,12:PRINT"Auswahl : "z:IF 
han THEN PRINT, prokos (eingebe) STR 
ING$ ( 10-LEN (proko$ (eingabe) ) pn 
(T3S0N (pr ako (eingabe) 3} "bin" proko 
{aingabe)  ") (7 SPACE)" 1G0T0 1595 
PRINT"Produkt-Kostenart ("3SGN(prok 
oteingabe) )} "bis" ;prokoteingabe) ;") 


PRINT"<2 SPACEI---->13 SPACEII 
LOCATE 15,14: PRINT "Gesamt (2 SPACE) 
IF hm=3_THEN PRINT umkos(einga 
"125 SPACE} >13 SPACE! ELS 
rodukte-Kostenarten 
>13 SPACE}I 
LOCATE_ 15,16:PRINT"Untermenue 
(hm) ;STRING$ (20-LEN (hm# (hm) ) 
10 SPACEI--—->13 SPACEIS" 
LOCATE 15,25: PRINT"I h r et4 SPACE} 
Wah 14 SPACEIB i t t e(5 SPACEI! 
":LOCATE 64,23: PRINT"{2 SPACEI":LODC 
ATE 64,23:LINE INPUT a$:a=SıGOSUB 2 
265: IF fehler THEN fehler=0:60T0 14 
10 


w=VAL(a$)s IF w=3 THEN ON hm GOTO 10 
60,1135,1210,1310 

IF'w=2 THEN Start=6:60T0 1435 
LOCATE 15,23: PRINT STRING$(50," "): 
LOCATE 15 eo ngebe "If hi 
=3 THEN PRINT proko$ (eingabe); " 
ELSE PRINT"Produkt-Kostenart ?" 
LOCATE &4,23:LINE INPUT a$:a=proko( 
ein: abe) : GOSUB 2265: IF fehler THEN 
fehler=0:G60T0 1430 ELSE w=VALta$)ıs 
tart=w-1 

IF trvor THEN GOSUB 155: IF hm=4 THE 
N eingabe=1-eingabe: GOSUB 155 

ON hm GOTO 1000, 1000,670,740 

. “4% Auswahl Periode #* 


hm=3 T 
ELSE 


.. 
IF maxeing (1-eingabe) 0 AND ko=0 TH 
EN prokoz=0:60T0 1580 

CLS:G0SUB S3S:LOCATE 15,8:PRINT 
ngabe "zumko$ (eingabe);" 


LOCATE 15,9:PRINT STRING$ (24, " 
LOCATE_ 15,10:PRINT"Mehrere Jahret19 
SPACE} >14 SPACE}L" 

LOCATE 15,11:PRINT"Ein Jahr{4 SPACE 
312 Monate) (9 SPACEI--——>{4 SPACE) 
2" 

LOCATE 15,12:PRINT"Mehrere Monateti 
8 SPACEI---->t4 SPACEIS" 

LOCATE 15,15:PRINT"Ein Monat(3_SPAC 
ru Wochen) {10 SPACEI--—->{4 SPACE 
LOCATE 15,14: PRINT"Mehrere Wochenti 


8 SPACE} ---->14 SPACEIS" 

LOCATE 15,15:PRINT"Eine Wochet2 SPA 
CE}(7 Tage) (12 SPACEI--—->{4 SPACE) 
6" 

LOCATE 15,16: PRINT"Mehrere Tage{20 
SPACEI---—>{4 SPACEIT" 


LOCATE 15,17: PRINT"Untermenue ";hm$ 
(hm) ;STRING# (15-LEN (hm# (hm) ) ," ")3" 
6 SPACEI--—- >14 SPACEIG" 

LOCATE 15,23:PRINT"I h r e{4 SPACE) 
Wah 1c4’SPACEIB i t t e(5 SPACE)! 
"sLOCATE 56,23: PRINT" {2 SPACE) ":LOC 
ATE 56,25:LINE INPUT a$:a=8:G0SUB 2 
265: IF fehler THEN fehler=0:G6070 15 
05 

1F UPPER$ (a$)="H" THEN 1005 

pm=VAL (as): IF pm=8 THEN ON hm GOTO 
1060,1135,1210,1310 

zeiges=zel$ (pm) 

IF pm MOD 2=1 THEN LOCATE 15,23:PRI 
NT STRING$ (55, :LOCATE 15,22:PRI 
NT "Ist die Anzahl der ";zei$(pm);" 
bekannt(2 SPACEI?":LOCATE 15,24:PR 
INT"Eingabe: ANZAHL ";UPPER$ (zei$(p 
m))5"(max 24) ODER ENTER(3 SPACE)"; 
INE INPUT a$:IF as="" THEN 1540 
'24:GOSUB 2265: IF fehler THEN fehl 
=0:60T0 1525 

anz=VAL (a$) sanz (eingabe)=anz 
prokoz=0:LOCATE 15,23: PRINT STRINGS 
150," ")sLOCATE 15,24:PRINT STRING$ 
(45," "):LOCATE 15,2 'RINT"Ist die 
Anzahl _der ";proka$(eingabe+2);" b 
ekannt ?" 

LOCATE 15,24: PRINT"Eingabe: ANZAHL 


CO8D21 
12D861 


165401 
[2BB6J 


LO96E]1 


188621 


1D168] 
[5BOCI 


146481 


L9FA2I 


L294E] 


192803 
129081 


Lo1F4J 


L6A2CI 


LODBEI 
LE8641 


[645C] 
1224C1 
L390RJ 
CAAaBI 
182361 


186001 
C70F41 


LAsAOI 
tDCFEI 


[36E2] 
CD8021 


LAEGEI 


CDA701 
C8E341 


1DC243 
t71EEI 


E10E81 


194481 
T7BA4] 


ESFAAI 


1550 


1555 
1560 


1565 
1570 


1575 


1580 
1585 


1590 
1595 
1600 


1605 
1610 
2000 
2005 


2010 


2015 
2020 
2025 
2030 
2035 


2070 
2075 


max 6) ODER ENTER(7 SPÄCEI"z:LINE I 
NPUT asıpraka=VAL (as) s IF as="" THEN 
a=6:60SUB 2265: IF fehler THEN fehle 
r=0:60T0 1545 

proko=VAL(a$): IF proko THEN 1585 

2 ***-Anzahl Produkte/Kost 
enarten unbekannt-x#** 

proko=0:0N pm GOSUR 2140,2150,2140, 
2155,2140,2160,2140,2165 
anzz=0:CLS:G0SÜB 2210: prokoz=prokoz 
+1: IF hwert (eingabe ‚prokoz-1,0)>1 A 
ND prokoz<& THEN 1570 
prako=prakaz-1-INT(prokoz/7):G0T0 1 


5 *#*-Anzahl Produkte/Kos 
tenarten bekannt-x#* 

GOSUB 2170:prokoz=prokoz+1: IF proko 
z<proko THEN 1590 

IF proko(i-eingabe) >proko THEN 1590 


GOSUB 215: maxdn$=STR$ (maxdm) :dm= INT 
(maxdm/ 16) : dm$=STR$ (dm) : dm= ( INT (dm/ 
10% (LEN (dm$) -2) )#2) #10” (LEN (dm$) -2) 
tmaxdm=dm#16:maxeing (eingabe) =INT(( 
(maxdn+ (maxdm (ein. 0)7€))/2/16/1 
0)+1)*10*16: maxdn$ (eingabe) =STR# (ma 
xeing (eingabe)) 
goko (eingabe) =prakosGOSUB, 300 

hm G0TO 905,650,1365,1365 
H *** UP Neu-Eingabe/Korre 
ktur wur 
IF naxeing(O)=O AND maxeingt1}=o TH 
EN ON hm 60T0 1060,1135,1210,1310 
CLS:G0SUB 335:LOCATE 15,8: PRINT"Neu 
-Eingabe/Korrektur":LOCATE 15,9:PRI 
NT STRINGS (21 ,"-") 
LOCATE 15,10:PRINT"Neu-Eingabe tata 
116 SPACE) >14 SPACE} 
LOCATE 15,12: PRINT"Neu-Eingabe Umsa 
tz (15 SPACEI--——>t4 SPACEI2" 
LOCATE 15,14: PRINT"Neu-Eingabe Kost 
en{15 SPALEI---->(4 SPACEIS" 
LOCATE 15,16:PRINT"Einzelkorrekturt 


18 SPACEI--—->(4 SPACEIA" 
LOCATE 15,18: PRINT"Untermenue ";hms 
hm) ;SPC (22-LEN (hs (hm) )) 5 "-—— 14 


SPACEIS" 

LOCATE 15,23: PRINT"I hr e{4 SPACEI 
Wah 14 SPACEIB i t t e(5 SPACE)! 
"zLOCATE 57,23: PRINT" (2 SPACE” :LOC 
ATE 57,2S:LINE INPUT a$ıa=5:GOSUB 2 
265: IF fehler THEN fehler=0:60T0 20 
40 


ko=VAL(a$): IF ko=S THEN 2085 
IF_ko<>4_THEN 2075 

LOCATE 15,23: PRINT STRING$(60," "): 
LOCATE 15,23: PRINT"Umsatz (1) oder 
Kosten (2) ?":LOCATE 57,23: INPUT"", 
a$:a=2:G0SUB 2265: IF fehler THEN # 
hier=0:60T0 2055 ELSE ko=VAL(a$) ei 
ngabe=ko-1 

LÖCATE 15,23:PRINT STRING$(60," "): 
ÜDcATE 15,25: PRINT; proko$ (eingabe) 
" - Nummer und ";zeig$(pm)}" ?(2 
ACEI (a,b)" 

LOCATE "57 ,23: INPUT" * ‚p,z:LOCATE 15, 
23: PRINT STRING$(60," "):LOCATE 15, 
23: PRINT"Neuer Wert fuer "Iprokos(e 
ingabe) ;p;",";ze: m) 32; "(2 SPACE 
IrRrLochte 37,25: InpbT*"hwert (eing 
abe,p-1,2-1) 

GOSUB S60:G0SUB 215:60T0 2085 

IF ko=3 OR ko=2 THEN eingabe=ko-2:k 
usum (eingabe) -O: maxeing (eingabe) 0: 
teingabe)=1:FOR y=0 TO 7:FÜR a=0 T 
0 anz (eingabe)-I:hwert (eingabe,y,a) 
=O: mh (eingabe ‚y,a)=0:maxdm(eingabe, 
a)=0: NEXT:NEXT:GOTO 1445 

CLEAR 

ON hm GOTO 1060,1135,1210,1310 

: “**"UP Bild abspeichern 


u. 

c#="!"4umko$ (eingabe) :POKE &B8D1 „25 

Zu PoKE %B8D2,21:SAVE c$,B,&C000,&40 
&BB18: RETURN 


spei=0:CALL 

5 “** UP Falschwahl #*#* 
IF maxeing(O)<=1_THEN fehl=1 ELSE I 
F maxeing(1)<=1 THEN fehl=2 

IF fehl THEN CLS ELSE GOTO 2130 
LOCATE 10,12:PRINT"Fuer ";:IF trvor 
THEN PRINT"Vorschau "3 

PRINT hm$thm);" bitte erst fehlende 
"zumko$(fehl-1);"-Werte eingeben _! 
":LOCATE &,25:PRINT"Weiter durch Ta 
stendruck":CALL &BB1B 

RETURN 
? *#* UP DATA-Zuweisung Pe 

riode #** 


136721 


[23F61 
[26CE1 


169301 
L6B321 


181081 


16956] 
EDF2AI 


C10B8] 
c8B521 
LDBDEI 


149081 
LFE1O] 
[889C3 


„134841 


137E01 


1C1521 
1274A1 
133081 
EF7B81 
TBEEEI 


[B3C4] 


13354] 
L3B5C39 
C6FB&I 


15384] 


L66AEI 


166061 
[3BEOI 


LC36C39 
EF7AZ1 
107301 
188241 
[5Ataı 
1C948] 
LAaotAl 


L1B9AJ 
[45201 


IBF623 


LFO7AI 
[B28C1 


T2AA&I 


2140 
2145 
2150 
2155 
2160 
2165 
2170 


2175 


2180 


2185 
2190 


2195 


2220 


2225 


2230 


2235 


2240 
2245 


RESTORE 3030: IF anz>O THEN lesz=anz 
:RETURN 

lesz=24: RETURN 

RESTORE 3015: lesz=12: anz=12:RETURN 
RESTORE 3020: lesz=4: anz=4: RETURN 
RESTORE 3025: lesz=7:anz=7:RETURN 
RESTORE 3030: 1lesz=24: anz=24: RETURN 
x *#* UP Input Umsatz/K 
osten #** 


ON pm GOSUB 2140,2150,2140,2155,214 

0,2160,2140,2165: anz (eingabe)=anzıc 

Li 

WINDOW#1,1,80,25,25: PRINT#1," CCTRL 

X) Kein" ;EHR$ (32+69*eingabe) ;SPC(e 

ingabe) ;umko$ (eingabe);" angefallen 

1Eingabe=11) (CTRE X) 

FOR y=0 TO anz-i 

READ_ 24: PRINT"Eingabe 

e);" fuer ";proko$ (eingabe) ;prakoz 

+1} "in DM, "zei 39 = n;ÜPPERS 

(2$)54" 2" sl INE as 

=9E+37: 2265: IF fehler THEN f 

ehler=0:6010 2190 ELSE hwert (eingab 

e,prakoz ‚y)=VAL(a$) ihwert (eingabe,& 

„Wzhwert (eingabe,&,y)*hmert (eingab 

@/prokoz ‚y) :NEXT 

IF hwert (i-eingabe,0,0)=0 AND anz(e 

ingabe)=0 THEN CLS#1IPRINT#1," (CTRL 

X} Fertige Grafik abspeichern(2 SP 

ACEI———> ETRL+A druecken! (3 SPACE} ( 

Weiter mit Tastendruck) (CTRL X":C 

ALL LBBI8 

ko=0: a=0: RETURN 

WINDOW#1 ,1,80,25,25: PRINT#1," (CTRL 

x "zeingabesleingabe);" ";zeigs(pm 

)zanzz+t1;"= 0 ? --—->Eingal 

RL X "3"CCTRL X) Eingab 
Eingabe = O CCTRL X) 


PRINT"Eingabe "jumko$(eingabe);" fu 
er ";jproko$ (eingabe) ;prokoz+15"in D 
M, "jzeigs(pm);" = "FUPPERF(ZEIE" ı 
"SprokozjanzziLINE INPUT as 

a= 9E+37:60SUB 2265: IF fehler AND V 
AL(a$)<>0 THEN fehler=0:60T0 2215 E 
LSE IF fehler THEN fehler=0 
IF VAL(a$)>0 THEN hwert (eingal 
koz ‚anzz)=VAL (a$) ıhwert (eingabe,ö, 
nzz)=hwert (eingabe,&d,anzz) +hwert (ei 
ngabe,prokoz ‚anzz):GOTO 2235 

ON _pm'GOSUB 2140,2150,2140,2155,214 
0,2160, 2140,2165:G6010' 2245 
anzz=anzz+i:ı IF anzz=lesz THEN DN pm 
GOSUB 2140,2150,2140,2155,2140,21& 
0,2140,2165 

60T0 2210 

IF hwert (1-eingabe,0,0)=0 AND anz (e 
ingabe)=0 THEN CLS#1:PRINT#1,"{CTRL 
%} Fertige Grafik abspeichernt2 SP 
ACEI---> ECTRL+A druecken! (3 SPACE} ( 
Weiter mit Tastendruck) {CTRL X)":C 
ALL SBBIG 

IF anz(eingabe)=0 THEN anz (eingabe) 
-anzz 

ko=0: a=0: RETURN 

. *** UP Ueberpruefen Inp 


unko$ (einga 


ut aus 
IF INSTR(a$,CHR#(38)) OR INSTR(a$,C 
HR$(43)) OR" INSTR(a#,CHR$(45)) OR'I 
NSTR(a$,CHR$(46)) THEN fehler=1:60T 
0 2280 

IF VAL(a$)=0 AND UPPER$(a$)<>"E" AN 
D UPPERS (a$)<>"H" THEN fehler=1 

IF VAL(a$)<0 OR VAL(a$)>a THEN fehl 
er=i 

RETURN 

° *** UP Abfrage Abspeich 
ern ax 

as=INKEYS: IF af="" THEN 2290 

IF as="(CTRL A)" THEN spei=1 

RETURN 


& “DATA 'S«r- 
BATA 620,0,3,-2,2,-3,0,-300,-2,-3,- 
DATA 3,-2,2,-3,0,-68,-2,-3,-3,-2,-& 


20,0 

Data Jan,Feb,Mar ‚Apr ‚Mai „Jun ,Jul ‚Au 
g,Sep ‚Okt ‚NoY,Dez 

DATA 1.Woche,2.Woche,3.Woche,4.Woch 
e 


DATA Montag,Dienstag,Mittwoch ‚Donne 
rstag,Freitag, Samstag Sonntag 

DATA 1,2,3,4,5,6,7,8,9,10,11,12,13, 
14,15,16,17,18,19,20,21,22,23,24 


Listing. Umsatz, Kosten, Trends und Analysen 
(Schluß) 


LO2BC1 
LFECEI 
[98941 
LA1DAI 
C48EB1 
[96A6] 


c1412] 


1D20C1 


L9DEAI 
LIFCEI 


t64ACI 


LFFCEI 


LA0A&] 
CCFAAI 


15384] 


[56661 


L6ABBI 


tDoc23 
131341 


C7AEEI 
t8socı 


LCABBI 


1587C1 
EDCAEI 


LED141 


L&AS50I 
134901 


cıcA0J 
L9F98] 


LFE4AI 
CB2FCI 
CAF&CI 
L7E8AJ 
CABF4] 
LASCoI 
127C83 
1C250] 
tEsFA] 
186221 


193881 


93 


Wenn Ihr CPC eines kann, dann ist es rechnen. 
Schließlich bedeutet das englische Wort »Compu- 
ter« nichts anderes als »Rechner«. Aber ohne ein 
komfortables Programm, wie den »Mathematiker«, 
ist es mühsam, ihn zur Mathematik zu bekehren. 


ie Bezeichnung »Taschenrechners ist eigentlich tief- 

gestapelt, da dieses Programm nicht nur alle Funk- 

tionen eines normalen programmierbaren Taschen- 
rechners beherrscht, sondern vieles darüber hinaus. 

Nach dem Starten des Programms leuchtet in der unteren 
linken Ecke des Bildschirms eine Taste« auf. Bei der hellen 
Umrandung handelt es sich um den Cursor, der sich mit den 
Cursorsteuertasten steuern läßt. Bewegt man den Cursor 
zum Beispiel auf die »Taste« mit dem Pi-Zeichen, läßt sich 
diese durch den Druck auf die Copy-Taste aktivieren. Als 
Resultat erscheint die Zahl 3,1415... auf dem Bildschirm im 
hell umrandeten Ergebnisfeld. 


Ihr Bildschirm verwandelt sich in das Bedienerfeld 


Zur Erklärung der einzelnen Tastenfunktionen finden Sie im 
folgenden jeweils die Taste, wie sie auch auf Ihrem Bildschirm 
erscheint: 


10* Berechnung der Potenz zur Basis 10. 

LOG Berechnung des Briggsschen Logarithmus. 

Det wandelt sexadezimale Zahlen in dezimale um und 
umgekehrt. 

yVx zieht aus der Zahl x die y-te Wurzel. 

x erhebt die Zahl x zur y-ten Potenz. 

x! berechnet die Fakultät. 

M- der angezeigte Wert wird vom Speicherinhalt sub- 
trahiert, bleibt selbst aber unverändert. 

TAN berechnet den Tangens der angezeigten Zahl. 

TAN" berechnet den Arcustangens der angezeigten 
Zahl. 

DEG Mit dieser Taste können Sie die Winkelmaße 


umschalten. Welches Winkelmaß gerade gültig ist, 
stellt der Computer im Ergebnisfeld durch fol- 
gende Kürzel dar: 

DEG = Altgrad 

RAD = Neugrad 

GRA = Bogenmaß 

Die trigonometrischen Funktionen berechnen ihre 
Ergebnisse dem eingestellten Winkelmaß ent- 


sprechend. 
1723 zieht die Wurzel aus der angezeigten Zahl. 
x? gibt das Quadrat der angezeigten Zahl aus. 
_R-P wandelt die angezeigte rechtwinklige Zahl in eine 
polare Zahl um. 
M+ der angezeigte Wert wird zum Speicherinhalt 


addiert, der Wert selbst bleibt unverändert. 


»Taschen«-Rechner 


cos 
cos" 
AND 


HYP 


berechnet den Cosinus der angezeigten Zahl. 
berechnet den Arcuscosinus der angezeigten 
Zahl. 

‚AND-Funktion; bei Aufruf fragt der Rechner nach 
dem zweiten Wert, der mit dem ersten zu verknüp- 
fen ist. 

berechnet den natürlichen Antilogarithmus der 
angezeigten Zahl: Die Grundzahl »e« (2,7182...) 
wird zur x-ten Potenz erhoben. 

berechnet den natürlichen Logarithmus der ange- 
zeigten Zahl. 

wandelt die angezeigte Zahl in eine rechtwinklige 
Zahl um. 


löscht den Speicherinhalt. 

berechnet den Sinus der angezeigten Zahl. 
berechnet den Arcussinus der angezeigten Zahl. 
XOR-Funktion (siehe AND) 

gibt den Kehrwert der angezeigten Zahl zurück. 
zeigt die Zahl Pl an. 

führt Prozentrechnungen durch. Um dem Rechner 
zu zeigen, was berechnet werden soll, gibt man 
einfach eine negative Zahl für die gesuchte Größe 
ein. 

zeigt den momentanen Speicherinhalt an. 
rechnet das Winkelargument, von dem angenom- 
men wird, daß es sich auf den in Funktion 10 ein- 
gestellten Modus bezieht, in den gewählten 
Modus um. 

Ein Druck dieser Taste verwandelt alle trigonome- 
trischen Funktionen in Hyperbel- oder Areafunk- 
tionen. Auf erneuten Druck erhalten die Funktio- 
nen ihre auf den Tasten angegebene Bedeutung 
zurück. 

OR-Funktion (siehe AND) 

rechnet einen Dezimalbruch in eine gemischte 
Zahl um. 

wechselt das Vorzeichen der angezeigten Zahl. 
Zinsrechnung (siehe Prozentrechnung). 

ergibt eine Zufallszahl kleiner 1 aber größer O. 
gibt die Grund-Gesamtheitsabweichung der im 
Statistikspeicher stehenden Zahlen zurück. 

gibt die Quadratsumme der im Statistikspeicher 
stehenden Zahlen aus. 

NOT-Funktion (siehe AND). 

vertauscht den angezeigten mit dem Wert im Spei- 
cher. 

berechnet das kgV (kleinstes gemeinsames Viel- 
faches) der beiden extra dafür eingegebenen Zah- 
len. 

Gibt den ggT (größten gemeinsamen Teiler) zweier 
Zahlen zurück. 

kürzt die angezeigte Zahl auf die vorgebene Zahl 
der Nachkommastellen. 

berechnet die Varianz der Zahlen im Statistikspei- 
cher. 

gibt die Summe der im Statistikspeicher stehen- 
den Zahlen zurück. 

fragt nach einem Speicher und zeigt dann die erste 
Zahl dieses Speichers an. 


frei programmierbare Funktionen 


gibt Binominalkoeffizienten zurück; sucht das k-te 
Element der n-ten Zahl. 


DD  __ 


ön-1 gibt die Häufigkeits-Standardabweichung der im 
Statistikspeicher befindlichen Daten zurück. 

n gibt die Anzahl der Daten im Statistikspeicher 
zurück. 

FA 

4 frei programmierbare Funktionen 

F7 

PRIM entscheidet, ob die angezeigte Zahl eine Primzahl 
ist. 

x gibt den arithmetischen Mittelwert der Daten im 
Statistikspeicher an. 

NEW löscht den gesamten Statistikspeicher. 

F8 

E frei programmierbare Funktionstasten 

F11 

MOD bietet die Möglichkeit, andere Darstellungsarten 
für Zahlen zu wählen (binär, hexadezimal); die 
Ergebnisse werden dann sowohl in dezimaler als 
auch in der gewählten Form im Ergebnisfeld darge- 
stellt. 

DATA dient zur Dateneingabe in den Statistikspeicher. 

DEL Korrektur der Daten im Statistikspeicher. 

Fi2 

F13 frei programmierbare Funktionen 

F14 


startet das Programm neu (ist als letzte Rettung 
gedacht, falls das Programm fehlerhaft sein sollte); 
alle Daten gehen verloren. 
Um dem Computer einen neuen Wert zu übermitteln, 
drückt man nur zweimal die ESCAPE-Taste. Der Computer 
meldet sich dann mit einem Fragezeichen und erwartet eine 
Eingabe. Zahlen größer 32768 sind binär nicht darstellbar, 
‘werden aber vom Rechner verarbeitet. 

Zur Programmierung des Taschenrechners suchen Sie 
sich eine freie Zeilennummer. Sie sollte möglichst am Ende 
‚des Programmes liegen. In diese Zeile schreiben Sie Ihre 
Funktion. Die Variable »d« beinhaltet immer den Wert, der auf 
‚dem Bildschirm zu sehen ist. Sollten Sie als Ergebnisvariable 
nicht »d« verwenden, ist nicht gewährleistet, daß die nächste 
Funktion des Programms auch richtig funktioniert (ihr fehlt ja 
‚der Wert für »d«). Die Variablen des Hauptprogramms sollten 
Sie, um Fehler zu vermeiden, nicht wiederverwenden (es sei 
‚denn, Sie wollen den Wert der Variablen in einem Unterpro- 
‚gramm einsetzen). Ist die Funktion programmiert, listen Sie 
‚die Zeile 2110 auf. Hier fügen Sie, der Nummer der Funktions- 
taste entsprechend (1 bis 15), die Zeilennummer Ihres Unter- 
‚Drogramms ein. Achten Sie darauf, daß die Position der Zei- 
Jennummer in der Zahlenkolonne mit der Nummer auf der 


REM RR 
Mathematiker 


y 
Jochen Schueler (C) 1986 
Herzagstr. 49 
REM 565® Solingen 11 
REM 44a 


CLEAR: wert=1:des=1:q=1: f=@: w=8: d=B: KE 
Y DEF 17,1,159:KEY 159,"mode Zıink 1, 
26:pen 1:ink B,@:paper 8" 

SyMi AFTER 8:S5YMBOL 138,112,136,136 
112:SYMBOL 131,128,128,128:SYMBOL 1 
2,160,160,160:SYMBOL 76,8,0,8,136,80, 
32,90) 136!SYMBOL 126,1,3,5,118,1,135Y 
35,0,0,2,48,8,4,2, 11V mmol 3,1, 

8 


„16,52,64,1 

100 MODE 1: INK @,Gr INK 1,B: INK 2,@: INK 3 
„@:BORDER @:PAPER BıPEN G:ORIGIN 8,0 
}1,638,1,4@0:MOVE 31@,48:DRAW 349,48 
J1:MOVE 32@,18:DRAW 35@,18:MOVE 5,37 
&:DRAWR 627,0: DRAWR @,-98:DRAWR -627 

„@:DRAWR @,98: WINDOW #1,2,39,2,5 


8 8 SgBsc8 5 
3 
= 


L9FDEI 


CB1BA] 


Taste übereinstimmt. Anschließend listen Sie Zeile 580 und 
fügen hier die Zeilennummer des Unterprogramms - an ent- 
sprechender Stelle in der Zahlenkolonne - ein. Diesmal 
unterscheidet sich die entsprechende Stelle von der Num- 
mer der Funktionstaste. Um die richtige Position herauszufin- 
den, müssen Sie in der Tastatur-Abbildung nachsehen, wel- 
che Nummer die von Ihnen ausgewählte Taste hat (sie sind 
von unten links nach oben rechts von 1 bis 70 numeriert). 
‚Achtung! Hier ist nicht die Funktionstastennummer (1 bis 15) 
gemeint. Ist die richtige Nummer herausgesucht, subtrahie- 
ren Sie von ihr den Wert 33. Sie suchen nun die der neuen 
Zahl entsprechende Stelle in der Zahlenkolonne. Die Zahl, die 
an dieser Stelle in der Kolonne steht, muß auf jeden Fall eine 
10 sein, es sei denn, Sie haben diese 10 schon früher 
ersetzt. Jetztersetzen Sie sie durch die Zeilennummer, in der 
Ihr Unterprogramm beginnt. Sie können jetzt das Programm 
speichern. Ihre Funktion steht Ihnen damit jedesmal bei 
Benutzung des Programms zur Verfügung. 

Sie wollen beispielsweise die Funktionstaste »Fi« pro- 
grammieren. Dann gehen Sie folgendermaßen vor: 

-Zeilennummer suchen: 
10000 

-Funktion programmieren: 
10000 d=d+1:goto 280 

-Zeile 2110 ändern: 
2110 ON speicher GOTO 10000,30000,30000, 

-Zeile 580 listen: 
580 ...:ON c GOTO....... 

-Nummer der Taste heraussuchen: 
46 

rechnen: 
46-33=13 

Stelle in Zeile 580 suchen: 
ON c GOTO 1930........,10000,... 

Die 10000 muß an 13ter Stelle die 10 ersetzen. 

-speichern 

Sollte eine Rechnung den Rechenbereich des Computers 
verlassen, fügt er selbständig eine Fehlermeldung ein. Am 
Ende des Unterprogramms kehren Sie dann mit dem GOTO- 
Befehl in die Zeile 280 zurück, da hier die Routine mit der 
Cursorsteuerung beginnt. 


(Jochen Schüler/ja) 


Name: 
CPC 464/664/6128 


Checksummer: Explora 
Datenträger: Kassette/Diskette 


118 FOR a=47 TO 623 STEP 90:FOR b=14 TO 
284 STEP 30:G0SUB S1@ 

12@ NEXT:NEXT 

RESTORE 140: PAPER @:PEN 1:TAG:FOR i= 

1 TO S@:READ posx ‚posy‚num,asPLOT po 

sx ‚posy,1zPRINT CHR$ (num) xT 

DATA 16,226,179,1,32,226,11@,1,48,22 


6,45,1 
DÄTA’64,226,49,1,24,196,179,1,40,196 
‚11@,1,56,203,58, 1,403, 106,184,1,293 
748,35)1,389,48,36,1,303,18,35,1,319 
}18,36,1,130,226,118,1,123,196,19@,1 
,156,51,126,1,154,83,126,1,154, 113,1 
26,1,49,166,118,1,32,166,179,1,132,1 
67,120,1,115,167,190,1,198,173,58 
168 DATA 1,300,75,101,1,318,85,76,1,208, 

16,130,1,227,16,131,1,248,16,132,1,3 

18,167,255,1,490,47,243,1,490,77,243 
178 SYMBOL AFTER @:RESTORE 189: TAG:FOR i 
=1 TO &9:READ posx ‚posy,num$,asPLOT 
Posx ‚posy,asPRINT num$: #NEXT 


Listing. Mehr als nur ein Taschenrechner 


184741 
[D@D63 


1544A1 
tAE1B] 


[86181 


L3BC21 


198 


2ı@ 


220 


230 
240 


aa) 


au 
85 


g NERSBSERSSSSESESESEE 


„x 

® 67,X,1,338,167, 

296, 137,a/b,1,292,1@7,1/%,1,393, 
409,52,2,1,323,47,x,1,333,17, 

23,y,1,557,227 ,PRIM,1,117,25 

1,141,197,x,1,11@,136,HYP,1, 

TAN,1,187,77,C05,1,187,187,SIN, 


287 ,46,DEG, 1,287,76,AND,1,287,1 
ee 
392,77 ,1n,1,476, 
89,47,P}1,476,77,P}1,589,77,R,1,468, 
137 ,2INS,1,558,137,RAN®,1,558,187,KÜ 
RZ,1,558,197,BINO, 1,477,187,99T,1,38 
4,167 ,kgV,1,197,197 PROB, 1 
DATA 302,197,F1,1.392,197,F2,1,482,1 
97,F3,1,212,227,F4,1,382,227,F5,1,39 
2,227,F6,1,482,227,F7,1,212,257,F8,1 
‚3@2,257,F9,1,387,257,F1@,1,479,257 
F11,1,287,287,F12,1,297,287,F13,1,38 
7,287)F14,1,477,287 ,F15,1 
WINDOW #1,2,39,2,5:WINDÖW #2,2,5,6,& 
WINDOW #5,6,7,6,&:WINDOW #4,12,15,6 
S1WINDOW #5, 17, 28,6, 63 WINDOW “2,22, 
39 ‚6,61 PRINT #5, "DEG":DEG 
MOVE’ 600,800: INK 1,26 INK 2,6: INK 3, 
F:SYMBOL "AFTER @ 
CLS #1: INPUT #1,"Haben Sie den Buntm 
jann Taste(2 SPACE) (1) oder h 
den Gruenmonitor (3 SPACE)da 
e (2)"zisIF i<1 OR i>2 THEN 2 
48 ELSE IF i=1 THEN INK 2,15 ELSE IN 
K 2,24 
ON BREAK GOSUB 212@:0N ERROR 60TO 15 


6 

DIM #(1808):CL5 #ı 
a=47:b=13:c=1:60T0 498 

FOR i=1_TO 1@@:NEXT:IF w<>d THEN 165 
® ELSE 318 

PRINT #6," 1";BIN$(d,16)w=d:60T0 318 


IF INKEY{@)=@ THEN 

IF INKEY(1)=@ THEN 378 

IF INKEY(Z)=® THEN 468 

IF INKEY(8)=® THEN 490 
IF_INKEY(9)=@ THEN 548 

soro 288 

SOsUB 518 

+90: IF a>623 THEN 398 ELSE 498 
4716070 4980 

GosuB 518 

a-9@: IF a<47 THEN 428 ELSE 498 
a=587:G0T0 498 

SosuB Sı@ 

b=b+30: IF b>284 THEN 458 ELSE 498 
b=14:60T0 498 

GOSUB 51@ 

b=b-3@: IF b<14 THEN 48@ ELSE 498 
b=284 

farbe=2:G0SUB 53@ 

S0TO 288 

farbe=3:G0SUB 538 

no 39,b+13:DRAW a+39 ,b+13,# 
MOVE a-39,b+13: a+39 ,b+13, farbe: 
-261 DRAWR 78,0: DRAWR'@,26:M 
DVE 6BB, 1008: RETURN 

Em 

C=INT (7#(b-13) /3@) +1 (a-47) /9@) +1 


r ,134@8,618,790,1& 
670,880 2278, iasa 650,648, i5i 


230. 1280 ,268, 705.818,768,1478) 1428 


ON € 60T0 1938,198@,1268,125@ 

‚1300,678, 2280 33@,1248,2 

iaa,ı6,1 18,18, 
1 


‚18,2 „ie, 18,1 
1218,1148,1@,18,1®,10,1128 
CLS #1: 1F'd>37 THEN 328 
d=19”d:60T0 111@ 
CLS #1: INPUT #1 
sIF w=® THEN 618 
d=d“ (1/w)ı60T0 111@ 

w=2:60T0 628 

w=2:60T0 868 

RUN 158 

d=1/d:G0T0 1118 

w=dı dewariable:wariable=w: GOSUB 748 
ERINT #1,"X="5d;” Me"jwariableı BOTO 
2 

wariable=wariable-d:G0SUB 748 

G0T0 728 

wariable=wariable+d:GOSUB 748 


PRINT #6,"&" eng ta tar ne 


"wievielte Wurzel"zw 


LABFEI 


153341 


184141 


CAsSsal 


L7F68) 
tEIFAI 


CAIF@I 


L294E] 
CDF741 
107741 


tirF2] 


1394C] 
1C35A] 
[33AEI 
139881 
TSEBCI 
[BEBEI 
CSACCI 
166581 
[82E8) 
CCD841 
[57ER] 
C5BD4] 
152801 
1C35@1 
184DA] 
CBSF@] 
CBCDA] 
C91EB1 
LF6921 
[67F2] 
caascı 
[68581 
1783@] 
LAAZEI 


C15B8] 
[62341 
CAABEI 
194841 


L71EA] 


LIFBEI 
11a 
[31AB] 


L666E1 
190321 
[A694] 
LF&AZI 
CB7CC) 
ECZEEI 
15442] 


LAC761 
CBF2@] 
LFCS21 
L91BEI 


72@ PRINT #1,"neuer Speicherwert:"jwaria 
ble:60T0’288 

738 wariable=@:PRINT #2,"":G0T0 72@ 

748 IF wariable<>® THEN PRINT #2,"M" ELS 
E_IF wariable=@ THEN PRINT #2,” " 

75@ RETURN 

768 CLS #11PRINT #1,wariable:GOTO 28@ 

778 d=-d:0T0 111® 

788 d=P1:G0T0 1118 

Be 

808 xPid)s 

EIE SRITIRFUT #l,Prozentzahl, Grundw 
ert, Prozentwert";p,g,wiIF p(@ THEN 
i=1'ELSE IF g<® THEN i=2 ELSE IF w<® 
THEN i=3 

82® ON i GOTO 858,838,84@ 

83@ d=(1@@*w) /p:S0TO 111® 

84® d=(pxg)/1BB:CLS #1HPRINT #1,G5CHRE(3 
7):G0T0 288 

958 d=(1@8*w) /g:G0TO 111B 

848 d=d“w:G0TO 111@ 

878 d=LOG1®(d):G0T0 111® 

888 POKE &44,1:G0T0 988 

898 w=PEEK (WÄ4) : IF hyp=1_THEN 918 

990 ON m GOTO 958, 1920, 1950 

91@ ON n_GOTO 940,730,928 

928 d=@.5# (EXP (d)- (EXP (-d)):G0TO 1110 

930 d=®.5# (EXP (d)+(EXP(-d)):G0TO 111@ 

948 d=(IEXP (d) )- EXP (-4)))/ LLEXP (A) )+(E 
XP (-4)))):G0T0 1118 

95@ d=TAN(d):GOTO 1118 

968 IF des=3 THEN GOSUB 988 

97@ IF hyp=1_THEN 89@ ELSE 1808 

9GB IF des<>3 THEN 898 

998 d=d/63.6739892: RAD 

1008 w=PEEK (444) :0N m GOTO 958, 1020, 1058 


1818 POKE &44,2:G0T0 988 

1828 d=C0S(d):GOTO 1118 

1838 INPUT #1,"Stelle”,st 

1848 POKE &44,3:60T0 980 

1058 d=SIN(d)z60T0 111@ 

1868 FOR i=1 TO 1@8@: NEXT: IF des<S THEN d 
es=des+1 ELSE des=1 

1878 ON des GOTO 1888,18980,1108 

188@ PRINT #5,"DEG":DEG:6010 28@ 

1890 PRINT #5, "RAD" :RAD:GOTO 288 

1188 PRINT #5,"GRA":GOTO 288 

1118 CLS #1:PRINT #1,d:G0TO 288 

1128 CLS #1: w=@: d=@: PRINT #1,"d:"z2 INPUT 
#1,"",d:60TO 288 

@: anzahl i=@:h=@: qw=ß: t=@: anzahl=® 
:ERASE fıDIM #(1088):G0TO 288 

1148 INPUT #1,"Nr. des gesuchten Data";a 
nzahl: IF anzahl<=® OR anzahl>1@8 TH 
EN 115® ELSE CLS #1:PRINT #1,"das i 
st Data Nr.";janzahl:PRINT #1,"Wert: 
";f(anzahl): INPUT #1,"neuer Wert"; 
(anzahl):60TO 288 

115@ CLS #1:IF anzahl<=® THEN 1168 ELSE 
PRINT #1,"Datenwerte mit Nr." 

1168 PRINT #1,"es sind keine Daten verfu 
| 288 

117@ i=1 TO anzahlisPRINT #1,"F(i)si 


" w:60T0 868 


1138 


1188 IF INKEYS="" THEN 1188 ELSE NEXT 
1198 60T0 288 

1208 CLS #1: INPUT #1,"Binaer (1), Hexadez 
1(2)*sputzIF put<i OR put>2 THEN 
2080 ELSE 280 

121@ IF anzahl<=@ THEN anzahl=1 ELSE IF 
1<>@ THEN anzahl=anzahl+iranza 


„"Data";yı#(anzahl)= 

yst=y#yıqwsqw+tih=hty:GOTO 288 

123@ CLS #1: INPUT #1,"Zitfernanzahl:",an 
zahl:50T0 288 

124@ CLS #1:PRINT #1, "Datensumme: ";h:G0T 
0 288 

125@ CLS #1:PRINT #1, "Quadratsummes "zqws 
60T 288 

1268 d=SOR((qu- (hh) /anzahl ) /anzahl ) 1GOT 
o1ııı 

1278 CLS #15 INPUT @1,uıd=d AND wıBOTO 11 
1 

128@ CLS #1zINPUT #1,w:d=d XOR w:G0TO 11 


18 
129@ CLS #1: INPUT #1,w:d=d OR w:80T0 111 


@ 

1520 CL8 #1: INPUT #1,w:d=d NOT wsGOTO 11 
1 

131@ d=h/anzahlı60T0 111@ 

132@ d=SQR( (qu-(h#h) /anzahl) /(anzahl-1)) 
:60T0 111@ 

133@ d=qw/ (anzahl-1):60T0 111@ 

134@ SYMBOL 13@,112,136,136,112:SYMBOL 1 
31,128,128,128:SYMBOL 132,168,168,1 
&@: INPÜT #1,"Sexagesimal (1) od. Dez 
imal (2)"zwıIF w=1 THEN 1358 ELSE IF 
w=2 THEN 141@ ELSE 1348 

1358 CLS #1: IF d<® THEN PRINT #1,"-"5 


[D78EI 
terecı 


ECFACI 
[BE3S8] 
c91DC1 
CC48C1 
L&D9EI 
L759C3 
C1BA21 


Laa9AJ 
LSCBA] 
L93AB] 


t7DDCI 
1399A1 
L@BDC1 
L635C] 
L9ASCI 
[3254] 
EDCCAI 
LFC261 
L4B0C1 
LA9Bal 
CDFABI 
(679A] 
10294] 
120081 
C1@D2) 
C5F34] 
LAFFEI 
CBEA21 
C9EEB] 
CFFABI 
LicAAl 
L9FFBI 
L43B2] 
C4sBEI 
L6ECAI 
[D4E8I 
EDABCI 
[26621 
196441 


176741 


LFDCEI 
188021 
t115AJ 
CSDBCI 


L113E] 
L7EBCI 


L9B2E] 


[B46AJ 
LDB821 
152941 
175841 
139081 
L8D641 
LD880] 
L2CCEI 
188201 


LABBBI 
EB6E2I 


tICBCI 
190441 


en #1,C5CHR$ (1 


#60: c=FIX (=) 
PRINT #1 ,c5CHR$ (131) 
DE EL DERSÖRLFRINT #1 ps CHRF(132) 


TO 

CLS #1: INPUT #1,"Stunden, Minuten, 
Sekunden" autsnin necsdetiininnö@) te 
ec)/36@8)+st:G0T0 111@ 

TOR i=1 TO 1B@:NEXT:IF hyp=1 THEN 1 


Ayp=i1PRINT #3. pa u 288 
hyp=d: PRINT # 

."DEG' DEBEKOTO "260 

INPUT rauf die wievielte Stelle" 
Itelisiir stelle<® THEN 1468 
d=ROUND (d, stelle) GOTO 1118 

d= (18”d) ı 60TO 1118 

d=d“ (1/2. 71828182) :60T0 111@ 


soo as en # EHRE GIB) HL INPUT “i 


INPUT #1,"r:",r:d1=COS 1; 

3a°sihte) ersprihr #1,"x=";dis 
"yrlıdzısoro 520 

es du: Inpür #1,"x2",xa INPUT #1,"ys 

" yıdi1=SQOR (x"2+y”2) 1 d2=ATN (y/x)sPRI 

INT #1 ,CHRS(181)+"=- 


Dee 


"i52PRINT #1," A 
,s INPUT #1, (i)ızahl=zahl+ 
THEN" 1568 


bordnung 
ar. ü)=a 


1:FOR wei TO f(i)ıs=s#@wiNEXTIF(E) 
2 jejef tidsimit 

60T0 1538 

:FOR w=1 TO zahlıs=s#w:NEXTızahl 
d=zahl/j:60T0 111® 

60T0 1578 

d=@: PRINT #1,"Ergebniszahl nicht me 
hr erfassbar !": RESUME 280 

IF ERR=8 THEN CLS #1:PRINT #1,"Spei 
cher nicht belegt; RESUME ZU: ELSE 
PRINT #1,"Fehler '":RESUME 28@ 

IF d=@ THEN INPUT #1,"Zahl:",dıd=AB 


Std) 
G0SUB 2228 
60T0 1118 


IF ((d>32767 OR d<-32768) AND put=1 
) OR ((d>268435455 OR d<-32769) AND 
put=2) THEN 1631 ELSE 1632 

PRINT #1,"Zahl nicht umwandelbar!": 
CLS #6:w=d:S0TO 318 

IF put=® THEN put=1 

ON_put_60TO 

G=TAN (90-0) 160T0 1118 

.08(d):G0T0 1118 

AES=aL INPUT #1 "Altgradc1), Neugrad 
12), Bogenmass (3) ?" sorte:IF sortet 
1 OR sorte>S THEN 1878 

IF desc=1 THEN GOSUB 1718 ELSE IF d 
es=3 THEN GOSUB 173® ELSE GOSUB 175 


e 
IF pro=1 THEN RETURN ELSE 60T0 111® 


RETURN 

IF sorte=2 THEN d=d#(18/9) ELSE IF 
sorte=3 THEN d=d#(PI/188) 

RETURN 


IF sorte=1 THEN d=d/(18/9) ELSE IF 
sorte=3 THEN d=d/ (18/9) #(PI/18@) 


SF sorte=1 THEN d=d/(FI/18@) ELSE I 
F_sorte=2 THEN d=d/ (PI/18@)#(18/9 
RETURN 

zahl=d 

ganz=zahl-FIX (zahl) 

gwert=FIX (zahl) 


880 zaehler=ganzınenner=i 


zaehler=zaehler#1@:nenner=nenner#18 


Jarziszechier FIX zaahler) 

F ganz1>® THEN 1818 
z=zaehler 

nenenner 

r=FIX(z/n) ıwerteranır=z-wert 
IF r<i THEN 1910 

z.n 

ner 

G0TO 1868 

PRINT #1 ,quert," ("jzaehler/nz"/"jne 
ee 


INPUT #1,"Zinsen, Kapital, Zinssatz 

Zeit Jahre)" a ‚„tıIF z<® THEN 
1940 ELSE IF «la 1958 ELSE IF 
p<o ne u ELSE IF t<® THEN 1978 


deikepst) 7108: 60T0 1118 
d=(z#1@8)/(p*t):G0TO 111@ 
d=(z#1@@)/(k#t):G0T0 111@ 
d=(z#10@) /(k*p):GOTO 111@ 
d=RND (6) 16070 111@ 


tCcDiC] 
[66263 


185121 


x=",zs INPUT #1,"y=",‚nızae 
Ben 


2828 IF n>z THEN r=ziz=nıner 

2038 r=FIX (z/n) ıwert=r#nır=z-wert 

2848 IF r<1 THEN d=n: RETURN 

2058 z=n 

2068 n=r 

2878 G0T0 2838 

2@88 GOSUB 2018 

2898 d=(zaehler#nenner)/n:60T0 111@ 

21@@ INPUT #1,"welcher Programmspeicher 
(1-15) "jspeicher: IF speicher<i OR s 

2118 ON ensiche u "sonen, 30800 ‚30008 

speicher G0TO 

30000, 0000 , 30000, 39000, 32000 , 30008 
ons, . ‚50000 ‚58200 ‚3800 

2120 cc WISE BELIREBEINT. #1,"da "32 INPUT 

213@ RETURN 

2148 IF d=2 THEN 215@ ELSE r=SQR(d): IF d 
/2=F1X(d/2) THEN 2168 ELSE FOR i=3 
TO r STEP ZıIF d/i=FIX(d/i) THEN 216 
® ELSE NEXT 

215® PRINT #1,dz;"ist eine Primzahl":60T0 

2148 PRINT #1,d;"ist keine Primzahl ":G0T 
o 328 


220@ k=dıden 


ı60S5UB 2228 
n=dı den/ (nk#k) :GOTO 111@ 
s=1:FOR w=1 TO dıs=s#w:NEXT:d=s: RET 


URN 

INPUT y 

x@=LOG(y) 

Coshyp= (EXP (x®) +EXP (-x@) /2) ısinhyp= 
(EXP (x®) -EXP (-x@) /2) ıxi=x@-( (coshyp 
-y)/sinhyp) 

PRINT x1:x@=x1:G0T0 2258 

POKE %44,1:50T0 238@ 


REM 
IF hyp=® THEN 23358 
w=PEEK (&44):0N w GOTO 2340,2350,236 


nelao, w G0T0 237@,2490,243 


dm. ZuLostt1sdt / (1200) 18070 1118 

F di T #1,"Fehler":60T0 
Sagteise GeLDE (AH SORlan2 17) 18070 1 
d=LO6 (d+SQR (d”2+1)):60T0 111@ 
RAD: GOSUB 2688 


238@ d=ATN(d) :des=2:50SUB 1688 


des=des1:60T0 111® 
IF d=@ THEN d=PI/2:G0T0 111@ ELSE I 
Fe THEN d=8: 6070 111@ ELSE GOSUB 


SOTO 1118 

IF d<@® THEN d=-(18@#x)/PI ELSE d=(1 

88*x)/PI:60T0 111@ 

IF d>1 THEN PRINT #1,"Fehler" ‚daB. 

OTO 111@ ELSE IF d=@ THEN d=9:G0T0 

111@ ELSE IF d=1 THEN d=8:G0T0 1118 

ELSE GOSUB 2488 

60T0 1118 

IF d>i THEN PRINT #1,"Fehler":d=@:6 

a 111@:ELSE IF d=@ THEN 1118:ELSE 
u N d=P1/2:60T0 111®:ELSE 


eoSUB 2 

IF d<@ THEN d=- (18@#x) /PI ELSE d=(1 
80*x)/PIıGOSUB 1688 

60T0 288 


2480 RAD:GOSUB 2488 


yrdıal=@:bi=P1/2 

FOR i=1 TO 34 

x=(al+b1)/2: IF w=3 THEN #=SINK)-y 
Fey-COS (x) 


ELSE 
IF #<® THEN al=x ELSE bi=x 
NEXT 


1 

d=( (EXP (dI -EXP (-d) I /L(EXP(dI + EXP (- 

d)):60TO 1118 

pro=1:IF des=® THEN des=1 

desi=des: IF des=2 THEN sorte=3 ELSE 
IF des=3 THEN sorte=2 ELSE sorte=1 


RETURN 


Listing. Mehr als nur ein Taschenrechner (Schluß) 


CABACI 
CB7FCI 


17614] 
155781 
C2C743 
[0246] 
LBS3AJ 
LFE76] 
L93CAI 
[81681 
CE154] 
[SESA] 
LABB6I 
[8458] 


Ergänzen x-AAPPy_x 


Sie jetzt Ihre COMPUTER „Sammlung 


Schaffen Sie sich ein 
interessantes Nachsch 
gleichzeitig ein 


und 
Archiv! 


Kennen Sie alle »Happy Computer«-Ausgaben von 1985? Suchen Sie einen ganz bestimmten 
Testbericht? Oder haben Sie einen Teil eines interessanten Kurses versäumt? Suchen Sie nach 


einer speziellen Anwendung? 


Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen 


finden Sie auf diesen 


können, 
Seiten eine Zusammenstellung aller wesentlichen Artikel der Ausgaben 01 bis 06 und 08 bis 


12/85. 


Und so kommen Sie schnell an die noch lieferbaren Ausgaben: Prüfen Sie, welche Ausgabe in 


Ihrer Sammlung noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer 
dieser Ausgabe und das Erscheinungsjahr (z.B. 2/85) auf dem Bestellabschnitt der hier 
eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte einfach heraustrennen und 
Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs- 


‚eingang umgehend zur Auslieferung gebracht. 


= == Sn 
ann mr ea nes en 
. Em 
Er 
GENE, una maere Bee, 
= Beten 
el Bari 
Bari en 
Bun ra 
Ban ri 
Be Ei Rn 
ae ze 
a 20 Sehe 
Beemern gs 
sammen SEE ng menu 
BEEe Bee 
Een, ee 
"7 een een 
Gegeee 
en See 
ee BE mn 
Se Fe BREgEn 
Ben Er 
FE a 
Br ee nn mat 
Een ninnunen Ge emaslaef 
nie Er = 
= EE 
Bi ee 
nm 
I ma = 
Se nn 
ar Kr nd pie Bummar&EB ia — Ti 2) Ale landı 
se Keane 
el Ren 
Pe one 
Be an Baia 
8 Bere. een 
. Si = 
Sn 
para = 
Pe nam 
Beengeszi. Sn 
SEE ee 
ae == 
Ben Se 
ee SE 
Dre euren an Be 
kenne Bu 
un Bien ennsimenmmete 4 a 
Eretee En Fr 
een, kaiel 
ee Fe 
gene u se 
SE  ; En 
Beemurumm. 1 Si 
Er Se 
Bares ss 
EEE aan EEE an cmrnnse 
Beet: a ur 
BESSaH nenn, 4 = 
Ge reme iin a3 
u Beamer FH Hek 
Sören a Macke 
Se # imma 
en H ; 
Be unmanen Hi er 
Bun er 
en 
Biete 
Ben 
Bein 
Ben 
Basta 
Bar 
= 
Ser 
Eee! 
Ei anna 
en 
Een 
ee 
een 
EEE 
Be 
sei 
En 
een # am 
Bei han Mi Sa 
een EA Selm 
mann FE 
Bere Ei © 
Green # ale 
een 5 Eee 
ee En Sasse 
a Een rapenn 
een En Eee 
En, U Sn 
ee, U EEE ancemminda 
Bere 
en 
Tem EEE nme = 
en FE eane 
een BE 
enmnemngeres Aene 
BEE nvnen wm 
Pe — kei EZ 


EEEERREIREEER | 
KR 


M 
1 


ya w 
Ya 


BRETTEN 
Me | 
f 


1 


init 
| 


mM 


Brom in Ha und 
een anttie “0 
Bau Sate 17070 
Pe 

Febeauı errang 
Ani nen dee Dreier 
Bee darauf dam 
Bene Gala eri Dtala (CC, 
Beyegeng: vom Spre num Zaehanmek (060) 
5 Keen 
Eeekhmuber Apple = 
Hi Fanam 

rn 
Bekaale Os dem Bampdar EM /C 00 
Eehnae Spree vn 
Er fee 
une 
Gomrkannı 00 


ht 
een uf an 7 
Die Abenteuer einse raunden Heportens (Aspor/C 00) 


u 
4 
N 
| 


u 
13 
J 


# 
h 
i 
H 
$ 


Bi 

H It 

Bi 

ii 

EEH 

[EH 
E 
\ 
°s 
Fi 


a 
Ba ut Sa Dom a 
Pot dem 


Pr Erz 

Muck Pr as 

ee ee u 

Su Per Er 

DS in 
Wunden 

Fr 

Aalen Bader Olsche) 

Kar Pe 

Fe 

Adams  Dabssemmibeme 

Ka ren Segen Eeermenzenern 

FE 

Fe ma) 

at Ber 

Aa Fe a win 

Fr 

Kt nee, 

Alkirung Wer gumin un genen Besen 


aan on 


Am besten gleich 
mitbestellen: 
Die Happy-Computer- 
Sammelboxen 


Ei De hs 12 Hefte] 
aßt in ee 


besten gleich mitbestellen! 


Für alle Leser, 
die »Happy-Computer« 

regelmäßig kaufen, sammeln oder im 
Abonnement beziehen, gibt es ein in- 
teressantes Service-Angebot: die Hap- 
py-Computer-Sammelbox! 

Mit dieser Sammelbox bringen Sie 
nicht nur Ordnung in Ihre wertvollen 
Hefte, sondern schaffen sich gleichzei- 
tig ein interessantes und attraktives 
Nachschlagewerk. 

Übrigens: Die Sammelbox ist nicht nur 
ein praktisches Aufbewahrungsmittel: 
Sie eignet sich auch hervomagend als 
Geschenk für Freunde und Bekanntezu 
vielen Anlässen. 


Auch die bisher 
erschienenen Sonderhefte 
können Sie 
jetzt direkt bestellen: 


SONDERHEFT 01/84: SINCLAIR 
Unentbehrliche Informationen zu den Sinclair 
Computern ZX8] und Spectrum. 


SONDERHEFT 03/85; SPEIE 
in Super-Nachschlagewerk für alle Spiele-Fans mit 
100 Spielen im Test und großer Marktübersicht. 
SONDERHEFT 01/86: SCHHEIDER 2 

‚Noch mehr Tips und Tricks für Einsteiger und Fort- 
geschrittene mit vielen interessanten Programm-Listings. 


SONDERHEFT 03/86: 68000er 

Umfassende Informationen zur neuen Computer- 
Generation und eine große Vergleichstabelle, die im 
Detail über alle 7 informiert, 


Tragen Sie die Nummer des gewünschten 
Sonderheftes (z.B. 03/85) auf dem Bestellab- 
schnitt der hier eingehefteten Bestell-Zahlkar- 
te ein. 


Mathe-Assistent 


Bei den Hausaufgaben in der Vektorgeometrie hilft 
Ihnen jetzt Ihr CPC. Mit dem Programm »Vektor« 
analysieren Sie problemlos dreidimensionale Vek- 
torräume. Machen Sie Ihren Schneider zum uner- 


müdlichen Übungspartner. 


inheitsvektor. 
Eine tank EEE 


Ihre Wahl: _ 


Alle Funktionen auf einen Blick 


outinearbeiten aus der Vektorgeometrie, wie zum 

Beispiel Vektorprodukt, Skalarprodukt, Einheitsvek- 

tor, lineare Abhängigkeit etc. führt dieses Programm 
für Sie aus. Für Schüler ist »Vektor« ein wertvolles Hilfspro- 
gramm zur Prüfung von Aufgabenlösungen. 

Die Programmbedienung erfolgt menügesteuert und ist 
sehr einfach. Sie haben die Auswahl zwischen 9 Menüpunk- 
ten (siehe Abbildung). Nach der Auswahl einer Funktion müs- 
sen Sie die Koordinaten und eventuell noch die Anzahl der zu 
verknüpfenden Vektoren eingeben. 

Die Programmvariablen werden am Anfang des Listings 
kommentiert. Abänderungen und Erweiterungen des Pro- 
gramms sind dadurch kein Problem. 
(Karl Henes/Matthias Rosin) 


Name: Vektor 
CPC 464/664/6128 


Datenträger: 


19 REM snnnunnnununnnunennen 

2@ REM * Vektorberechnung * 

30 REM ® copyright K. Hanes # 

AO REM snuunsnnnununnunnunnen 

5® REM « Variablendefinition ® 

eu ' 3) = Vektorkoordinatenfeld * 
70° * Hilfsvariable ” 
Erg: * Laufvariable “ 
9®_‘ Anzahl = Vektoranzahl * 
100 ° x * X-Koordinate ” 
11a  Y ” 
120 zZ * 
13@ DIM v(1@,3) ° * Vektorfeld (maximal 
100 e,gr® dimensionale Vektoren) * 


CLs 
158 INK 1,8: INK @,13:BORDER 13:MODE 2 
* Farben ® 
158 REM * Rahmen zeichnen * 
178 MOVE 9,9:DRAW 9,391:DRAW 631 ,391:DRA 
W 631,9: DRAW 9,9:MOVE 14,14: 14, 
DRAW 626,386:1DRAW 626, 14:DRAW 14 


CHR$ (132) 5 
188 REM * Menue # 
19@ LOCATE 32,3: PRINT"Vektorberechnung“ 
2@@ LOCATE 32,4:PRINT" Me 
E 23,7:PRINT"Vektorensumme. 


.. PEREER I 

22@ LOCATE 23,8:PRINT"Vektorendifferenz. 
enansunsnnnun nn 2" 

23@ LOCATE 23, 9a PRINT"Kreuzprodukt. “una. 


248 LOCATE 23, 

25@ LOCATE 23,111 PRINT"Vektorenlinearita 
@lecuune ..5" 

26@ LOCATE 23,12: PRINT"Ortsvektor des Te 
ilpunktes.......6" 

278 LOCATE 23,13: PRINT"Vektorbetrag..... 


- ... ..7' 
28@ LOCATE 23,14:PRINT"Einheitsvektor... 
290 


PRINT"SKal arprodukt.... 


LOCATE 23,15:PRINT"Winkel zwischen z 
wei Vektoren....9" 

300 LOCATE 34,19: PRINT"Ihre Wahlı _" 

31@ REM * Keyabfrage mit Fehlermeldung * 


32@ a$=INKEY$: IF a$="" THEN 328 ELSE IF 
ASC(a$)<49 OR ASC(a$)>57 THEN LOCATE 
16,22:PRINT "Nur eine ganze Zahl zw 


12D121 


LFB9@] 
LF82@] 


189121 


ischen 1 und 9 eingeben !":PRINT CHR 
$(T7)ı FOR t=1 TO I! NEXTALOCATE 16 
„22: INT SPACE$(47):G0T0 32@ 14082] 

33@ LOCATE 45,19: PRINT a$ıON ASC(a#)-48 
G0TO 348,4408,548,638,730,830, 980,108 
‚1188 ° * Verzweigung # L@AEZI 

REM * Berechnung der Vektorensumme #* 
tACBB] 


30 
35@ CLS: BORDER 1 tAECEI 
36@ LOCATE 2,2:PRINT "Vektorensumme":LOC 
PRINT ” L6BB@) 
se LOCATE AEIRINOUT En une der Vekto 
renanzahl (maximal 18) - "‚anzahlıan 
zahl=INT(anzahl)ı IF anzahl<i OR anza 
h1>1@ THEN SOUND 1,1880 ,58: 600 378 LDDECI 
38@ LOCATE 18,8:PRINT "Eingabe der Vekto 
rkoordinaten - "ıFOR T=1 TO ANZAHL:L 
OCATE 9,T+94PRINT T}". VEKTOR"ıLOCAT 
E 25,1+91 INPUTS"Xı "VCT,1DSLOCATE 4 
@,T+9: INPUTs"Y} " „VCT,2) 1LOCATE 55,1 


+91 INPUTS "Zu " „VCT,3) NEXT L97F@1 
39@ FOR T=1 TO ANZÄHLs KuX+V(T,1) 2 YmY+V(T 

„2)2 Z=Z4V(T,3) NEXT 17240] 
488 LOCATE 1@ PRINT "Summenvektor en 


ni 
ı LOCATE 35,221PRINT "X-Koordinate > 
"YXLLDCATE, 35,23:PRINT "Y-Koordinat 
e “ıYsıLOCATE 35,241 PRINT "Z-Koordi 
nate > "ıZ 

418 WHILE INKEYS="":WEND 

428 IF INKEY(59)=@ THEN 348 

438 GOTO 148 

448 REM * Berechnung der Vektorendiff: 
nz » 

45@ CLSıBORDER 1 

468 LOCATE 2,2:PRINT "Vektorendifferenz" 
;LOCATE 2,31 PRINT — ee 


47@ LOCATE 18,5: INPUT; "Eingabe der Vekto 
renanzahl (maximal 1@) - "‚anzahlıan 
zahl=INT (anzahl): IF anzahl<i OR anza 
h1>1@ THEN SOUND 1,1808,5@8:G0T0 37@ LEDEEI 

18,8:PRINT "Eingabe der Vekto 

inaten - ":FOR T=1 TO ANZAHLEL 

OCATE 9,T+9sPRINT T5". VEKTOR":LOCAT 

E 25,1+9: INPUTI"X: ",„VCT,1)SLOCATE 4 

@,T+9: INPUTI"Yı ",V(T,2)LOCATE 55,T 
+92 INPUT3"Z: ",„V(T,3) NEXT L7EF2I 

498 X=V (1,1): Y=V(1,2)2Z=V(1,3):FOR T=2 T 
O ANZÄHLE X=X-VIT 19 2 VeY-VT,2) 2 2=2-V 
{T,3) NEXT [25881 

58@ LOCATE 18,22:PRINT "Differenzvektor 
="; LOCATE 35,22:PRINT "X-Koordinat 


@ > "3XsLOCATE 35,23: PRINT "Y-Koordi 
nate > "}V:LOCATE 35,243PRINT "Z-Koo 
rdinate > "sZ 

WHILE INKEY$=" "1 WEND 

IF INKEY(59)=@ THEN 448 

S0TO 148 

REM * Berechnung des Kreuzproduktes 
* 


CLS:BORDER 1 
56@ LOCATE 2,21 PRINT "Kreuzprodukt"LOCA 
TE 2,5: PRINT "———— 


“Ve,3) INEXT 
X=V (1,2980 (2,39 -V (1,31 0V62,2) 1 YmVdi 
Davi2,12-vdl, nevez, HızeVi1,1avi2 
A 21 "v2 
LöCAre 18,191 PRINT "Produktvektor 
OCATE 35,15: PRINT "X-Koordina; 
OCATE' 35,161 PRINT "Y-Koordina 
VıLOCATE 35,174 PRINT "Z-Koord 


LE INKEYS= 
IF INEILEN= Ten. 54 
628 G0T0 148 

REM * ber sehnung des Skalarproduktes 
” 


CLS: BORDER ı 
LOCATE 2,2:PRINT "Skal 
ATE 2,31 PRINT "— 

LOCATE 18,5: INPUT) "Eingabe der Vekto 


rodukt"ıLOC 


'N_ SOUND 1,1000,50:6070 37 

SıPRINT "Eingabe der vakto 

rt = "sFOR T=1_TO ANZAHLIL 

TA9LPRINT T}*. VEKTOR"ıLOGAT 

1 INPUTA"Xa "VAT, AD LOCATE 4 

ver 2) LOCATE 55,T 

1rIyabcı 21a EV RSIAFOR Ta T 

O_ANZÄHLI X=X#VET 1) a YaYaV(T,2) 1 ZmZuV 
NLRSPINEXTIERGERNISEXCVe? 


TE 18,22ıPRINT "Ergebnis > "ıLOC 
ATE 23,224 PRINT ERGEBNIS 


LOCATE 2,21 PRINT SUNERELITBEI ERBE® 
1LOCATE 2,31 PRINT "--—— 


LOCATE 18,81PRINT “Eingabe der Vek 
rkoordinaten - ":FOR T=1 2 Sn LbenTe 


a hp ek Zr ave3,31 002,1) 
#V(3,2I#V (1,3) +V(3,1) U (1,2900 (2,8) - 
RE HERE NIE HESE NIE RE SENTEREF NIEREN 
(2,3) -V(2,1)@V(1,2)0V(3,8) 

LOCATE 10 IS1PRINTYErgeönie > "ıLocA 
TE 23, 1SıPRINT ERGEBNIS 

IF ERGEBNIS=® THEN LOCATE 18,171PRIN 
T "Die Vektoren sind linear abhaengi 
." ELSE LOCATE 1@,171PRINT "Die Vek 
ören sind nicht linear abhaengig." 
WHILE_ INKEY£="" ı WEND 

ı1F INKEY(59)=@ THEN 730 

8070 148 

REM * Berechnung 
Teilpunktes * 
CLS:BORDER 1 


vom Ortsvektor des 


"Ortsvektor des Tei 


LOCATE 2,2: PRINT 
lpunktes"ıLOCATE 


LOCATE 1@,@sPRINT "Eingabe des Ortav 
ektors vom Anfangspun! 
LOCATE 18,10: PRINT "1 . Vektor" :LOCA 
18: INPUTI"X: ",YC1,1) LOCATE 4 
"Yı ",V(1,2)LOCATE 55,18 
"‚v4,3 
TE 1@,125PRINT "Eingabe des Orts 
vektors vom Endpunkt - 
LOCATE 18,141 PRINT "2 „ Vektor" ıLOCA 
TE 25,143 INPUTI"Xı ",V(Z,1)aLOCATE 4 
@, 14: INPUTS"Yı ",VC2)2)1LOCATE 55,14 
a INPUTI"Zs ",v(2,3) 
LOCATE 18 16:PRINT "Eingabe von Lamb 


Kücare ı@ es 1 INPUT) "Lanbda (nicht @ 


[6318] 
[6988] 
[B4321 
[BEACI 


1D488] 
CCBcA] 


C@6DA] 


LES88J 


tA7DEI 


LEA7AIJ 
LiSCEI 
IDEBEI 


177A41 


[BEECI 
[SCB@] 


18218] 
126383 
L9DBBI 


748 


IF_LAMBDA=® OR LAMBDA=-1 THEN 918 
V(2,1)=V(2,1)#LAMBDAı V (2,2) =V (2,2281 
AMBDA: V (2,5) =V (2,3) #LAMBDAıX=V (1,1) + 
V(2,1) 1 Y=V(1,2)40(2,2) 1 mV (1,3)+0(2 
LAMBDA=LAMBDA+13 X=X/LAMBDA: Y=Y/LA 
MBDA: Z=Z/LAMBDA 
LOCATE 18,21:PRINT "Ortsvektor des T 
silpunktes - "ı LOCATE 48,221PRINT " 
X-Koordinate > "}XiLOCATE 48,231 PRIN 
T_"Y-Koordinate > "}YILOCATE 48,241 P 


RINT "Z-Koordinate > ";Z 

958 WHILE INKEY$="":WEND 

960 IF INKEY(57)=@ THEN 838 

97@ G0T0 148 

98@ REM * Berechnung des Vektorenbetrage 
a 

998 CLS:BORDER 

1008 LOCATE 2 ZUPRINT "Vektorbetrag"ıLOC 


AIE 2; SLPRINT 


1818 LOCATE 18 PRINT "Eingabe der Vekt 
orkoordin. 
1828 LOCATE 1@ PRINT "Vektor "ıLOCATE 


185@ WHILE 


18 

25,1@ INPÜTI"Xr ",Vt1,1)LOCATE 4, 
1 di 2) 1LOCATE 55, 
Bu 


INPUTs 
Keutlraveisl lyavcı, FIRDIER IT) 
‘iı 22V, 3) JERBEBNIS=SOR (X. 

LDBATE 10) 1SIPRINT "Ergebnis > "ıLO 
CAT 23. 151 PRINT IS 
INKEYS=""ı WEND 

IF ale THEN 988 

6010 1: 


REN # ehe des Einheitsvektor 
us 


CLS1 BORDER 
LOCATE 2) ZuPRinT, "Einhi 
OCATE 2,S1PR 
LOCATE ii 
orkoordin, 
LOCATE 18 
25,18: INPUT 
18: INPUTS"Y 
INPUTI"Zı ",vc1,3) 

X=Vtl, vavd“, Hayavcı ZI (1,2) z=V 
(1,3) #V (1,3) }BETRAG=SÜR (X+Y+2) ıBi=X 
+Y4ZıX=V Cl, RE ABNÄR 2) /BETRA 


Gı Z=V (1,3) /BETRI 
"Betrag des Vekt 


vektor"ıL 


PRINT ainaees) der Vekt 


OCATE 18, 141 PRINT 
ors(2 SPAGEI=(2 SPACE}Wurzel aus";B 
Ip omultipliziert mit x/y/z. "ıLoca 


ocate SS, 171 PRINT #X 


#XELOCAT! 18: PRINT "Y-Koordin. 
3 YaLöcare SShISH PRINT "Zokoorat 

nate w 

115@ WHILE INKEYS=""} WEND 

1168 IF INKEY(59)=@ THEN 1080 

117a Soro 140 

1188 REM * Berechnung des Winkels zwisch 
en zwei Vektoren * 

1198 CLS:ı BORDER ir 

28@ LOCATE 2,2:PRINT "Winkel zwischen z 


wei Vektören"ıLOCATE 2, SH PRINT 


L873C1 


18494] 


L1EF&I 
IF294] 
L&BBE) 
tDF18] 

17894] 
[8DACI 


tE18A] 
L1Cc2A] 


tAa91Al 
£C5D2] 


tBAFBI 


L9F74] 


1278 


Locke ‘8, 181 PRINT "1 . 
V(1,1) ıLOCATE 
Mu‘ 2) ILOCATE 55 


d,» 
LOCATE Yo ızıPrinn > "Eingabe des zwe 
iten Vektors - " 

LOCATE 18,14:PRINT "2 . Vektor"ıLOC 


Vektor":LOC 


40,10: 1 


„1: INPUTz "Zu 


ATE 29,143 INPUTI"Xı " 062,1) LLOCATE 
fi vr 2) ILOCATE 55 
Neun} Suvchs 


ni 
Xevidl, 1deY=Vti, zu, 3ıFOR T=2 
TO 21 X=XaV(T, 11 V=Yav(T, Zu Zz=ZuV(T, 
3) aNEXT 
ERGEBNIS=X+Y+Zı X=V (1,1) #V (1,1) 1 YmVc 
1,2)#V(1,2ı 41, Dvd, » HERGEBNI 
SI=SOR(KFY+ZJ aX=V 2, 11avi2, 1ayavı2 
Z)#V(2,2):Z=V(2, ZIavız, S) HERBEBNIS 
2=SQR (X4Y+Z) 

VE TERSEeHTESeTE anssunen 
a ee IF ERGEBNIS= 
1 _THEN ERGEBNIS=B:60T0 139@ 
REM * Neu: Berechnung des Arcuscosi 
nus # 
RAD: ERGEBNIS=-ATN (ERBEBNIS/SQR (-ERG 
EBNIS+ERGEBNIS+1) )+1.57@07633: ERBEBN 
18=18@/PI#ERGEBNIS 
LOCATE 1@,18:PRINT “Ergebnis > "ıLO 
ERGEBNIS," Grad." 


CATE 23, 18: PRINT 
IF INKEY(59)=@ THEN 1188 
6070 148 


WHILE INKEYS="" 


Listing. Vektorberechnung mit dem Computer 


- Bildschirm de Luxe 


Unterstreichen, Fett- und Kursivschrift und man- 
che Hervorhebung mehr kann der Schneider im 
80-Zeichen-Modus. Daß sich die Ausgabege- 
schwindigkeit dabei noch nahezu verdoppelt, fällt 
fast gar nicht mehr auf. 


ie Sie wahrscheinlich längst wissen, heißt der 

Teil im Betriebssystem, der die Zeilenausgabe 

steuert, sIEXT SCREEN«. Und diese Routine 
kann sehr viel: Verwalten von acht Bildschirmfenstern, drei 
‚Schriftbreiten (Modus O bis 2), Ausführen von Steuerzeichen 
(CHR$(=) bis CHR$(31)), Darstellung des Cursors, Verwal- 
ten der Farben, transparenter Schreibmodus und natürlich 
die Zeichenausgabe auf dem Bildschirm, um nur die wichtig- 
sten aufzuzählen. Es gibt aber auch einige Unzulänglichkei- 
ten, und die sollen natürlich nicht verschwiegen werden. 

Da ist einmal die sehr langsame Zeichenausgabe auf dem 
Bildschirm. Geben Sie einmal das kleine Programm aus 
Listing 1 ein. 

Nach dem Start füllt sich der gesamte Bildschirm mit dem 
Buchstaben »a« und anschließend wird die dafür benötigte 
Zeit ausgegeben. Da uns nur die Zeit der reinen Zeichenaus- 
‚gabe interessiert, muß man von der im Programm ermittelten 
Zeit den Betrag abziehen, den das Programm zur Ausgabe 
von Leerstrings (a$= * *) benötigt. Diese Zeit erhalten wir, 
wenn wir Listing 2 laufen lassen. In Zeile 80 wird deshalb der 
Betrag 0,146666667 abgezogen. 

Das Beschreiben des Bildschirms mit Zeichen - es ist übri- 
gens egal, mit welchem Zeichen der Schirm beschrieben 
wird - dauert also etwa 3.29 Sekunden. Mit dem gleichen 
Programm messen wir nachher die Zeit, die das Beschreiben 
des Bildschirms benötigt, nachdem die Routine TEXT 
SCREEN geändert wurde. 

Der Hauptgrund für diesen ziemlich hohen Zeitaufwand 
liegt bei den drei verschiedenen Schriftbreiten. Die Zeichen- 
ausgaberoutine des Betriebssystems muß natürlich so konzi- 
piert sein, daß sie allen drei Modi gerecht wird. Dies beinhal- 
tet dann für den Modus 2 (80 Zeichen) eine Unzahl überflüs- 
siger Berechnungen. Zumindest in diesem Modus kann man 
die Zeichenausgabe erheblich beschleunigen. Und wenn wir 
schon eine neue Ausgaberoutine schreiben, dann soll sie 
auch noch mehr können. 

Erweitern wir TEXT SCREEN im Modus 2 also um folgende 
Funktionen: 
= Bildschirmausgabe beschleunigen 
- Unterstreichen 
- Fettschrift 
- Kursivschrift 
- Durchstreichen 
= Durch-x-en auf dem Bildschirm 
Die Modi O und 1 sollen unverändert funktionieren. 

Die Hervorhebungen (Unterstreichen, Fettschrift und so 
weiter) werden am geschicktesten mittels Bildschirmsteuer- 
zeichen ein- und ausgeschaltet. Hier bietet sich das noch 
unbelegte Steuerzeichen CHR$(27) an. Mit einem Parame- 
ter, der CHR$(27) folgt, wird die Hervorhebungsart bestimmt 
und in Flip-Flop-Manier ein- und ausgeschaltet. 

Im allgemeinen ruft die Routine TXT OUT ACTION (ein Pro- 
‚grammteil des Betriebssystems beziehungsweise des TEXT 
SCREEN) den TEXT SCREEN auf. Das Programm (zum Bei- 
‚spiel der Basic-Interpreter beim PRINT-Befehl) übergibt im A- 
Register des Z80 den ASCIl-Wert des auszugebenden Zei- 


chens. Taucht hier ein Wert kleiner oder gleich 31 auf, so 
»weiß« der TEXTSCREEN, daß ein Steuerzeichen vorliegt. Er 
verzweigt in einen Programmabschnitt, der Steuerzeichen 
bearbeitet. 
Für jedes Steuerzeichen liegt in einer Tabelle (die vom 
Betriebssystem beim Initialisieren im RAM angelegt wird) ein 
3-Byte-Wert vor, der die weitere Verarbeitung bestimmt. 
Das erste Byte besagt, wieviele folgende Ausgabezeichen 
(entsprechend der Zahl der Aufrufe von TXT OUT ACTION) 
als Parameter des Steuerzeichens zu interpretieren sind. 
Auch wenn diese Zeichen nun einen ASCIl-Wert größer 31 
haben, werden sie nicht ausgegeben, sondern bis zum Errei- 
chen der benötigten Gesamtzahl der Parameter zwischenge- 
speichert. Die anderen beiden Byte geben die Adresse der 
Routine an, die die Funktion des Steuerzeichens ausführt. Ihr 
Aufruf erfolgt automatisch, sobald der TEXT SCREEN alle 
benötigten Parameter »gesammelt« hat. Nach dem Ende der 
Routine werden die folgenden Zeichen - sofern es sich nicht 
wieder um Steuerzeichen handelt - normal auf dem Bild- 
schirm ausgegeben. 
Ursprünglich sind für CHR$(27) O Parameter sowie eine 
direkte Rückkehradresse eingetragen. Mit anderen Worten, 
CHR$(27) hat keine Funktion. Setzen wir nun in die Tabelle 
eine 1 sowie die Adresse unseres Programmes ein, kann der 
folgende Parameter ausgewertet und zum Ein- beziehungs- 
weise Ausschalten von Hervorhebungsarten benutzt wer- 
den. 
Zusammen mit einer neuen Textausgaberoutine (genauer 
einer neuen Routine für TXT WRITE CHAR des TEXT 
SCREEN, die für die Darstellung eines Zeichens auf dem 
Bildschirm verantwortlich ist), die in Modus 2 sowohl eine 
Beschleunigung der Bildschirmausgabe bewirkt, sowie für 
eine Darstellung der jeweils eingeschalteten Hervorhe- 
bungsarten sorgt, ist die Erweiterung des TEXT SCREEN 
komplett. 
Das Assemblerprogramm mit diesen Funktionen finden Sie 
in Listing 3, den entsprechenden Basic-Lader in Listing 4. 
Nachdem das Programm mit »CALL &A000« initialisiert 
wurde, steht der erweiterte TEXT SCREEN bis zum Aus- 
schalten des Computers zur Verfügung. 
Lassen Sie nun nach der Initialisierung der Erweiterung das 
obige Zeitmeßprogramm erneut laufen. Die Geschwindig- 
keitserhöhung ist unmittelbar zu verfolgen. Man benötigt 
lediglich noch 1.89 Sekunden zum Beschreiben des gesam- 
ten Bildschirmes. Das entspricht einer Beschleunigung um 
etwas mehr als 40 Prozent. 
Die einzelnen Hervorhebungsarten werden mit 
- PRINT CHR$(27);CHR$(1) 
Unterstreichen ein/aus 
PRINT CHR$(27);CHR$(2) 
Fettschrift ein/aus 
PRINT CHR$(27);CHR$(3) 
Kursivschrift ein/aus 
PRINT CHR$(27);CHR$(4) 
Inverse Darstellung ein/aus 
PRINT CHR$(27);CHR$(5) 
Durchstreichen ein/aus 
PRINT CHR$(27);CHR$(6) 
Überstreichen ein/aus 

- PRINT CHR$(27);CHR$(7) 
Durch-x-en ein/aus 

ein- beziehungsweise ausgeschaltet. 

Die Zeichenfolge CHR$(27);CHR$(x) kann natürlich auch 
ein String enthalten. Zur Demonstration dient Listing 5. 


Es ist auch möglich, mehr als eine Hervorhebungsart 
gleichzeitig zu aktivieren, so zum Beispiel Fettschrift und 
Unterstreichen oder jede andere beliebige Kombination. Nur 
Fett- und Kursivschrift heben sich gegenseitig auf. 

Unsere Routine sieht eine Funktion zum Blockieren von 
Änderungen der Hervorhebungsart vor. Nach der Eingabe 
von 


PRINT CHR$(27) ;CHR$(O) 

werden alle folgenden Änderungskommandos ignoriert. Das 
heißt, der Zustand, der zu diesem Zeitpunkt vorliegt (bei- 
spielsweise Unterstreichen und inverse Darstellung) bleibt 
erhalten. Um diesen Zustand wieder aufzuheben, ist die Ein- 
gabe eines Parameters mit einem Wert größer als 127 nötig, 
‚also zum Beispiel 

PRINT CHR$(27) ;CHR$(128) 

Nun werden alle Veränderungen der Hervorhebungsart 
wieder bearbeitet. 

Das Assemblerprogramm ist folgendermaßen aufgebaut. 
Zunächst werden - da man tunlichst nur über die vorgegebe- 
nen Vektoren Betriebssystemroutinen aufrufen soll - die ent- 
sprechenden Restarts der Vektoren in Aufrufe umgewandelt. 
Dies funktioniert problemlos, weil die erforderliche Speicher- 
konfiguration bereits vor dem Aufruf unseres Programms ein- 
gestellt ist. 

Die Vektoren enthalten einen Restart-Befehl, gefolgt von 
einer Startadresse im Betriebssystem. Daß bei dieser 
Adresse das siebte Bit gesetzt ist, hat etwas mit dem ange- 
wählten ROM zu tun und braucht uns hier nicht weiter zu 
interessieren. Der Restart schaltet nun die Speicherkonfigu- 
ration um, so daß die in den beiden obersten Bits angewählte 
ROM-Adresse aktiviert wird. Der Aufruf erfolgt dann im richti- 
‘gen Speicherbereich. Das ist notwendig, damit die Vektoren 
von jeder beliebigen Speicherkonfiguration aus funktions- 
fähig sind. 


MODE 2 
as=STRING$ (80, "a") 
t=TIME 


ELLE 


NEXT z 
PRINT (TIME-t) /300-0. 146666667 


Listing 1. Mehr als drei Sekunden, um den Bildschirm 
voll zu schreiben 


Da unser Assemblerprogramm, wenn es initialisiert ist, nur 
vom TEXT SCREEN aus aufgerufen wird, ist immer gewähr- 
leistet, daß das untere ROM eingeschaltet ist. Die Umkonfi- 
guration des Speichers mit einem Restart gestaltet sich sehr 
zeitaufwendig. Ein einfacher Aufruf hingegen ist erheblich 
schneller. 

Das Programm kopiert also die hinter den Restarts der Vek- 
toren stehenden Startadressen (nachdem Bit 7 zurückge- 
setzt wurde). Somit ist auch die Kompatibilität zu anderen 
Betriebssystemen (CPC 464, 664 und 6128 haben unter- 
schiedliche Betriebssysteme) gewahrt. Nach dem Kopieren 
wird der Vektor für TXT WRITE CHAR auf den entsprechen- 
den Startpunkt im Programm gesetzt und die Tabelle für die 
Steuerzeichen abgeändert. Im folgenden steht die Ersatz- 
routine für TXT WRITE CHAR und das Programm zur Behand- 
lung der Steuerzeichen. 

Die Hervorhebungsarten werden im wesentlichen inner- 
halb des Assemblerprogramms erklärt. Fettschrift bezie- 
hungsweise Kursivschrift entsteht dadurch, daß das Bitmu- 
ster der Buchstaben jeweils um ein Bit verschoben und 
anschließend mit dem Originalmuster OR- (Fettschrift) bezie- 
hungsweise AND-verknüpft (Kursivschrift) wird. Dadurch 
erscheint die Schrift auf dem Bildschirm fett und heller bezie- 
hungsweise schlank und dunkler als normal. 

(Matthias Engelbach/hg) 


Bildschirm de Luxe 
CPC 464/664/6128 


Computer: 
Checksummer: 


Kassette, Diskette 


7@ NEXT z 
88 PRINT (TIME-t)/308 


Listing 2. Die Programmbearbeitung ist schnell 


Listing 3. 180 
Der Quellcode für 
»Bildschirm de Luxe« 


s 


Bildschirmausgabesteuerung 


Funktion: Die Ausgabe von Zeichen in MODE 2 
wird von diesem Programm erweitert. 
Neben einer Beschleunigung der Ausgabe 
um etwa den Faktor 2 werden ueber 
das Steuerzeichen CH®$(27) + CHRSCK) 
folgende Ausgabefunktionen realisiert: 


- Unterstreichen 

- Doppeldruck / Fettschrift 

- Kursivschrift / Schmalschrift 

- Inverse Darstellung (zusaetzlich 
zu CHRSL24) 1) 


103 


so 

00000000 
00000000 
81422418 
00010204 


= Durchstreichen 
- Ueberstreichen 
-Durch- x -en 


Die Ausgabe von Zeichen in MODE 0 und 
MODE I wird nicht beeinflusst. 


org #A000 


Initialisieren 


RESTARTS in JUMPs umwandeln 


ld hl,(#BBAB) Vektor von TXT GET MATRIX 
res 7,h ROM-Bit ruecksetzen 
14 (getmat),hl in Programm eintragen 


ld hi,c#BciB Vektor von SCR CHAR POSITION 
res 7,h ROM-Bit ruecksetzen 

id tehrpos),hi in Programm eintragen 

1d hl,CaBC12) Vektor von SCR GET MODE 

res 7,h ROM-Bit ruecksetzen 

1d  (getmod),hi in Programm eintragen 


id hi, c#BDD4) Indirektion TXT WRITE CHAR 
14 (txture),hl in Programm eintragen 


TXT WRITE CHAR verbiegen 


1d nl,urto Adresse Textausgabe in Programm 
1d «#BDD4) ‚hl in Indirektion TXT WRITE CHAR eintragen 


Contrelcodetabelle verbiegen 


call @BBBI TXT GET CONTROLS 
Adresse Controlcodetabelle sichern 


520 
5“ 
540 
50 
560; 
Er 
=; 
5% 
600 
610 5 
620 
620 ; 
540 
650 
660 


Ef 
3 


Code fuer CHR$(24) 


Adresse Controlcode füer CHRS(24) 
Sprungadresse fuer CHRS(24) 
Einsprungadresse zum Invertieren 


als Adresse Controlcode CHR$(24) eintra 


Adresse Controlcodetabelle wiederholen 
Code fuer CHRS(27) 


ai2 23333338 


333 


Adresse Controlcode fuer CHR$(27) 
Anzahl Parameter auf eins setzen 
Einsprungadresse Steuer funktionen 


als Adresse Controlcode CHR$(27) eintra 


Initialisierung 


833 383338 


2 
Ss 


’ 
’ 
’ 
’ Variablendefinitionen 
; 
’ 


; 

steuer: defb #80 # Steuerflag (bit 0-6 fuer Funktionen) 
charı defb 0,0,0,0,0,0,0,0 ; Ergaenzungsnatrix 

invertz defb 0,0,0,0,0,0,0,0 ; Invertierungsmatrix 

xtabı  defb #81,#42,#24,#18,#18,#24,#42,#81; x - en 

sttab: defb #00,#01,#02,#04,#08,#10,#20,#40; Bittabelle 

B 


Listing 3. Der Quellcode für »Bildschirm de Luxe« (Fortsetzung) 


PRFEREEERFFFR 


Draw: Macht aus Ihren Ideen ein Kunstwerk 
inden Sie DR Draw, um Organisations-Diagramme, Flußdiagramme, Logos, techni- 
Zeichnungen, Schaubilder, Platinenentwürte und jede nur erdenkliche Art von 
" und Formgrafiken zu entwerfen. Und jeder Bestandteil Ihrer Zeichnung kann auf 
ige Weise durch Farben und Schraffuren hervorgehoben werden 


fachste Bedienung 

Draw verwendet leichtverständliche Menüs zur Steuerung seiner Funktionen und 
Jung einer Zeichnung. Sie können aus vorprogrammierten Figuren wie Kreisen, 

Bern, Rechtecken, Kreisbögen, Polygonen und Linien auswählen oder Ihre eigenen 

ken entwerfen oder die bestehenden verändern. An beliebigen Stellen kann erläu- 

der Text in eine Zeichnung eingefügt werden 


ibilität bei der Gestaltung 
Teil einer Zeichnung kann auf Tastendruck überarbeitet und verändert werden: 
in können mit Farben oder Mustern gefüllt werden; sie können vergrößert oder ver- 
toder an eine neue Position verschoben oder kopiert werden. Ebenso können die 
itarten, Größen, Farben und Positionen mit wenigen Tastendrücken geändert 


', Transparentfolie oder Film 

Immer Sie erstellen, kann gespeichert oder zu Berichts- und Präsentationszwecken 
Papier, Transparentfolie oder Film geplottet oder gedruckt werden. DR Draw druckt 
Zeichnung exakt auf eine DIN-A4-Seite. 


jarevoraussetzungen 
Draw läuft auf jedem Schneider CPC 6128 oder Joyce PCW 8256 mit einem oder 
Diskettenlaufwerken. Die Grafiken können auf jedem Drucker oder Plotter ausgege- 
‚werden, für den ein GSX-Treiber verfügbar ist. Dazu zählen Schneider-, Epson- und 
a-Drucker sowie der Plotter HP7470A. 


Fähigkeiten auf einen Blick 
Erstellung beliebiger Zeichnungen 
Yorprogrammierte Figuren wie Kreise, Quader, Rechtecke, Kreisbögen, Polygone 
nd Linien 
freie Wahl der Gestaltungselemente wie Farben, Muster und Schriftarten 
Wergrößerungen und Ausschnittdarstellungen 
Tele einer Zeichnung können kopiert, verschoben oder gelöscht werden 
Grafiken können gespeichert, geplottet oder gedruckt werden 
Sinfache Bedienung durch Mendauswahl 


DM 199,-* 


ir. MS 613 ‚Fr. 178-188 1 


‚Joyce PCW 8256 } 1 Laufwerk, Best-Nr. MS 618 (3"Disk) DM 194, (sFr. 175.) 
jer Joyce PCW 8512 4 2 Laufwerke, Bost-Nr. MS 623 (3*Diak.} DM 194, (sFr. 175,0) 


kl MwSt. Unverbindliche Preisempfehlung 


für Schneider CPC 6128 + J 


DIGITAL 
RESEARCH’ 


Markt&zechnik 


oyce 


DR Graph 


DR Graph: Präsentationsgrafiken mit professionellem Niveau 

DR Graph ist interaktives Softwarepaket, mit dem Sie Ihren Mikrocomputer zur Er- 
stellung von Geschäftsgrafiken und Text-Cherts verwenden können. DR Graph macht 
es leicht, komplexe geschäftliche oder wissenschaftliche Daten in übersichtliche und 
aussagekräftige Grafiken zu verwandeln. 


Einfachste Bedienung 

Mit DR Graph können Sie die Grafik dem Computer schnell und leicht beschreiben. Zur 
Erstellung einer Grafik werden die gewünschten Optionen ganz einfach aus übersichtli- 
chen Menüs ausgewählt. DR Graph kann von jedermann bedient werden, der mit einfa- 
chen Grundlagen der Mikrocomputerbedienung vertraut ist. 


Flexibilität bei der G tung 

Zusätzlich zur vorhandenen Computerschrift stehen drei verschiedene Schritten für 
Titelzeilen, Legenden und Anmerkungen zur Verfügung. Auch bei der Gestaltung der 
Grafiken kann aus zahlreichen Linientypen, Linien- und Balkenbreiten undacht Schraffu- 
ren gewählt werden. 


Ansehen, speichern und drucken 


Mit DR Graph können Sie auf dem Bildschirm immer genau sehen, wie Sie Ihre Grafik 
gestalten. Anschließend können Sie sie drucken oder auf Diskette speichern, um sie 
später weiter zu bearbeiten 


Hardwarevoraussetzungen 

DR Graph läuft auf jedem Schneider CPC 6128 oder Joyce PCW8256 mit einem oder 
zwei Diskettenlaufwerken. Die Grafiken können auf jedem Drucker oder Plotter ausgege- 
ben werden, für den ein GSX-Treiber verfügbar ist. Dazu zählen Schneider-, Epson- und 
Shinwa-Drucker sowie der Plotter HP7470A. 


Die Fähigkeiten auf einen Blick 

® Linien-Grafiken, Histogramme, Torten-Grafiken, Stufen-Grafiken, Strich- 
Histogramme, Punkte-Grafiken und Text-Grafiken 

® reie Wahl der Gestaltungselemente wie Beschriftungen, Titelzeilen, Legenden, 
Farben, Schriftarten und Ränder 

® frei wählbare Skalierung 

variable Linien- und Balkenbreite 

Schnittstelle zu anderen Programmen 

beliebig positionierbare Anmerkungen 

Grafiken können gespeichert, geplottet oder gedruckt werden 

einfache Bedienung durch Menüauswahl 
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Ausgabe von Zeichen auf Bildschirm 


ersetzt TXT WRITE CHAR 


wrtO: push Zeile / Spalte sichern 
1d a sichern 


’ 
defb 
getmat: defw CALL TXT GET MATRIX 


’ 
ex Adresse der Matrix dach de 


’ 
defb 
getmod: defw CALL SCR GET MODE 
cp ist Mode gleich 2 ? 
; 
1d a wiederherstellen 
pop Zeile / Spalte wiederherstellen 
defb 
txturt: defw IP NZ,TAT WRITE CHAR 
’ 
defb 
chrpos: defw CALL SCR CHAR POSITION 
; 
push 
ld iy,char Ergaenzungsmatrix 
ex de,hl 


Matrix ergaenzen und in den Bildschirmspeicher 
uebertragen 


b,8 

a, (steuer) 

ca Steuerbyte nach c 
wrt10: a,(hl) Zeichenmatrix nach a 


l,c Doppeldruck / Fettschrift ein ? 
zurt13 nein ==> 

a Matrixbyte nach rechts schieben 
(hl) mit Originalmatrix "OR" 


2,c ; Schmalschrift / Kursivschrift ein ? 
zywrtiS nein => 

a Matrixbyte nach links schieben 

nl) mit Originalmatrix "AND" 


(iy+#00) mit Ergaenzungsmatrix "OR" 


iy+invert-char) invertieren 
Matrixbyte auf den Bildschirm bring 


eine Zeile tiefer 


naechst Matrixbyte 
ni Ergaenzungsbyte 


AoB 
A083 
AOBE 
A087 
AOBB 
AOBA 
AOBC 
AOBE 
AOBF 
ao 
A093 
A035 
A096 
A099 
AOIC 
AOID 
AOIE 
AOAO 
AOAl 
AOAZ 
AOAd 


Matrix fertig ? 


Invertieren FLIP - FLOP 


214FA0 nvot id hl,invert 
id a,(hl) ; Invertierungsbyte nach a 
xor FF ; "undrehen" 
id b,8 
inva: ld (hld,a 
ine hl 
djnz inv3 


Jp  MBBIC 


Behandlung von Steurzeichen CHR$(27) + CHRS(K) 


unct0: Id hl,steuer Adresse Steuerbyte nach hl 
ep 0 Paramater a=0 ? 
jr nz, funct4 nein ==> 
res 7,(hl) Highbit Steuerbyte loeschen 
ret 


; 
funct4: bit 7,a highbit im Parameter gesetzt ? 
jr 2, funct6 ; nein ==> 
Highbit Steuerbyte setzen 


’ 

funct6: bit Highbit Steuerbyte gesetzt ? 
ret ; RETURN wenn nicht 

’ 
cp Paraneter > 7 ? 
ret 3a ==> RETURN 


a-tes Bit des Steuerbyte umdrehen 


hi,sttab ; Adresse Bittabelle Steuerbyte 
4,0 
e,a 
hl,de 
(steuer) } Steuerbyte nach a 
; entsprechendes Bit undrehen 
# abspeichern 


a wiederherstellen 
a modulo 7 
Adresse Sprungtabelle nach hi 


a nach de 
jphlins 


‚jpder 
Jp (de) 


’ 
’ 
’ Sprungtabelle fuer Parameter 
’ 
' 
f 


luntabı defv funt20 
defu funt10 
defw funt20 
defw funt30 
defw funt4o 
defw funtso 
defw funt&o 
defw funt70 4 Sprungadressen fuer Paran 1-7 


Param I : Unterstreichen ein/aus 


unt10: 1d a, tchar+7) ; Ergaenzungsmatrix, letztes Byte 
xor HF 3 undrehen 
ld (chart7),a ; abspeichern 


’ 
ret 


Param 2 + Doppeldruck / Fett ein/aus 


Param 3 : Kursiv / Schmaldruck ein/aus 


’ 
’ 
’ 
4 
’ 
funt20: ret 
’ 
’ 
; 
5 


Listing 3. Der Quellcode für »Bildschirm de Luxe« (Fortsetzung) 


AlOß 09 2760 funt30: ret 
2770 ; 
2780 ; 
279 ; 
2800 ; 
2810 ; 
A107 C3A9AO 2820 funt40: jp invo 
2820 ; 
2840 ; 
2850 ; 
2860 ; 
2870 ; 
AIOA SAMAAO 2880 funt50: Id a, Cchar+3) 
AtOD EEFF 2830 xor FF 
AlOF 324AA0 2300 1d  (char+9),a 
2310 ; 
All2 c9 2920 ret 
2930 
2340 
2950 
2360 
2970 ; 
A113 3447A0 2980 funt60: Id a,(char) 
AlG EEFF 2330 xor #FF 
A118 324740 2000 ld (char),a 
2010 ; 
AllB C9 3020 ret 
3030 ; 
2040 ; 
3050 ; Param 7 ı durch - x - en 
2060 ; 
3070 ; 
Atic FD2147A0 3080 funt70: Id iyschar 
A120 0608 3030 1d b,8 
A122 FD7EOO 3100 funt73: Id a,Ciy+#00) 
A125 FDAEIO 3110 xor (iy+xtab-char) 
A128 FD7700 3120 ld  Ciy+#00),a 
Al2B FD23 3130 ine iy 
Al2D 10F3 3140 djnz funt73 
3150 ; 
AlZF Cc9 3160 ret 


2750 ; 


Param 4 : Invertieren ein/aus 


3 JUMP invertieren 


Param 5 + durchstreichen ein/aus 


; 4. Byte der Ergaenzungsmätrix 
; umdrehen 
# abspeichern 


Param 6 : ueberstreichen ein/aus 


; 1. Byte der Ergaenzungsmatrix 


# abspeichern 


ein/aus 


; Adresse Ergaenzungstabelle 


Ergaenzungsbyte 
Tabelle durch-x-en 
abspeichern 

Zeiger erhoehen 


Listing 3. Der Quellcode »Bildschirm de Luxe« (Schluß) 


3 
> 
N 
= 
» 
Y% 
[7 
di 
Q 
B 


CALL 2AB08 
END 


„6A,AQ,2A,1B,BC 


CB,BC,22,78,A0, BC 
DATA CB,B&,22,6E D4,BD,22,75,A@ 
»21,67,A0,22,D4 
DATA BB,ES,11,18, 9,19,23,81,49 
„AB, 71,23,70,E1,1 7} 
Data 19,19,19,34, 91,B8,A0,71,23 
„78,C9,80,00,00, 20 
DATA 20,00, 00,00 00,00,00,00,00 
‚81,42,24,18,18, 
Data ad,al ‚22,04 28,48,E5,4F,CD 
„00, 20,EB,CD,00 
DATA @B,FE,02,79, 20,00,CD,00,08 
„FD,ES,FD,21,47,AQ 
DATA 08,34,44,A0 CB,49,28,83,CB 
‚SF ,B6,CB,51,28,85 7 
BATA_Ad,FD,B4,Qa,Fi 88,12,7A,C6,08 
57,23,FD,23,18,E1,FD,E1 
DATA C9,21,4F ‚AB, 7E,EE,FF ,06,88,77,2 
18,FC,C3,9C,BB,21,46,AQ 
‚@@,28,@3,CB,BE,C9,CB,7F,28,8 
»7E,CB,FE,B8, 
AG} 16,00,5F,19,34,46,AB,A 
»79,E6,87,21, 
„08,5F,19,19,5E,23,56,D5,C 
»95,A1,86,A1 
HA1,13,A1,1C,A1,3A,4E,A 
»A8,09,C9,07 
‚3A,4A,AQ,EE,FF,32,4A,A 
JEE,FF,32,47 
AB,@6,08,FD,7E,8 
@0,FD,25 
FOR z=1 TO &130 Listing 4. 
READ a$ 
az=VAL ("&r+as) Der Basic-Lader 
POKE HIMEM+z,a% für »Bildschirm 
NEXT de Luxe« 


[30561 
TASFAI 
187981 
Las@E] 


[543C1 
LAFFAI 
L82A41 
16898] 
CF16C3 
L@zAacı 


[6E56] 
CABABI 
TAACEI 
L&638C] 
CABA&] 
C1448] 
119543 
[78E8] 
L63D2] 
EICICI 


1@ MODE 2 

2® FOR z=1 TO 7 

3@ PRINT"Dieses ";CHR$(27) 5CHR$(Z);5"W o 
r t"3CHR$(27),5CHR$(Z);" ist hervorgeh 
user 

48 NEXT z 


Listing 5. So können Sie Texte hervorheben 


18 a=2:b=PI:MODE 2:PLOT 648,20@:FOR c=® 
TO 639:DRAW 32@* (1+C05(c)) „2@@*(145IN 
(axc+b) )zNEXT 


Einfach und 
doch sicher 


Oft bietet ein einziger Befehl einen guten Kopier- 
schutz. Testen Sie doch einfach mit Hilfe der Lade- 
geschwindigkeit, ob das Original vorliegt. 


or allem wer Programme verkaufen will, sucht beim 

Schneider nach einem wirkungsvollen Kopier- 

schutz. Auf »SAVE ”datei”,P« kann man sich nicht 
verlassen. Einen erheblich besseren Schutz stellt die Varia- 
tion der Ladegeschwindigkeit dar. 

Dieser Kopierschutz funktioniert nur bei Programmen auf 
Kassette. Das Programm kann weder auf eine andere Kas- 
sette noch auf eine Diskette überspielt werden. Der Schutz 
beruht auf der Eigenschaft der Schneider-Computer, Pro- 
gramme auf dem Recorder mit unterschiedlicher Geschwin- 
digkeit aufzuzeichnen. MitSPEED WRITE - oder der System- 
routine CASSET SPEED - kann die Geschwindigkeitin einem 
sehr weiten Bereich festgelegt werden. 

Beim Laden erkennt der Computer die Aufzeichnungsge- 
schwindigkeit. Er speichert dafür einen Code. Dieser Code 
steht nach dem Laden im RAM und ist von dort aus zu lesen. 
Gängige Kopierprogramme besitzen zwar oft die Fähigkeit, 
Programme mit unterschiedlicher Baudrate aufzuzeichnen. 
Aber die Variationsbreite ist groß, und wenn man sein Pro- 
gramm standardmäßig mit einem »krummen« Wert speichert, 
ist es sehr unwahrscheinlich, daß das Kopierprogramm 
gerade diese Geschwindigkeit zum Speichern wählt. Den 
Geschwindigkeitswert kann man dann zum Test auf Kopie 
benutzen. Stimmt die festgestellte Ladegeschwindigkeit 
nicht mehr mit dem im Programm festgelegten Wert überein, 
bedeutet das, daß der Benutzer das Programm kopiert hat. 

Besitzer des CPC 664 oder des CPC 6128 müssen statt 
BSCF hex in den Zeilen 10 und 20 die Adresse BIE7 hex 
abfragen. Um das vorgestellte Programm auszuprobieren, 
bitte unbedingt vorher ein Programm von der Kassette laden. 
Sie erhalten dann mit der Routine dessen Baudrate. 

Wenn eine Abfrage nach der Geschwindigkeit gut in einem 
Maschinencode-Programm versteckt ist, bietet dieser einfa- 
che Trick einen sicheren Kopierschutz. Sie dürfen natürlich 
nicht gerade die Standardgeschwindigkeiten 1000 und 
2000 Baud verwenden. Nehmen Sie lieber beispielsweise 
1100 und 2100 Baud. Die »krummen Werte« sind auch von 
wirklichen Crackern oft nur durch Ausprobieren herauszu- 
finden. (Martin Kotulla/hg) 


18 IE el THEN PRINT "SPEED 


TE_9" IF6BAI 

20 IF "PEEK (LBBCF)=66 THEN PRINT "SPEED W 
RITE 1":END CBSAEI 
38 PRINT "WEDER @ NOCH 1" LF1ABI 


Listing. Testen Sie die Ladegeschwindigkeit des Programms 


Farben- 
Geflimmer 


Viele KassettenTurbolader bringen während des 
Ladevorgangs den Bildrand zum »Flimmern«. So 
gelingt auch Ihnen dieser Effekt... 


er Basic-Lader »Border« erzeugt den nötigen 
Maschinencode und enthält eine Demonstration der 
Effekte. Mit INPUT sind die Werte für Streifenbreite 
und Zahl der Farben einzugeben. Sie werden dem 
Maschinen-Programm in den Adressen AOOO und A001 hex 
bereitgestellt. (Dieter Braun/ja) 


ern 


L2FACI 
. Border-Effekte 
1B7C41 
* - 
[D2BC] 
* Erzeugt mehrfarbigen Rand und 
14476] 
- wartet auf Tastendruck 
156761 
. 
t2EC2] 
* Farbanzahl und Streifenbreite 
LESFA] 
* angebbar 
1162A1 
* 
152C81 
er Copyright by Dieter Braun 
* tEAZAI 
7} Maerz 1986 
* 1C248] 
EEE 
* 19C781 
138 GOSUB 238 [7ED2 
148 INPUT "Streifenbreite(S5 SPACE} (1-255 
>_ "sm LEF421 
15@ IF w<i OR w>255 THEN 148 CBBFEI 
168 INPUT "Anzahl der Farbent2 SPACE} (1- 
32)(2 SPACE)"; CBF@4] 
178 IF a<i OR a>32 THEN 168 £1540] 
180 PRINT t&DEC1 
198 POKE LABOR,m [BF46] 
POKE &ABB1,a 1768C] 
218 CALL &AB1® E7ECEI 
22@ RUN 148 C17BC] 
23@ MEMORY &IFFF L9FBEI 


248 DATA &3A,L00,LAB,&47,E3A,801,&AB,&AF 
DATA %16,800,&C05,%01 ,&00,&7F ‚KSE,&11 
DATA LED,&79,&AF ‚LIE ‚&40,&82,&ED,&79 


1812A] 

27® DATA &C1,805,&10,&FE,&01,%14,&79,&BA 
CS8F6J 

28@ DATA %20,%E8,&CD,%09,&BB,&30,&D9,&09 
C478E1 
29@ FOR n=4897& TO 41015 TA6AAI 
3@® READ a:POKE n,a TAAABI 
31@ NEXT n 13492] 
32@ RETURN LACZAI 
33® * Gute Zahlenpaare: CBEAE] 
zu T86&BC] 

35® ‘ 178/24 115/12 2915 31/4 2857 
7 LFE7@I 

36@ ' 49/15 46/13 1/24 255/16 23/2 
7 122681 


Listing. Bunte Spielereien 


Kopierschutz 


Name: 


Computer: CPC 464/664/6128 


Computer: 


Checksummer: | 
Datenträger: 


Explora 
Kassette 


RAR 


Checksummer: 


rw 5 3 Rave r e 


Spion aus dem Stack 


Programme, die keinen oder kaum RAM-Speicher- 
platz belegen, gibt es eigentlich nur auf ROM- 
Basis. »RSX-Dump« aber schafft es, sich im Ar- 
beitsspeicher zu »verstecken«. 


auseinandersetzt, besitzt sicher das eine oder andere 

Programm, mit dessen Hilfe er sich Inhalte von Spei- 

cherbereichen anzeigen läßt. Wenn nun jedoch das zu unter- 

suchende Programm zufällig im gleichen Adreßbereich des 

Arbeitsspeichers liegt oder diesen gar komplett ausfüllt, ist 

guter Rat teuer. Nur Besitzer entsprechender ROM-Software 

(beispielsweise Arnors »Maxam«, Vortex-Speichererweite- 

rung oder VDOS 2) sind aus dem Schneider, denn diese 

belegen in kaum nennenswertem Umfang RAM-Speicher. 

Daß man auch mit »normaler« Software, die sich im Arbeits- 

speicher befindet, solche Probleme vermeiden kann, 

beweist »RSX-Dump«. Es belegt die Adressen AFOO bis 

B070 hex. Diesen Bereich nutzt normalerweise das 

Locomotive-Basic als Software-Stack. Ab BO8A hex (BOGE 

hex beim CPC 664 und 6128) legt der Interpreter dort Werte 

zwischendurch ab. Dieser Stack »wächst« in Richtung niedri- 

gerer Adressen hinunter bis nach AE8B hex (AE6F hex). 

‚Somit ist klar, daß »RSX-Dump« nicht mit Basic-Programmen 

verwendet werden sollte. Nur wenn es sich um kleinere Pro- 

gramme handelt, ist ein Überschreiben der RSX-Erweiterung 

durch den Stack vermeidbar. Da ein solches Tool aber ohne- 

hin meistals eigenständiges Hilfsmittel eingesetzt wird, erge- 

ben sich in der Praxis keinerlei Probleme. Schon der Name 

»RSX-Dump« sagt, wie die Befehlserweiterung in das 

Betriebssystem der Schneider-Computer eingebunden ist. 

Der Befehl DUMP beginnt also mit dem senkrechten Balken, 

der bei gleichzeitigem Druck der Tasten »SHIFT« und »@« auf 

dem Bildschirm entsteht. Tippen Sie zunächst das Listing 

des Basic-Laders ab und speichern Sie es zur Sicherheit. 

E Beim Starten mit »RUN« erzeugt der Lader automatisch das 

 _  Maschinencode-Programm »DUMPBIN«, das Sie dann zum 

späteren Gebrauch benötigen. Sie laden es durch »LOAD 

_  "DUMPBIN”, &AF00«. Nach »CALL &AF00« steht Ihnen der 

neue Befehl zur ständigen Verfügung. Drei Parameter sind 

beim Aufruf zu übergeben: Start- und Endadresse des Spei- 
cherbereichs sowie der Ausgabekanal. 

»IDUMP38100,&200,0« listet den Inhalt der 256 Byte zwi- 

schen 100 hex und 200 hex auf dem Bildschirm auf. 

»IDUMP1024,42619,8« gibt den Bereich von Adresse 1024 

dez bis zum Beginn des Disketten-Controller--RAMs über den 

Drucker aus. Wie von den meisten Monitor- und Debugger- 

Programmen gewohnt, steht rechts neben der Angabe der 

Bytes die entsprechende ASCIl-Interpretation zur schnellen 

Erkennung von Textfeldern. 


3 ‚eder Programmierer, der sich mit Maschinensprache 


(Raimund Schuldhaus/ja) 


Name: RSX-Dump 


Computer: CPC 464/664/6128 
Checksummer: Explora 
Datenträger: Kassette/Diskette 


belegt Basic-Stack 


91 @9 ar 21 1S Ar CH DI BCE AF CH 


AlSO: SA BB C# Fi FS FE BO 


Eine typische Ausgabe auf Drucker 


fi 
Zu 1qu”8. >. nmad= 


nn LCEDE] 
e Hex-Dump (c) 12.1985 by * CAC1BI 
Raimund Schuldhaus * [8984] 
/* Marburger Str.26, 6380 Giessen * 
LIESS Terre rer 


168 DATA @1,09,AF,21,13,AF,C3,D1,BC,QE,A 
F,C3,17,AF,44,55,-1739 
178 DÄTA’AD,DB,00,00,00,00,00,FE,03,DA,6 
9,58,C2,5D, B@,DD,-1725 
DATA" 7E,81}B7,C2,61 ,BQ,DD,7E,00,FE,@ 
9,D2,61,B8,32,56,-20@ 
DÄTA BO,FE,88,20,87 ,3E,10,32,57,B@,1 
8,11,CD,11,BC,B7,-1582 
200 DATA'CA,65,B0,47,3E,84,CB,27,10,FC,3 
2,57,B8,DD,5E,@2,-1756 
DATA’DD,56,03,DD}6E,@4,DD,66,05,E5,B 
7,ED,52,E1,DA,64,-2247 
DATA’AF)C2,61,B0,ED,53,59,B0,54,5D,3 
E,@D,CD, 1A,B@,AF)- 2061 
TR 72358180, 39,57 ,88,47,74,CD,F9,A 
2i 


'9,AF,CD,1A,B8,79,C 
2214 
'D,1A,B0,ED,53,5B,B 
2150 


178141 
LEA2@] 
12392] 
1C7SE1 
+ CBAC2] 
LASDB1 
t44E2] 


F 
cı 


@,13,1@,ED,3E 
DATA'CD, 1A,B®,ED,SB,5B,B0,34,57,50,4 
7,1A,FE,20,30,82,-1756 
DATA’SE,2E,FE,7F,20,82,3E,2E,CD,1A,B 
un 
88,28, 10,34,58,B@,FE,18,2 
8,05,CD, 18,BB,SE,-1409 "" casbeı 
DÄTA’FF,3C,32,58,B@,3E,@D,CD,1A,B0,3 
E,@A,CD, 14,58, 2A,-1532 120141 
sıa DÄTA'S7,B0,B7,ED,52,D2,73,AF ,C9,FS,C 
3F,CB,3F,-2511 1B38A1 
328 DÄTA’CB,SF,FE,0A,38,@2,06,87,06,30,4 
ou DAIR "BIER CE BIC ar, zo acucn,r (1029 
,02,C06,07,C06,38 +79,40,09,F 
5,C5,3E,42,CD, 1E,-1815" he LCFA&I 
DATA 'BB,C1,28,05,F1,E1,09,34,56,B@,F 
5,08,28,85,F1,cD, 216 LF@D23 
LAFaBI 
ta1r21 
194041 


TA 5A,BB,C9,F1,F5,FE,80,38,13,3E,1 
2091 


'D,4D,B®,AF,CD,4D,B 
8,C9,F1,CD,2E,BD,-2572 

37@ DATA 38,FB,CD,31,BD,C9,28,00,00,00,8 
2,00,00,1E,02,18,-1807 


38@ DATA @A,1E,05,18,06,1E,06,18,02,1E,1 
&,CD,88,89,C3,94,-922 LBCC6I 
39@ DATA'CA,-; EBCCEI 
400 MEMORY L9FFF C9FBCI 
410 adr- CD4491 
4208 FOR i%=1@ TO 33 [48641 
430  READ op$sIF LEFTS(op$,1)="-"THEN 4 
60 LSB6CI 
448  Op%=VAL("E"+op$)POKE adr ‚op 178EA1 
450 adr=adr+1:psum/=psum%+op%:G0T0 430 5 
1C748 
460 IF psum%+VAL(op$)=® THEN 488 EF1DAI 
470 PRINT"(2 SPACEIDATA-Fehler in Zeil 
e"5iZ#1Q:END EC63CI 
480 psumi=B: NEXT CF2181 
498 SAVE"dump.bin" ‚b,LABBQ,367 


Listing. Hexdump aus dem Stack 


Blitzschnell im Programm 


Schnell genug kann es eigentlich nie gehen. Des- 
halb beschleunigen Sie doch einfach Ihr 3-Zoll- 
Laufwerk mit dem Programm »Turbo-Disk«. 


ie CPC-Besitzer sind ja eigentlich noch ganz gut 

dran, wenn man die Ladezeiten mit Laufwerken 

anderer Computer vergleicht. Und doch: Warum 
nicht Zeitsparen, wenn es leicht möglich ist? Der Basic-Lader 
erzeugt ein kleines Maschinencode-Programm, das Disket- 
tenzugriffe um zirka 20 Prozent beschleunigt. Dieser Effekt 
hält so lange an, bis Sie Ihren Computer ausschalten oder mit 
»CTAL-SHIFT-ESC« einen Reset auslösen. Im CP/M-Betrieb 
benötigen Sie noch nicht mal ein eigenes Programm für den 
Geschwindigkeitsgewinn. Wenn Sie das Betriebssystem erst 
einmal mit »SETUP« manipuliert haben, wird der »Turbo- 
Lader« automatisch bei jedem CP/M-Start aktiviert. Die 
genaue Vorgehensweise Schritt für Schritt: 


Turbo-Disk 

CPC 464/664/6128 

Explora 

Diskette 

arbeitet nur auf 3-Zoll-Laufwerken 


Computer: 


Checksummer: | 
Datenträger: 
Besonderes: 


»Setup«, ENTER, Y, Y, Y, Y, Y, Y, Y, Y, Y, »N40«, ENTER, 
»YN200«, ENTER, »YN10«, ENTER, Y, Y, Y, Y, Y. Natürlich läßt 
sich dieses verbesserte CP/M mit »BOOTGEN« auf jede 
Arbeitsdiskette übertragen. 


(Sebastian Scala/ja) 
I: REM nn . 

2@ REM * TURBO DISK “ E3CE23 
3@ REM « (©) 1986 by ” [88441 
a REM * Sebastian Scala * [2E34] 
SO REM * Am Silberberg 28 * 1695C1 
60 REM * A - 8842 Graz * L6DDCI 
70 REM * Tel: (B316) 48-16-15 «* [9448] 
80 REM re tcac8] 
90 REM [9E1AI 
188 REM [SE2A] 
118 FOR a=@ TO 18 [2DA&J 
12@ READ as [3CE81 
138 POKE a+&KABBB,VAL("L"+as) CE7001 
14@ NEXT [69EB] 
15@ CALL &ABBO CABD21 
16® MODE Z:PEN 1:PAPER @r INK 1,24: INK @, 

@: BORDER 9 128603 
17@ PRINT"TURBO DISK ist nun aktiviert," 

ı 

PRINT“ihre Floppy ist jetzt 

ca. um 1/5 schneller als vorher !"ıP 

RINT 1382AJ 
18@ NEW L7A46] 
19@ DATA 21,@A,AB,DF,07,A8,C9,00,06,97,2 

3,00,C8,80,01,01,04,00,03 133321 
Listing. Schnell, schneller, Turbo 


FIBUKING-Finanzbuchführung 
Einfach zu benutzendes Buchführungsprogramm auf der Basis einer 
doppelten Buchführung. Durch jederzeit mögliche Bilanzauswertung 
haben Sie ständig den Überblick über sämtliche Konten. Weitere 
Pluspunkte sind: 
— 60 definierbare Konten, bis zu 99999 Buchungen 
— mehrere Buchführungsdateien auf einer Diskette anlegbar 
— Ausdruck von Grundbuch, Kontenblatt, Kontenrahmen, Bilanz 
— Ideal für Kleingewerbe und Freiberufler 
FIBUKING für JOYGE oder CPC, 3” Disc incl. Anleitung 

nur 136,— DM 


PROFIREM-Geschäftssoftwarepaket 


FAKTURIERUNG, LAGERDATEI, ADRESSENVERWALTUNG 
JOYCE-Version für 1000 Adressen, 1000 Artikel, nur 178,— DM 
CPC..Version für 400 Adressen, 400 Artikel, nur 136,— DM 


Elfriede VAN DER ZALM — Software-Entwicklung & Vertrieb 
Schieferstätte, 2949 Wangerland 3, Telefon 04461/5524 


CPC 464 FORTH 


Erleben auch Sie auf Ihrem CPC 464 die Geschwindigkeit eines schnellen 


erweitert, das System setzt ebenfalls Windows ein. 
Das Programm wird mit einem 180seitigen deutschen Handbuch geliefert. 


data berger 


OKIDATA-DRUCKER 

OKIMATE 20 der 4-Farb-Drucker 798,- 
Microline 182 120 zisec; nıo 798,- 
Microline 192 160 zisec; nıo; 

Stiftung Warentest »Sehr gute 1498,- 


Microline 192 wie zuvor, jedoch mit Einzeiblatteinzug 1 798,- 


PANASONIC-DRUCKER 


KXP - 1080 100 Z/Sec. NLO: Epson-kompatibel 798,- 
KXP - 1091 120 Zisec. NLO; Epson-/IBM-komp. 998,- 
KXP - 1092 180 Zisec. NLQ; NLO; Grafik 1098,- 
KXP - 1592 180 Z/sec; DIN Aa 1698,- 
CITIZEN 120 D 140 Z/sec; NLO; AK-Putfer; Grafik 898,- 
STAR-Drucker 
NL10 1145,- 
SG10/SG15 1195,-11 650,- 
SD10/SD15 1595,-/2100,- 
SR10/SR15 2150,-/2650,- 
SCHNEIDER CPC 6128 grün 999,- 
Farbe 1698,- 


Wir nehmen gebrauchte CPC und 
Peripherie in Zahlung! 


Im Lichtenfelde 76, 4790 Paderborn 


IR 


Maschinencode-Routinen sind das Salz in der 
Suppe der selbstgeschriebenen Programme. Will 
man diese aber willkürlich irgendwo im Speicher 
ablegen, dann treten einige Probleme auf. 


esonders schnelle Programme, beziehungsweise 

Unterprogramme, entstehen, wenn man sie in 

Maschinencode schreibt. Allerdings erfordert solch 
eine maschinennahe Sprache höchste Sorgfalt bei der Ent- 
wicklung. Während man in Basic Unterprogramme mit einem 
Befehl GOTO <Zeilennummer> aufrufen darf, muß man bei 
Maschinencode-Routinen die genaue Adresse im Speicher 
kennen. Sind mehrere Programme geladen, so kann es pas- 
sieren, daß zwei an der gleichen Adresse stehen. 

Gute Maschinencode-Routinen sind deshalb immer so 
geschrieben, daß sie frei verschiebbar sind. Das erreicht 
man, indem man absolute Adressen vermeidet. Zum Starten 
braucht man aber noch die Startadresse. Wie man die aus 
dem Computer »herauskitzelt«, das lesen Sie hier. 

Ein Weg fällt den meisten Z80-Programmierern sofort ein. 
Man ruft ein Unterprogramm auf, das die Rücksprungadresse 
vom Stack holt und in ein Register überträgt. Listing 1 (Basic- 
Lader in Listing 2) zeigt solch eine Routine. Nach dem Aufruf 
der Routine liegt die Startadresse im Speicher an der 
‚Adresse 0160 und 0161 hex undkann dort mit »PRINT(PEEK 
(&0160)+PEEK (&0161)*256)« abgefragt werden. Diese 
Lösung hat aber einen schwerwiegenden Nachteil. Sie ver- 
langt eine absolute Unterprogrammadresse, was wir ja 
gerade vermeiden wollten. Folglich wandert sie in die Abtei- 
lung P - sprich Papierkorb. 

Eine bessere und auch kürzere Routine bietet Listing 3 
(Basic-Lader Listing 4) an. Sie macht sich die Eigenschaft 
der Schneider-Computer zunutze, im Betriebssystem-RAM 


Selbstuntersuchung 


einen Zeiger auf ein CALL-Unterprogramm oder eine RSX- 
Routine zu speichern. Beim CPC 464 liegt dieser Zeiger bei 
AE72 hex, bei den Nachfolgemodellen 664 und 6128 aber 
an der Adresse AE55 hex. Und das ist der Nachteil. Denn 
man muß immer die auszulesende Adresse für den Zielcom- 
puter einsetzen. Die Listings beziehen sich auf den CPC 
464. Die Änderungen für die beiden Nachfolgermodelle ste- 
hen in Listing 5. 

Erst die dritte Lösung entspricht unseren Anforderungen. 
Sie ist besonders universell, da sie weder absolute Sprünge 
innerhalb des Programms noch systemspezifische Adressen 
benutzt. Der Trick beruht auf den ausgeprägten Interruptfä- 
higkeiten der Schneider-Geräte. Die beiden Maschinencode- 
Befehle »El« lassen Interrupts zu und »HALT« stoppt alle Pro- 
zessoraktivitäten, bis der nächste Interrupt auftritt. Dieser 
läßt nicht lange auf sich warten, und hinterläßt auf dem Stack 
„als Geschenk an das Programm« die Rückkehradresse, die 
gleichzeitig die Programmadresse ist. Allerdings muß der 
Stackpointer SP mit einem zweifachen »DEC SP« manipuliert 
werden. Dann kann man aber die Adresse aus dem Register 
HL übernehmen. Dieses Verfahren beschränkt sich übrigens 
nicht nur auf den Schneider CPC, sondern läßt sich auf viele 
andere Z80-Computer übertragen. Listing 6 zeigt das 
Assembler-Programm und Listing 7 den zugehörigen Basic- 
Lader. (Martin Kotulla/hg) 


Name: Call 
Computer: CPC 464/664/6128 


Kassette, Diskette 


ORG LADDO 
START CALL CALC_ADDRESS 
LD (&@189) „HL 
RET 
CALC_ADDRESS POP HL 
PUSH HL 
DEC HL 
DEC HL 
DEC HL 
RET 
END 


Startadresse nach HL holen 
In %&216&2 abspeichern 
Rücksprung nach Basic 


Rücksprungadresse nach HL 
Rücksprung wiederherstellen 
Um drei Bytes die 
Startadresse in HL 
vermindern 

Rücksprung zum Hauptprogramm 


EACH 


E71 MEMORY ÄSEEF i=KABOB TO LABBC 
0 READ asıFOkE ES re i 11566] 
5@ CALL &A0aB 198781 


&8 PRINT "Die Startadresse liegt bei"; 


7@ PRINT PEEK (&168) +PEEK (%161) #256 CED1AI 


LADOD 


HL, (&AE72) 
(&Q16BD) „HL 


Listing 1. Häufig bekannt, aber nicht optimal, ist die Lösung 1 


4 Listing 2. Wer sich mit dem Assembler-Programm nicht 
anfreunden will, findet hier den Basic-Lader für Listing 1 


; Startadresse nach HL holen 
; In &216® abspeichern 
; Rücksprung nach Basic 


DATA 2A,72,AE,22,68,91,09 
INPUT "Welche Startadresse? ",s 
MEMORY s-1:FOR i=s TO s+6 
READ a$:POKE i,VAL("&"+a$) NEXT i 
CALL s 

&8 PRINT "Die Startadresse liegt bei"; 
PRINT PEEK (148) +PEEK (%161) #256 


10 DATA FB,76,3B,3B,E1,2B,28,22,60,01,09 _ 


2@ INPUT "Welche Startadresse? ",s 
30 MEMORY s-1:FOR i=s TO s+18 

40 READ a$ıPOKE i,VAL("&"+a$) NEXT i 
5® CALL s 


START LD HL, (&AESS) 


1® DATA 2A,55,AE,22,68,81,09 


Listing 5. Für den CPC 664 und 6128 müssen Sie im 
Assembler-Programm die zweite Zeile und im Basic-Lader 
Zeile 10 ändern 


Interrupts zulassen 

Warten auf Interrupt 
Stackpointer um einen 
Eintrag nach unten schieben 
Adresse holen 

Berichtigen, EI-Code abziehen 
Berichtigen, HALT abziehen 
Adresse speichern 

Rücksprung nach Basic 


68 PRINT "Die Startadresse liegt bei"; 
7® PRINT PEEK(&16®) +PEEK (4161) #256 


[SEBCI 
CCD1AJ 


Listing 7. Frei verschiebbar, und die gesuchte Adresse 
steht in 160 und 161 hex 


Tolle Video- 


Tricks 
OUT heißt der Basic-Befehl, der den Video-Chip zu 
ungeahnten Fähigkeiten antreibt. 


er Basic-Befehl OUT gehört wie bei vielen Compu- 

tern auch beim Schneider zu den nur sehr selten 

benutzten Kommandos. Der Grund liegt darin, daß 
fast niemand weiß, was man damit Sinnvolles anstellen kann. 
Und dabei gibt es viele reizvolle Möglichkeiten. 

Auch den Video-Chip im Schneider, ein Motorola 6845, 
steuert der Computer über OUT-Befehle. Er besitzt eine 
Reihe von Registern, die Werte aufnehmen können, die wie- 
derum die Arbeit manipulieren. 

Die Programmierung des Chips ist somit auch von Basic 
aus möglich. Um einem Register einen Wert zu übermitteln, 
muß über die Portadresse BCOO hex die Registernummer 
ausgegeben werden und unmittelbar danach über BDOO hex 
der Wert. Wollen wir beispielsweise in das Register 5 den 
Wert 20 eintragen, sind folgende Befehle notwendig: 

OUT &BC00,5:0UT &BD00,20 

Das Register 2 (Horizontal Synchro Position) bestimmt, wo 

genau auf dem Monitor der Inhalt des Video-RAMs angezeigt 
(Martin Kotulla/hg) 


OuTEBa5 
CPC 464/664/6128 


Steuerung des Video-Chips 
‘ Motorola-6845 im Schneider-CPC 
: ueber OUT-Befehle 
: c) Martin Kotulla 
ESS SE SE I I 52 
Mope 1 
FOR i=1 TO_25 
8® PRINT TAB(5)} "DEMONSTRATION FUER OUT 
-BEFEHLE" 


NEXT i 
ON BREAK GOSUB 27@ 
Sofauptprogramm ssssnssanssnnnsseer 
1:1NK_@,26 
FOR i=® TO 47:CALL &BDI9:0UT &BCOB,2 
z0UT &BD@B,i:NEXT i 
FOR i=47 TO ® STEP -1:CALL &BD19:0UT 
&BCO@,2:0UT &BD®@,i:NEXT i 
S0TO 238 
” Break-Routine wersernmenenenene 
27@ OUT %BC@®,2:0UT &BD88,46 
28@ OUT &BC@@,7:0UT %BD00,3@ 


290 END 
{CTRL ZILCTRL II13@ ' 
148 ‘ 


(c) Martin Kotulla 


" Steuerung des Video-Chips 

‘ Motorola-6845 im Schneider-CPC 

" ueber DUT-Befehle 

‘ te) Martin Kotulla 
Eee ee er 
MODE 1 

FOR i=1 TO_25 

PRINT TAB(5) } "DEMONSTRATION FUER OUT 
-BEFEHLE" 


NEXT i 
ON BREAK GOSUB 278 
* Hauptprogramm rss 
BORDER 1: INK B,26 [? 
FOR i=@ TO ATCALL &BD19:0UT &BC88,2 
:0UT &BD@B,i:NEXT i 
FOR i=47 TO ® STEP -1:CALL &BD19:0UT 
&BC®@,2:0UT &BDB®,i:NEXT i 

25@ 60T0 238 


* Break-Routine HHmHHnnnnne 
OUT &BCB®,2:0UT &BDB@,46 
28@ OUT &BC0@,7:0UT &BDO0,30 


Listing. Tolle Effekte mit dem OUT-Befehl 


Das »CAT- 
Syndrom« 


Haben auch Sie Probleme mit der Kombination 
3-Zoll-Laufwerk und Vortex-Speichererweiterung? 
Ihnen kann geholfen werden. 


er ein 3-Zoll-Laufwerk besitzt und freudenstrah- 
lend seine neu erworbene Speichererweiterung 
in Betrieb setzt, erlebt oft eine herbe Enttäu- 
schung: Beim Befehl CAT produziert sein Laufwerk allesmög- 
liche, nur kein sinnvolles Directory! Natürlich schlußfolgert er, 
daß der Fehler nur bei der Erweiterung zu suchen ist; vor dem 
Einbau hat schließlich noch alles einwandfrei funktioniert... 
Und doch ist das nur die halbe Wahrheit. Durch die zusätzli- 
che Elektronik ist zwar tatsächlich das System überlastet; der 
Hauptschuldige ist jedoch der Computer - oder vielmehr 
seine Hardware-Entwickler. Derartige Probleme treten näm- 
lich prinzipiell bei Einsatz jeglicher zusätzlicher Peripherie 
ein. Überspitzt ausgedrückt sind die CPCs so konstruiert, 
daß sie keinen Anschluß weiteres Zubehör verkraften. Die 
Erklärung dafür ist einfach: Der Systembus ist bis hart an die 
Grenzen der Belastbarkeit ausgereizt. Und wenn dann die 
geringste Kleinigkeit dazukommt, führt das fast immer zum 
Zusammenbruch des Systems. Aufgrund von Streuungen in 
der Serie tritt dieser Effekt aber nicht immer auf. Eine aus- 
weglose Situation? Mitnichten! Wenn Sie Zugriff auf einen 
EPROM-Brenner haben, ist Ihnen zu helfen: Kopieren Sie 
den Inhalt des Controller-ROMs in ein EPROM, denn es ver- 
fügt über eine höhere Treiberleistung als das ROM. (ia) 


Gut gerüstet 


Viele Benutzer kaufen sich aus preislichen Grün- 
den die kleinste Stufe der Speichererweiterung, 
um sie dann selbst aufzurüsten. Doch ganz ohne 
Tücken ist das nicht. 


der Praxis meist durch Bestücken der zweiten RAM- 

Bank. In diesem Falle müssen Sie auf den weiteren 
freien Sockel einen Logikbaustein setzen. Er dient der Deko- 
dierung des zusätzlichen RAM-Bereichs. Dabei sollten Sie 
darauf achten, daß es sich um einen HCT-Typ handelt 
(74HCT378). Diese benötigen extrem wenig Strom und sind 
sehr schnell. Mit gewöhnlichen LS-Typen kann es zu Kompli- 
kationen kommen. Als RAM-Bausteine wählen Sie solche mit 
Zugriffszeiten von 120 Nanosekunden. Wer im Betriebssy- 
stem der Karte Änderungen vornehmen will, muß das ROM 
gegen ein gepatchtes EPROM tauschen. Einer einwand- 
freien Funktion dienen hier Typen mit 250 Nanosekunden 
Zugriffszeit. 

Nur in Ausnahmefällen hat wohl ein Benutzer Interesse 
daran, die Platine öfters ein- und auszubauen. Um die 
Anschlußbeinchen des Gate-Arrays zu schonen, ist dann 
empfehlenswert, es mit einem eigenen Sockel auszustatten. 

(Udo Reetz/ja) 


D ie Aufstockung der Speicherkapazität geschieht in 


Wordstar 
in der 
RAM-Disk 


Wordstar und eine Speichererweiterung von Vor- 
tex. So wird Textverarbeitung wirklich komfortabel. 


er Wordstar auf dem Schneider CPC unter CP/M 

2.2 wirklich sinnvoll benutzen will, kommt um die 

Anschaffung einer Speichererweiterung 
meist nicht herum. Die weit verbreitete Vortex-Karte bietet 
unter CP/M eine RAM-Disk als Laufwerk C mit einer Kapazität 
von über 400 KByte (bei voller Ausbaustufe auf 512 KByte). 
Doch bei jedem Systemstart beispielsweise den kompletten 
Wordstar und den zu bearbeitenden Text in die Speicherer- 
weiterung zu übertragen, ist unnötige Arbeit. Das Programm 
SUBMIT.COM macht das einfacher. Kopieren Sie es dazu auf 
Ihre Wordstar-Diskette. Dann geben Sie die Submit-Datei aus 
Listing 1 als NEW.SUB mit dem Wordstar-Editor (N-Modus) 
ein. Listing 2 erhält den Namen ED.SUB. 

Wenn Sie die RAM-Disk njcht gleich beim Start von CP/M 
mitformatieren, dann benötigen Sie noch das Programm 
RAMDISK.COM von Vortex auf Ihrer Wordstar-Diskette. Um 
einen neuen Text zu bearbeiten, laden Sie CP/M und tippen 
folgendes: 

A>RAMDISK 
A>SUBMIT NEW datei 

Das Programm kopiert alle Wordstar-Teile und PIPCOM in 
die RAM-Disk und startet die Textverarbeitung. Danach kön- 
nen Sie Ihren Text bearbeiten. Drücken Sie CTRL-KX, wird 
SUBMIT wieder aktiv und überträgt die Datei auf die Original- 
diskette im Laufwerk A zurück. Dort ist sie dauerhaft gespei- 
chert. Beachten Sie aber, daß Sie beim Dateinamen »datei« 
je Laufwerkbezeichnung angeben dürfen. 
inlich funktioniert ED.SUB (Listing 2). Es dient zur Bear- 
beitung einer bereits bestehenden Dateiim Laufwerk A. Denn 
»ED« steht für »Editieren«. 

A>RAMDISK 
A>SUBMIT ED datei 

Den Befehl »RAMDISK« können Sie natürlich auch in die 
Submit-Datei aufnehmen. Sie verlieren dann aber bei jedem 
‚Aufruf der Submit-Datei den vorherigen Inhalt der RAM-Disk. 
Wer die RAM-Disk beim Aufruf von CP/M mitformatiert, muß 
die Anweisung RAMDISK natürlich weglassen. 

(Martin Kotulla/hg) 


ArPIP Cr=ArPIP.COM 
EıPIB Crmarhs. Con 


Grrip Er ZA: WsovLYi-DUR 

f 

ws sı Listing 1. Mit dieser Datei 
Be wird Wordstar komfortabel 


ArPIP C:=A:PIP.COM 


EiPIP Er=asmsovtyicdUuR 
C:PIP Cr=Ar$1 


Ci Listing 2. Auch bereits 
PIP Arscısı bestehende Dateien können 
As bearbeitet werden 


ICON PUTER! 


in die 
RAM-Floppy 


Kopieren in die RAM-Floppy geht auch mit »File- 
copy«. Vorausgesetzt man baut die Routine um. 


eder, der eine Diskettenstation von Vortex hat, aber 

auch viele Besitzer des Schneider-Laufwerks kennen 

inzwischen »FILECOPY.COM«, das Dateikopierpro- 
gramm von Vortex. Diese komfortable Routine hat dem 
gleichnamigen Programm auf der Schneider-Systemdiskette 
klar den Rang abgelaufen. 

Während man in der Version von Schneider nur einzelne 
Dateien oder aber alle gemeinsam kopieren kann, überträgt 
das deutsche Pendant genau soviele Daten, wie Sie wün- 
schen. Und noch ein Vorteil macht die Arbeit angenehmer. 
Während bei Schneider die Diskette nach jeder Datei 
gewechselt werden muß, packt Vortex zuerst den ganzen 
Speicher voll und »schaufelt« dann die Daten auf die neue 
Diskette. 

Ein Nachteil verblieb bis heute beiden Programmen. Sie 
arbeiten nicht mit einer Speicherkarte zusammen. Dabei ist 
FILECOPY von Vortex ganz einfach anzupassen. 

‚Aber nun zur Praxis: Als erstes bespielen Sie eine Diskette 
mit den CP/M-Systemspuren (Version mit 62 KByte TPA) und 
den beiden Programmen »DDT.COM«und »FILECOPY.COM«. 
Arbeiten Sie niemals mit den Originalen, denn Fehler treten 
schnell auf und CP/M arbeitet so nahe an der Maschinen- 
ebene, daß »Abstürze« an der Tagesordnung sind. 

Alle Änderungen an der zu patchenden Routine nehmen 
wir mit dem DDT (Dynamic Debugging Tool) vor. FILECOPY 
liegt in der Version 2.6 vor. Dieses Programm hat fast jeder 
zur Verfügung - sofern er nicht zu den Besitzern der aller- 
ersten Diskettenstationen gehört. DDT ist ein Debugger mit 
dem Speicherinhalte untersucht und geändert werden. 

Von den insgesamt 13 Anweisungen brauchen wir den S- 
Befehl. Er wird mit 
-SAnfangsadresse 
aufgerufen. Soll ein Wert unverändert bleiben, so drückt man 
nur die ENTER-Taste. Andernfalls wird der hexadezimale 
Code des neuen Befehls eingegeben und mit ENTER quit- 
tiert. Ein Punkt beendet den Eingabemodus. 

Nach dem Start erhalten Sie die Meldung. 
A>DDT FILECOPY.COM 

DDT VERS 2.2 

NEXT PC 

0C00 0100 


Mit 

-5022A 

022A FE FE 

022B 41 41 

022C 28 38 

022D 04 F9 

022E FE FE 

022F 42 44 

0230 20 30 

0231 F5 F5 

0232 06 . 

ändern wir die Abfrage der Quell-Diskette. Ab 0242 hex liegt 
der Block für die Ziel-Diskette. 


-50242 
0242 FE FE 
0243 41 41 
0244 28 38 
0245 04 F9 
0246 FE FE 
0247 42 44 
0248 20 30 
0249 F5 F5 
0250 C6 . 
Als letztes korrigieren wir noch die Texte. 
-50905 
0905 2F 2D 
0906 42 43 


092A 2F 2D 

092B 42 43 

092C 29 . 

DDT verlassen Sie mit CTRL-C und die neue Datei wird mit 
A>SAVE 12 COPYFILE.COM 

gespeichert. Anstatt COPYFILE ist natürlich auch jeder 
andere Name erlaubt. Nur die Endung ».COM« muß, da es 
eine Systemdatei ist, vorhanden bleiben. 

Wenn wir FILECOPY schon verbessern, dann bauen wir 
auch gleich noch eine andere Feinheit mit ein. Normalerweise 
kann man Schneider-Disketten im DATA-Format mit dem Pro- 
gramm von Vortex nicht lesen und damit auch nicht kopieren. 
Auch das kann mit DDT geändert werden. Dazu brauchen wir 
den Befehl »A«. 

-AAnfangsadresse 

Diese Anweisung ruft den 8080-Assembler auf und die 
mnemonischen 8080-Befehlswörter können eingegeben 
werden. Den Eingabemodus verläßt man durch Drücken der 
ENTER-Taste. 

A>DDT COPYFILE.COM 

starten wir und geben als erstes den Befehl 

-RB5 

ein, um Platz für die neuen Anweisungen zu schaffen. Dann 
kopieren wir mit 

-M0105,02A1,0100 

das Programm und schieben mit 

-A029D 

029D MVI C,0D 

029F CALL 0005 

02A2 

die Kommandos zum Zurücksetzen der Diskette ein. 

Nun müssen Sie noch den gesamten Bereich zwischen 
0203 und 0845 hex auf Sprungbefehle und Startadressen 
für Textstrings durchforsten. Sofern die Ziele über 029D hex 
liegen, erhöhen Sie sie jeweils um 5. Die Textstrings werden 
alle nach folgendem Schema verändert: 

-10217 

0217 MVI C,09 
0219 LXI D,0884 
021C CALL 0005 
-A0219 

0219 LXI D,0889 
021C 

Als Ergebnis erscheint 
-10217 

0217 WI C,09 
0219 LXI D,0889 
021C CALL 0005 

Mit CTRL-C verlassen Sie DDT wie gehabt. Aber vergessen 
Sie nicht das neue Programm zu speichern. 

A>SAVE 12 SUPERCOP.COM > 
(Andreas Maurer/hg) 


15 


ar a 0 de 


FR WRCHET RS PAL UN 


Uhr zurück- 


‚gedreht 


Der Timer der Schneider-Computer eignet sich für 
vielerlei Anwendungen. Leider ist im Basic aber 
keine Funktion zum Stellen der Uhr enthalten. 
. 
ber »PRINT TIME« kann der Benutzer beim CPC 
stets die interne Systemzeit abfragen. Leider läßt 
sich der Timer nicht stellen. Besonders bei der 
Berechnung von Programmlaufzeiten oder der Auswertung 
von Reaktionszeiten des Benutzers müßte man den Timer 
aber eigentlich löschen. Sonst gestaltet sich die Berechnung 
der vergangenen Zeit schwieriger. Mit einigen POKE- 
Befehlen funktioniert das auch: 
CPC 464: 
POKE &B187,0:POKE &B188,0:POKE &B189,0: 
POKE &B18A,0:PRINT TIME 
CPC 664 und CPC 6128: 
POKE &B8B4,0:POKE &B8B5,0:POKE &B8B6,0: 
POKE &B8B7,0:PRINT TIME 
(Martin Kotulla/ja) 


POP AF — mal 
ganz anders 


Flags dienen in Maschinencode-Programmen zur 
Registrierung von Ereignissen. Durch Unterpro- 
gramme ändert sich jedoch ihr Inhalt. So stellen 
Sie den alten Zustand wieder her. 


ft möchte man als Z80-Maschinenprogrammierer 

auf dem Schneider-CPC den Akku vor dem Aufruf 

eines Unterprogramms mit PUSH AF sichern und 
nach dessen Abarbeitung wiederherstellen. Sollen allerdings 
die Flags, die vom Unterprogramm eventuell verändert wur- 
den, nicht vom folgenden POP AF wieder überschrieben 
werden, müßte man dazu normalerweise folgende 
Z80-Befehle benutzen: 


180 DATA &SE.LCB,&FS,LCD,&2E,&BD,LES L66CE1 
11@ DATA &7C,LE1,&FS,LE1,822,560,401,&09 191023 
1B® 
12@ FOR i=LAB@Q TO LABBE:READ a E163AJ 
138 POKE i,asNEXT i [22F61 
14@ MODE 1:PRINT "Der Akku hat den Wert" 
+PEEK (&A@B1) 132781 
158 CALL CA@D21 
16@ PRINT:PRINT "Aufruf der Maschinenrou 
tine“ PRINT 1@96C1 
17@ PRINT "Der Akku ist immer noch";PEEK 
(&161) L2AA21 
18® PRINT "Das Flagregister hat den Wert 
"3 PEEK (416®) : PRINT LIFDBI 
198 IF PEEK(&16@) AND 1 THEN PRINT "Druc 
ker Busy" ELSE PRINT “Drucker Ready" 
15E241 
208 PRINT LEB7EI 
Listing. Basic-Demonstration 


ID (Speicher),A 
CALL Unterprogramm 
ID A,(Speicher) 

Diese Kommandos retten den Inhalt des Akkumulators in 
eine Speicherstelle, sichern aber das Flag-Register nicht. 
Ganz abgesehen davon, daß alleine die Ladebefehle sechs 
Byte kosten, muß man zudem noch eine zusätzliche absolute 
Speicheradresse verwalten. 

Eine bessere Lösung ist: 
PUSH AF 

CALL Unterprogramm 

EX (SP),HL 

ID A,H 

POP HL 

Diese Lösung benötigt nur vier Byte und ist völlig relokati- 
bel. Eine Demonstration zeigt das Listing. Es lädt den Akku 
mit dem (ansonsten bedeutungslosen) Wert 200 und ruft die 
CPC-Systemroutine MC BUSY PRINTER auf. Diese setzt das 
Carry-Flag im F-Register des Prozessors, wenn der Drucker 
nicht empfangsbereit oder nicht angeschlossen ist. Der 
Basic-Lader ruft das Maschinenprogramm auf und gibt erläu- 
ternde Kommentare aus. Das zeigt, daß die Befehlsfolge den 
Inhalt des Akkus erhält, aber das Flag-Register sich vom 
Unterprogramm verändern läßt. 

Dieser Trick funktioniert übrigens auf allen Z80-Compu- 
tern, auch auf dem Joyce. Das Beispielprogramm ist aber auf 
die CPC-Reihe abgestimmt. (Martin Kotulla/ja) 


— —— 


POP AF 
| Computer: | CPC 464/664/6128 
Explora (für Basic-Lader) 


Datenträger: Kassette/Diskette 


— 


FE HRRRHRRHRRHHHRHEHEHHRHEREIHHRESHRHHHEHEHEHEHEIHEI 
’* * 
;* Ersatz für POP AF - Flags werden erhalten * Quellcode 
_* * 
3 HRS der kurzen 
Maschinenroutine 
ORG “AB2O 
MC_BUSY_PRINTER EQU &BD2E 
START LD A,208 ; Zu erhaltender Wert 
PUSH } Akku und Flags auf den Stack 
CALL MC_BUSY_PRINTER ; Druckerausgang testen 
Ex (SP), ; Ersetzt POP AF 
LD A,H ges 
POP HL ar 
AF_TO_BASIC PUSH Ar 5 AF nach HL 
POP HL ; übertragen 
LD (LB16B) „HL ; In den Basic-lesbaren Speicher 
RET 


ICON FUTERE 


Das Arbeiten mit sequentiellen Dateien beim 
CPC 464 ist zeitraubend. Eine kurze Maschinen- 
routine schafft Abhilfe und zusätzlichen Speicher- 
platz auf unkonventionelle Weise. 


ei jedem sequentiellen Datenzugriff mit »OPENIN« 

und »OPENOUT: legt der CPC einen Puffer an. Die- 

ser ist vier KByte lang und liegt direkt unter HIMEM. 
Die hier ansässigen Stringvariablen müssen vorher unter viel 
Zeitaufwand verschoben werden. Das Zeitproblem kann man 
zwar mit der Formel »OPENIN ” dummy ”:MEMORY HIMEM-1 
:CLOSEIN« abfangen, wenn Sie jedoch Wert auf einen eige- 
nen Zeichensatz und andere Erweiterungen legen, können 
Speicherplatzprobleme auftreten. 

Das Programm »Sequbild« verlegt den Puffer in den Bild- 
schirmspeicher und vermeidet so elegant jedes Debakel. 
Das erfordert zwei Maschinencode-Routinen, die den Rou- 
tinen »OPENIN« und »OPENOUT« entsprechen. Nach dem 
Einlesen ersetzen Sie in Ihrem Programm alle »OPENIN« 
durch »CALL.HIMEM+ 1« und alle »OPENOUT« durch »CALL 
HIMEM+13«. Eine Eingabedatei wird mit »CALL &BC7A« 
geschlossen, eine Ausgabedatei mit »CALL &BC8F«. Das 
eigentliche Programm finden Sie in den Zeilen 10090 bis 
10180. Den anschließenden Demonstrationsteil benötigen 
Sie bei der Verwendung in eigenen Programmen natürlich 
nicht. 

Beachten Sie, daß der Zugriff auf sequentielle Dateien den 
Bildschirminhalt zerstört. Während des Ladens von Diskette 


(oder Kassette) darf der Bildschirminhalt nicht geändert 
werden. (Dieter Braun/Matthias Rosin) 


MODE 1:BORDER @: INK @.@: INK 1.6: INK 2, 
11: INK 3,24:DEG: FOR a=@ TO 360 STEP 18 
:ORIGIN 18@*COS (a) „100*SIN(a)/6:MOVE 3 
20+10*C0S (a) ‚200+1B#SIN(a)#4:DRAW 320+ 
60*C0S (a) #3, 200+60#SIN(a) .1:NEXT 

2 FOR a=® TO 36@ STEF 1@:MOVE 220,20@:DR 
AW 320*C0S (a) #4,200+40#SIN (a) „23NEXT:F 
OR a=® 10 368 STEP 1@:0RIGIN 320,208: D 
RAW 68#COS (a) #2,60*SIN(a) ‚SENEXT:FOR a 
=® TO 36@ STEP 1®:0RIGIN 328,208: POKE 
&B338 233: DRAW BO#COS (a) „BORSIN(a)#4:N 
EXT:SPEED INK 198,100 

INK 2.1.2:FOR i=1 TO 1@@:NEXT:INK 2,11 
‚14:FOR i=1 TO 1@@:NEXT:INK 2,13,26:F0 
R i=1 fO 10@:NEXT:GOTO 3 

#ETRL 232,11: INK 3,24:DEG:FOR a=@ TO 368 
STEP 1®:0RIGIN 19@*C0S (a) ‚128 


Sequbild 
Explora 


[5B123 


1B39C] 


[@46C1 


Computer: 
Checksummer: 
Datenträger: 


10000 
C4E441 

10018 ‘* sequenzieller Datenzugriff * 
1917C1 

10@2@ ‘* ueber den Bildschirmspeicher * 
120981 

10038 '* * 
LIFDEI 

10040 '* (ec) by Dieter Braun * 
LF@ABI 

10050 ‘= * 
t4FE21 

10060 ‘= November 1985 ” 
TAEBEI 

10070. 
136521 
ıma80 ' 130881 

18090 ° Daten des MC-Programmes einlese 
n 134601 
10100 ' 116721 
1@11@ MODE 2 EF914] 
19128 h=HIMEM: MEMORY HIMEM-24: 5=@ c@er21 

10138 DATA %21,&0,&C0,&46,8235,&11,&0,&C1 
&CD,&77 1924E1 

10140 DATA’ EBC,&C9,421,40,400,&46,&235,&1 
1,&8,&C1 ‚&CD,&BC ‚BC ,&C9 CBSFEI 
ÖR n=HIMEM+l TO’ HIMEM+24 C15F21 
+a (37441 
teaccı 

1@18@ IF s<>2527 THEN PRINT"Pruefsummenf 

ehler in den Datas(2 SPACE) !!"ıEND 
tE2821 
18198 ' EDF841 

10200 ° Dateiname eingeben + auf Laenge 

‚pruefen [6 

10218 C@F 76] 
10228 teiname";a$ LFEA2I 
10238 Ir LENCas) >12 THEN 10220 C34FEI 
10240 CLS LAGFZI 
102538 GOSUB 10518: Dateiname ablegen LF1ALI 
18268 ' 36881 
1827@ ‘ Datei anlegen [76041 
10288 ' [38841 


1029@ CALL HIMEM+13: ‘Datei eroeffnen, 
entspricht "openout as” 107881 
10508 PRINT#9,"Datenzugriff" C1BAC3 
1851® PRINT#7,"ueber den Bildschirmspeic 
her“ 151981 
18320 CALL &BCBF:* Datei wieder schliess 
en, entspricht "closeout’ c4D481 
10330 ' £117C1 
1034@® ‘ Dateiname nochmals im Bildschirm 
speicher ablegen LD@6B1 
$ 137881 
EBAFB] 
@:° Dateiname nochmales 
tD5861 
C3AB6I 
183980 ° Datei nieder einlesen E19FC1 


HIMENM+11° Datei eroeffnen, 


entspricht 'openin as’ 1B654]1 

18428 LINE INPUT #9,a$ 16838] 

0438 LINE INPUT #9,b# tAr3Cc) 
19448 CALL &BC7A: ' Datei wieder schliess 

en, entspricht 'closein’ E238) 

19450 " [1782] 
18440 MODE ZI PRINT+PRINTLPRINTAPRINT "In 

der tei :":PRINTIPRINT as L9EC2I 

18478 PRINTEPRINT b$ı PRINT:PRINT:END [156AJ 

184808 TE4881 
108490 ° Unterprogramm Dateiname an Anfa 

ng des Bildschirm ichers poken EFSF4] 


ıa5a0 L3E7A] 
POKE 49152,LEN(a$):REM Laenge able 


gen [36881 
1952@ FOR n=1 TO LEN(a$) CB826] 
18538 POKE 49152+n,ASC(MID$(a$,n,1)) C16BAJ 
10548 NEXT CA&B2I 
10558 RETURN CD2F61 


Listing. »Sequbild erschließt viel Speicherplatz 
mit wenig Programm« 


u an Eee > 7 15 2 


EWR 


| 


Steuerzeichen austricksen 


Steuerzeichen werden von der Width-Routine des 
Schneiders mitgezählt. Damit das Schriftbild trotz- 
dem ordentlich bleibt, brauchen Sie »WIDTH«. 


für Listings geeignet. Möchte man jedoch formatier- 

ten Text ausdrucken, treten Schwierigkeiten auf: 
Sendet man ESC-Sequenzen zur Steuerung an den Drucker, 
beispielsweise um die Schriftart umzuschalten, werden 
immer einige Steuerzeichen fälschlicherweise als direkt aus- 
gedruckte Zeichen interpretiert. Das hat zur Folge, daß der 
automatische Zeilenvorschub um ein paar Zeichen zu früh 
beginnt und so jede noch so mühsam ausgeknobelte Druck- 
formatierung durcheinanderbringt. Bei Ausgaben im Grafik- 
Modus werden die Zeilenvorschubbefehle als Bitbildmuster 
interpretiert und unverändert an den Drucker ausgegeben. 
Die Programm- und die Druckerzählung werden »desynchro- 
nisiert« und so zum Schluß ein paar Bitbilder zuviel ausgege- 


Noch ein Trick 


ben (sie erscheinen als normale Zeichen). Da sich die Width- 
Routine nicht abschalten läßt, wenden wir hier einen anderen 
Trick an: Der neue Befehl »ESC,x1,x2,...xn« sendet die Codes 
x1 bis xn ohne Zählung durch die Width-Routine an den 
Drucker. Dabei ist die Parameterzahl beliebig (zwischen O 
und 32). Außerdem erspart man sich gegenüber 
»PRINT #8,...e das lästige »CHR$(x)«. Es genügt, x allein 
anzugeben. 

Und so setzen Sie die Befehlserweiterung ein: 

Geben Sie einfach das angegebene Listing ein und starten 
Sie es durch »RUN«. Der im Programm vorhandene Call- 
Befehl bindet die Befehlserweiterung in das Betriebssystem 
ein, so daß der Aufruf durch »ESC,x1,x2,...xn« erfolgen kann. 
Das Ladeprogramm dürfen Sie anschließend mit »NEW« 
löschen, ohne daß die Befehlserweiterung verlorengeht. 

(Helmut Tischer/hg) 


D ie eingebaute Width-Routine des Schneiders ist nur 


Width 

CPC 464/664/6128 
Explora 
Kassette/Diskette 


Computer: 
Checksummer: 
Datenträger: 


188 PRINT"Wieviel Zeichen sollen frei de 
#finierbar sein?" 142B2] 
118 INPUT "SYMBOL AFTER ",sym% CB9B@] 
120 SYMBOL AFTER sym% 10272] 

13@ OPENOUT"dummy" "Kassettenpuffer auf 

den Bereich oberha RAMTI fixieren 
1C248] 
148 MEMORY HIMEM-1:CLOSEOUT [B448] 
158 SPEED WRITE ı LA346] 
188 READ n,mı st=HIMENM-n+1: MEMORY st-1 [3272] 
19@ FOR i=8 TO n-1 125803 
200 READ d$:d=VAL("&"+d$) sPOKE st+ti,d EF36C] 
218 NEXT [6CE4] 
228 FOR i=1 TO m [7804] 
238 READ ds L9AF2] 
248 d=VAL("L"+ds) LEFFS@] 
25@ z=st+PEEK (st+d) +256#PEEK (st+d+1) 1BS54C] 
26@ POKE st+d+1,INT(z/256) [D2BE] 
278 POKE st+d,z-256*INT (z/256) CDF34] 
288 NEXT [7@F2] 
31@® CALL HIMEM+1 [9978] 
328 END [9B18] 
368 DATA 51,6 [2776] 
388 DATA @ı ‚09,088,21,12,08,c3,di [3748] 
398 DATA bc,@e,@8,c3,16,00,45,53 [20241 
488 DATA c3,28,20,08,08,80,27,c8 [BD96] 
418 DATA 47,dd,e5,e1,87,5f,16,08 [4BAEI 
420 DATA 19,2b,2b,7e,cd,22,88,18 [2CDA] 
438 DATA #8B,c' +30,00,30,fb,c9 [6468] 
448 DATA c#,#2, C834] 
450 "Ziffern der zu aendernden Adressen L[DB4E] 
468 DATA 0081 ‚8004, 2029 ,800c LE472] 
470 DATA 8825,882b [BEBBI 

er Überlisten Sie den Zeilenvorschub 


Modi-Check 


Wenn Sie bei einem Programm feststellen wollen, 
in welchem Modus sich Ihr Bildschirm befindet, 
läßt Ihr Basic Sie im Stich. 


ft ist es ganz nützlich, zu erfahren, welcher 

Bildschirm-Modus im Schneider CPC gerade aktiv 

ist. Mit PEEK ist das an sich kein Problem. Doch 
wenn ein Programm auf allen drei Schneider CPCs laufen 
soll, sind verschiedene Adressen zuständig: Beim CPC 464 
heißt es »PRINT PEEK(&B1C8)«, bei den Modellen CPC 664 
und CPC 6128 hingegen »PRINT PEEK(&B7C3)«. 

Eine bessere, da versionsunabhängige, Lösung finden Sie 
im Listing. Der Computer gibt einen Wagenrücklauf an den 
Bildschirm, der den Cursor an die erste Position der Zeile 
setzt. Ein Backspace (ASCII 8) weist das Betriebssystem an, 
den Cursor auf die letzte Stelle der vorhergehenden Zeile zu 
positionieren. Über die Basic-Funktion POS wird die Cursor- 


118 


spalte abgefragt. Es kann hier (wenn Sie nicht gerade Win- 
dows verwenden) nur die Werte 20, 40 und 80 geben - ent- 
(Martin Kotulla/ja) 


sprechend dem gewählten Modus. 


Modi-Tester 

CPC 464/664/6128 
Explora 
Kassette/Diskette 


188 MODE bestimmen Hmmm 19232] 
118 a=POS (#8) ıb=VPOS (#9) [5A56] 
12@ PRINT CHR$(13) ICHRS(B) 4 [86203 
138 x=POS (#8) LiDFEI 
148 LOCATE a,b C9BFB] 
158 IF x=2@ THEN PRINT "MODE @" t1cAa2] 
168 IF x=48 THEN PRINT "MODE 1" L34AAI 
17@ IF x=88 THEN PRINT "MODE 2" [36B61 
18@ END CA12@1 


Immer im Bilde über den Modus 


Leistungsfühige Pro Programmiersprachen 
r Schneider CPC 464/664/6128 + Joyce 


‚der umfangreichsten Pascal-Imple- 
tationen für 8-Bit-Mikrocomputer. 
/MT+ ist ein volles ISO-Standard- 
, das um eine leistungsfähige 
‚mierumgebung für Industrie-, Ge- 
- und Ausbildungs-Einsatz sowie 
@glichkeiten zur Systemprogrammierung 
itert wurde. 
IMT+ erweitert die bekannten Vor- 
der strukturierten Sprache Pascal. Es 
schneller, vielseitiger, portabler und in 
pruchsvollen Anwendungen, die die 
twicklung separater Programm-Module 
m, einfacher zu verwenden. 


ikte Umsetzung in schnellen 
‚kt-Code 
Unterschied zu Compilern, die in einen 
'hencode übersetzen, wandelt Pascal/MT+ direkt in schnellen Objekt-Code um. 
Ausführungszeiten sind deshalb wesentlich besser als bei traditionellen Pseudo- 
-Compliern 
Pascal/MT+-Paket beinhaltet: 
‚einen Compiler, der relokatierbare Objekt-Dateien erzeugt, 
einen Linker, der lauffähige Programme erzeugt, 
eine Laufzeitbibliothek 
einen Disassembler, der die Untersuchung des erzeugten Codes ermöglicht, und 
‚einen Debugger, der einen symbolischen Test eines Programms erlaubt 
Bibliothek enthält Routinen von der Berechnung transzendenter Funktionen bis zur 
'ndung von Maschinen-Interrupten. 


‚| für Geschäfts-, Industrie- und Ausbildungs-Einsatz 
lich zu den numerischen Standard-Datentypen unterstützt Pascal/MT+ entweder 
ökommazahlen oder binär-codierte Dezimalzahlen (BCD) und erzielt damit die in 
erziellen Anwendungen so wichtige Genauigkeit von Ergebnissen ohne Run- 
gsfehler. 
industrielle Anwendungen bietet Pascal/MT+ den Vorteil von ROM-fähigem Maschi- 
code, Möglichkeiten zur Reduzierung der Programmgröße und erweiterte Ein-/Aus- 
pefählgkeiten. 
‚den Einsatz im Ausbildungs- und Lehrbereich empfiehlt sich Pascal/MT+, weil es 
volle Implementation von Pascal ist, die man leicht erlernen kann, aber später auch 
gestiegenen Ansprüchen noch leistungsfähig ist 


jügt professionellen Ansprüchen 
cal/MT+ wurde für die hohen Ansprüche professioneller Softwareentwickler und 
1er Anwender entwickelt. Pascal/MT+ wird mit ausführlicher Dokumentation in 
‚cher Sprache geliefert. 


cal/MT-+ läuft auf den Schneider-Computern GPC 464 und CPC 864 (mit Spelcher- 

erung). dem CPC 6128 und dem PCW 8256 (Joyce) unter CP/M und CP/M-Plus. 

pilierte Programme sind, bei entsprechender Größe, auch auf dem CPC 464 und 
664 ohne Speichererweiterung lauffähig. 


‚Vorteile von PascallMT+ auf einen Blici 


‚Superset des ISO-Standard-Pascal 

‚Kompllierung separater Module 

erzeugt effektiven Maschinencode 

komplette Entwicklungstools 

erweiterte Datentypen (BYTE, WORD, LONGINT, STRING) 
ält- und Byte-Manipulationen 

‚schneller Dateizugriff 

Direktzugrifisdateien 

CHAINIng mit Übergabe von Variablen zwischen Overlays 


umfangreiche Dienstprogramme 
ir. MS 611 DM 174,-* (sFr. 158-168 1680,*) 


Markt&fechnik 


© 

CBASIC-Compiler 
Der Hochleistungs-BASIC-Compiler für 
Softwareprofis zur Erstellung kommerziel- 
ler Anwendungen. 

Der CBASIC-Compiler ist ein erweitertes 
BASIC mit wichtigen Vorteilen für Software- 
profis. Er ist ein Compiler, der Maschinen- 
code erzeugt und die Programmierung und 
‚den Test separater Module erlaubt, die spä- 
ter ein komplettes Programm ergeben sol- 
len. Die integrierten Grafikmöglichkeiten 
des CBASIC-Compilers erlauben die Pro- 
grammierung vielseitiger Grafikprogramme 
für eine Vielzahl von Anwendungen (nurauf 
Computern mit GSX-Software). 


Schnelle Ausführung 

Der CBASIC-Compiler kombiniert die 

Geschwindigkeit von Maschinencode mit 
der leichten Verständlichkeit der Sprache BASIC. Ein mit dem CBASIC-Compiler kompi- 
liertes Programm wird acht- bis zehnmal schneller ausgeführt als das gleiche interpre- 
tierte Programm. 


Grafikerweiterungen 


Der CBASIC-Complier beinhaltet einen voll integrierten Satz von Grafikbefehlen und 
«funktionen. Geräteunabhängige Grafikfählgkeiten ermöglichen die Ausgabe von Grafi- 
ken auf jedem unterstützten Grafikausgabegerät (Bildschirm, Drucker, Plotter) ohne 
'Neukompilierung eines Programms. 


Dezimal-Arithmetik 


Die 14stellige Dezimal-Arithmetik gewährleistet höchste Genauigkeit beiBerechnungen 


und stellt sicher, daß alle Geldbeträge auf den Pfennig genau stimmen. Rundungsfehler, 
wie sie bei binärer Arithmetik möglich sind, können nicht auftreten. 

Der CBASIC-Compller unterstützt auch echte Integer-Arithmetik, so daß zur Erhöhung. 
der Geschwindigkeit auch Integer-Variablen verwendet werden können. 


Mehrzeilige Funktionen 

Durch die Möglichkeit, mehrzeilige Funktionen zu erstellen, verfügt der CBASIC- 
‚Compiler über Fähigkeiten, die sich sonst nur in strukturierten Programmiersprachen 
wie PL/\ oder Pascal finden. Innerhalb einer mehrzeiligen Funktion können lokale Varia 
bien verwendet werden. 


Für professionellen Einsatz 

Der CBASIC-Compiler wurde für die hohen Ansprüche professioneller Softwareentwick- 
ler und erfahrener Anwender entwickelt. Der CBASIC-Compiler wird mit ausführlicher 
Dokumentation in englischer Sprache geliefert, 


Hardwarevoraussetzungen 

Der CBASIC-Compiler läuft auf Schneider CPC 464 mit Diskettenlaufwerk DDI-1, dem 
CPC 664, dem CPC 6128 und dem 8256 (Joyce). Für Grafikprogramme wird die GSX- 
Software benätigt, die nur mit dem CPC 6128 und PCW 8256 (Joyce) ausgeliefert wird. 
Die Grafiken können dann auf dem Bildschirm oder einem von GSX unterstützten, 
Drucker oder Plotter ausgegeben werden. Es können zum Beispiel der NLQ 401 
Matrixdrucker, ein Epson- oder kompatibler Drucker und HP- und HP-kompatible Plotter 
zur Ausgabe verwendet werden. 


Die Vorteile des CBASIC-Compilers auf einen Blick: 

® hohe Geschwindigkeit der erzeugten Programme 
Grafikerweiterungen 

© Dezimal-Arithmetik mit hoher Genauigkeit 

® umfangreiche Stringverarbeitung 

® Stringlänge bis 32 KByte 

© mehrzeilige Funktionen 

® keine Zeilennummern erforderlich 

@ Overlays durch CHAIN-Befehl 


DM 174,-* (sFr. 158,-/68 1680,) 


* inkl. MwSt. Unverbindliche Preisempfehlung. 


Best.-Nr. MS 612 


Bestellungen im Ausland bitte an 
untenstehende Adressen. 

Schweiz: MarktäTechnik Vertriebs AG, 
Kollerstr. 3, CH-6300 Zug, Tel. 042/41 5656 


@ Markt äTechnik-Softwareprodukte erhalten 


Unternehmensbereich Buchverlag 


. Österreich: Ueberreuter Media Handels- 


in den Fachabteilungen der Kaufhäuser und 


und Verlagsges. mbH, Alser Straße 24. 
‚A-1091 Wien, 0222/481538-0 
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CP/M mit Nachbrenner 


CPIM Plus ist der Nachfolger von 
CPIM 2.2. Komfort wird bei die- 
sem - auch CP/M 3.0 genannten 
- Betriebssystem groß geschrie- 
ben. Vorausgesetzt, man weiß 
mehr, als im Handbuch steht. 


P/M Plus hat erst seit dem 

Erscheinen des Schneider CPC 

6128 und des Commodore 128 
breite Verwendung gefunden. Es ist 
ebenso wie der Vorgänger CP/M 2.2 
ein Standard-Betriebssystem. Die 
Bedienung wurde aber um ein Viel- 
faches komfortabler. Und auch die Pro- 
grammierhilfen erfuhren eine wesent- 
liche Verbesserung. Gleiches gilt für die 
inzwischen bedeutend aufschluß- 
reicheren Fehlermeldungen. Das ganze 
‚System nimmt dem Benutzer Fehler bei 
weitem nicht mehr so übel wie CP/M 
2.2. 

CP/M Plus stammt aus dem Jahr 
1982 und war der letzte Versuch von 
Digital Research, den vordringenden 
16-Bit-Geräten der IBM-PC-Klasse mit 
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der bewährten 8-Bit-Technologie Paroli 
zu bieten. Die bedeutendste Eigen- 
schaft dieses hochentwickelten Be- 
triebssystems ist die Fähigkeit, mehr als 
64 KByte RAM-Speicher ansprechen 
zu können. CP/M 2.2 hingegen ist auf 
ein Maximum von 64 KByte hin konzi- 
piert. Doch die Verwaltung des großen 
Speichers ist nur beschränkt möglich. 
Den Ausbau - beispielsweise auf 512 
KByte - unterstützt CP/M Plus zwar, 
aber aufgrund der Adressierungseigen- 
schaften des Z80-Prozessors dürfen 
die Programme trotzdem nur maximal 
64 KByte lang sein, wenn sie in einem 
Stück in den Speicher passen sollen. 
Der restliche Speicher kann nur als 
RAM-Disk, Druckerspooler oder Dis- 
kettenpuffer benutzt werden. 

Trotzdem holt CP/M Plus alles Mach- 
bare aus dem 8-Bit-Computer heraus. 
Dennoch konnte sich bisher die Version 
3.0 nicht durchsetzen. Aber mit dem 
CPC 6128 von Schneider und dem 
Commodore 128 hat sich die Situation 
geändert. Diese beiden Computer sind 
Massenprodukte für Privatleute sowie 


das »Small-Business« und arbeiten nur 
»nebenbei« auch unter CP/M 3.0. 

Je nach Computertyp stehen unter 
CP/M 2.2 bis zu 60 KByte freier Ar- 
beitsspeicher zur Verfügung. Beim 
Schneider sind es mit diesem Betriebs- 
system nur rund 39 KByte RAM für die 
TPA (Transient Program Area). CP/M 
3.0 bietet immerhin 61 KByte. Damit 
sind viele Standardprogramme erst voll 
funktionsfähig, die bei einer kleinen 
TPA nur mit Einschränkungen oder 
nach Einbau einer Speichererweite- 
rung zum Laufen gebracht werden 
konnten. 

Auf Grund der Verbesserungen 
erhöhte sich natürlich auch der Umfang 
des Programmcodes von CP/M Plus 
wesentlich. Kam CP/M 2.2 noch mit 
einem Minimal-RAM von 20 KByte aus, 
so verlangt 3.0 mindestens 96 KByte 
Speicherplatz. Einer speziellen Version 
von Digital Research reicht allerdings 
eine einzige 64-KByte-Bank. Sie 
braucht dennoch erheblich mehr Spei- 
cherplatz als CP/M 2.2. Diesermuß nun 
von der TPA »abgezwackt« werden. Fer- 


ner bietet diese Sparversion des CP/M 
Plus nicht alle Leistungsmerkmale des 
kompletten CP/M Plus-Betriebssy- 
stems, so daß sie auf fast keinem Com- 
puter (Selbstbau ausgenommen) instal- 
liert wurde. 

Schneider benutzt die vollständige 
Version von CP/M 3.0 mit mehreren 
Speicherbänken. So findet nicht mehr 
das gesamte Betriebssystem auf den 
Systemspuren der Diskette Platz. Denn 
auf zwei Spuren mit neun Sektoren 
passen 9216 (=2+9+512) Byte. Zu 


wenig für CP/M Plus, deren Datei 
C10CPMS3.EMS, in der das Betriebs- 
system jetzt steht, schon 25 KByte 
umfaßt. 

In den Systemspuren befindet sich 
deshalb lediglich ein Ladeprogramm, 
das die Datei CIOCPM3.EMS in den 
Speicher verfrachtet. Das »EMS« der 
Extension des Dateinamens steht übri- 
gens für »Early Morning-Startup« - ein 
typisches Beispiel für britischen 
Humor. Ohne diese EMS-Datei kann 
CP/M Plus nicht gestartet werden. Des- 
halb fallen von den auf einer Diskette 
zur Verfügung stehenden 169 KByte 
weitere 25 KByte für diese Datei weg, 
so daß die 3-Zoll-Disketten, vom Spei- 
chervolumen her betrachtet, recht 
schlecht dastehen. 

Ein Trostpflaster ist, daß die EMS- 
Datei nur zum Systemstart gebraucht 
wird, also sich keinesfalls auf jeder 
CP/M Plus-Diskette befinden muß. 
Zudem hat CP/M Plus auch gegen das 
Data-Only-Format nichts einzuwenden, 
das 178 KByte formatierte Speicherka- 
pazität bietet. 

CP/M Plus wird - wie auch CP/M 2.2 
- durch Eingabe des RSX-Befehls 
»ICPM« gestartet. Der Computer 
erkennt selbständig anhand der einge- 
legten Diskette, ob er CP/M 2.2 oder 
CP/M Plus laden soll. Das Booten des 
Betriebssystems dauert bei CP/M 3.0 
deutlich länger als bei CP/M 2.2. Ver- 
ständlich, denn der Programmcode 
wurde schließlich auch erheblich 
umfangreicher. 

Die CP/M-Startmeldung lautet: 

CP/M Plus Amstrad Consumer 
Eleetronies ple 
v 1.0, 61K TPA, 1 dise drive 

Die Startmeldung zeigt, wie viele Dis- 
kettenlaufwerke an den Computer an- 
geschlossen sind. Falls Sie trotz Zweit- 
station die Meldung »1 disc drive« erhal- 
ten, haben Sie wahrscheinlich verges- 
sen, beim Booten des Betriebssystems 
eine Diskette in diese Station zu legen 
und die Laufwerksklappe zu schließen. 

Die Feststellung, ob ein oder zwei 
Diskettenlaufwerke benutzt werden, 


hat durchaus einen tieferen Sinn. Fehlt 
die zweite Station, kann das Betriebssy- 
stem diese nämlich simulieren. Sobald 
von einem laufenden Programm oder 
vom Benutzer ein Zugriff auf das (nicht 
vorhandene) zweite Laufwerk verlangt 
wird, erscheint in der untersten Bild- 
schirmzeile folgende Laufschrift: 
Please put the disc for B: 

into the drive then press any key 

Sie legen dann die B-Diskette ins A- 
Laufwerk ein und das Betriebssystem 
»gaukelt« dem Anwenderprogramm vor, 
daß die Daten von der imaginären Dis- 
kettenstation kommen. 

Damit Sie aber wissen, welches Lauf- 
werk gerade selektiert ist, steht in der 
rechten unteren Bildschirmecke die 
Meldung »Drive is A:« oder »Drive is B:«. 
So können Sie viele Programme, die 
eigentlich mit zwei Laufwerken arbei- 
ten, auch mit nur einer Diskettenstation 
verwenden. Das ständige Wechseln 
von Disketten ist auf Dauer allerdings 
etwas mühselig. Und auch die Mecha- 
nik des Disketten-Laufwerks nimmt die 
Doppelbelastung auf längere Sicht 
eventuell übel. 

Neben dieser Hilfsroutine, über deren 
Sinn man durchaus geteilter Meinung 
sein kann, existieren noch diverse Mit- 
tel, die die Arbeit mit CP/M Plus sehr 
vereinfachen. Unter CP/M 2.2 ist das 
Editieren von Befehlszeilen bekanntlich 
eine Qual. Außer DEL - beziehungs- 
weise CTRL-H - gibt es kaum eine Kor- 
rekturmöglichkeit der vorgenommenen 
Eingaben. CP/M Plus hat da deutlich 
zugelegt und erreicht beinahe den 
Komfort des Basic-Editors eines 
Schneider CPC. 

Am besten arbeiten Sie jetztam Com- 
puter mit, um sofort die Auswirkungen 
der einzelnen Befehle zu sehen. Sie 
brauchen dazu eine Kopie der Diskette 
1 des CP/M-Betriebssystems. Mit dem 
RSX-Befehl »|ICPM« starten Sie CP/M 
3.0. Tippen Sie bitte ein: 

A>POP CON:=KRYS.WP(NZ) 


Editieren mit 
Komfort 


In diese Zeile haben sich nun eine 
ganze Reihe von Fehlern eingeschli- 
chen. So muß die Angabe »NZ« in ecki- 
gen Klammern stehen - nicht in runden. 
Um das letzte Zeichen auszubessern, 
können Sie einfach CTRL-H oder DEL 
drücken. Dann steht auf dem Bild- 
schirm: 

A>POP CON:=KRYS.WP(NZ 

Nun fügen Sie die eckige Klammer 
an: 

A>POP CON:=KRYS.WP(NZ] 

Wenn Sie jetzt viermal CTRL-A 
drücken, wandert der Cursor nach links 


über das Zeichen »(«. CTRL-G löscht 
dieses und zieht den Rest der Zeile von 
rechts heran: 

A>POP CON:=KRYS.WPNZ] 

Sie müssen hier nun auch eine eckige 
Klammer einsetzen: 

A>POP CON:=KRYS.WPI[NZ] 

Als nächstes nehmen wir uns »POP« 
vor, wofür eigentlich »PIP« stehen soll. 
Tippen Sie CTRL-B, und der Cursor 
springt an den Anfang der Eingabezeile. 
Einmal CTRL-F gedrückt, und der Cur- 
sor bewegt sich eine Position nach 
rechts auf das »O«. Wieder löscht 
CTRL-G das betroffene Zeichen und »I« 
wird eingesetzt: 

A>PIP CON:=KRYS.WPLNZ] 

Jetzt sind Sie an der Reihe: Ändern 
Sie »KRYSWP« in »KEYS.WP« ab. Sie 
wissen dochnoch, wie man den Cursor 
bewegt und Zeichen löscht? Als Resul- 
tat muß jedenfalls 
A>PIP CON:=KEYS.WP[LNZ] 
auf dem Bildschirm stehen. 

Wenn Ihnen nach der Ausführung des 
Befehls die automatische Zeilennume- 
rierung von PIPCOM mit der »N«-Option 
nicht gefällt, können Sie das ändern, 
ohne die Zeile noch einmal einzugeben. 


Die Geheimnisse der 
Control-Codes 


Drücken Sie einfach CTRL-W, worauf 
der Computer die Zeile noch einmal so 
anzeigt, als hätten Sie sie gerade einge- 
geben. Mit den bekannten Editierkom- 
mandos ist es ein leichtes, die Zeile in 
A>PIP CON:=KEYS.WP[Z] 
abzuändern. 

Zur Übersicht finden Sieimfolgenden 
alle CTRL-Codes, die Ihnen der CCP 
(Console Command Processor) zum 
Editieren von Befehlszeilen anbietet: 

CTRL-A bewegt den Cursor um eine 
Bildschirmposition nach links. 

CTRL-B stellt den Cursor an den 
Anfang der Eingabezeile. Befindet er 
sich bereits dort, springteran das Ende 
der Zeile. 

CTRL-E fügt einen physikalischen 
Wagenrücklauf ein, der von CP/M aber 
nicht beachtet wird. So dürfen Sie statt 
der obigen Zeile gleichwertig auch 
schreiben (»«stehtfür die CTRL-Taste): 
A>PIP CON:=KEY'E 
S.WPLZ] 

CTRL-F schiebt den Cursor um ein 
Zeichen nach rechts. 

CTRL-G löscht das unter dem Cursor 
stehende Zeichen. 

CTRL-H und DEL entfernt das Zei- 
chen links vom Cursor und bewegt den 
Cursor um dieses eine Zeichen nach 
links. 

CTRL-I und TAB positioniert den Cur- 
sor am nächsten Tabulatorstop. Even- 


tuell rechts vom Cursor stehende Zei- 
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‚chen werden ebenfalls nach rechts ver- 
schoben. 

CTRL-J, CTRL-M, ENTER und 
RETURN schließen eine Eingabezeile 
ab, die in der Folge vom System inter- 
pretiert wird. 

CTRL-K entfernt alle Zeichen von der 
Cursorposition bis zum Ende der Einga- 
bezeile. 

CTRL-R schreibt einen eingegebe- 
nen Befehl nochmals auf den Bild- 
schirm, wo Sie ihn bequem editieren 
können. Dieser Steuercode ist nur wirk- 
sam, bevor Sie RETURN drücken. 

CTRL-S stoppt das Bildschirm- 
Scrollen. 

CTRL-Q nimmt es wieder auf. 


CTRL-U behält seine alte Aufgabe aus 
CP/M 2.2 und ist dazu gedacht, die 
Bearbeitung einer Eingabezeile abzu- 
brechen. Es erscheint das Doppelkreuz 
»#«, das Sie auffordert, Ihre Eingabe 
mit den gewünschten Korrekturen zu 
wiederholen. 


CTRL-W wiederholt eine vorherige 
Eingabe. Wenn Sie schon Zeichen in 


der Zeile eingetippt haben, stellt sich 
der Cursor lediglich an das Ende der 
Eingabezeile. 

CTRL-X löscht alle Zeichen vom Zei- 
lenanfang bis zur Cursorposition und 
zieht den rechtsstehenden Text nach 
links. 

Die weiteren Control-Funktionen sind 
den meisten CP/M-Benutzern bekannt. 
Da gibt es CTRL-C, mit dem man unter 
der Version 2.2 jede Diskette, die in 
einem Laufwerk gewechselt wurde, 
anmelden muß. CP/M Plusistsoanwen- 
derfreundlich, daß es bei jedem Zugriff 
ein »Log-In« durchführt, wodurch das 
lästige Anmelden der Disketten voll- 
ständig entfällt. 

Wenn Sie CTRL-C drücken, löst der 
Computer aber weiterhin einen Warm- 
start aus. Sie werden dabei bemerken, 
daß das Diskettenlaufwerk nicht 
anläuft, um das BDOS und den CCP 
nachzuladen. Beide Systemteile sind 
unter 3.0 in der Systembank der Spei- 
chererweiterung abgelegt und können 
bei Bedarf blitzschnell zurückkopiert 
werden. 


Auch CTRL-P erfuhr eine Verbesse- 
rung. Diese Tastenkombination schaltet 
das automatische Mitprotokollieren von 
Bildschirmausgaben auf dem Drucker 
ein und wieder aus. Neu ist, daß ein 
nicht angeschlossener (beziehungs- 
weise nicht empfangsbereiter) Drucker 
nicht mehr zu einem Systemabsturz 
führt. Nach einigen Sekunden er- 
scheint vielmehr in der untersten Bild- 
schirmzeile die Meldung: 

LPT not ready - Retry, 
Ignore or Cancel? 

»R« startet einen neuen Versuch zur 
Druckerausgabe, »I« ignoriert, daß ein 
Zeichen nicht abgesetzt werden 
konnte, und versucht die Ausgabe mit 
dem nächsten Zeichen, und »C« bricht 
die Druckerausgabe ab und setzt das 
CTRL-P-Flag zurück. Weitere Versuche 
mit CTRL-P beachtet der Computer 
dann gar nicht mehr. Dieser Benutzer- 
komfort ist allerdings kein Verdienst von 
Digital Research, sondern von Amstrad, 
wo das BIOS entsprechend program- 
miert wurde. 

(Martin Kotulla/hg) 


Transient, resident 


oder was? 


Nicht jeder Befehl unter CP/M 
steht permanent vollständig im 
Speicher. Der Komfort geht auf 
das Konto von Zusatzdateien. 


lle CP/M-Programme besitzen 

neben dem Dateinamen die Ex- 

tension (Erweiterung) ».COM«. 
Besonders wichtige Befehle stehen 
aber ständig im RAM-Speicher - sind 
also »resident« (lat.: residere - verwei- 
len). Dabei handelt es sich beispiels- 
weise um Kommandos zum Anzeigen 
des Disketten-Inhaltsverzeichnisses 
oder zum Löschen von Dateien. Resi- 
dente Kommandos werden blitzschnell 
ausgeführt. Man kann jedoch nicht alle 
Befehle im RAM aufnehmen; deshalb 
stehen die weiteren Kommandos auf 
der Diskette. Diese COM-Dateien hei- 
Ben »transient« (lat.: transire - vorüber- 
gehen), weil sie nur vorübergehend in 
den Speicher geladen werden. 

CP/M Plus kennt eine neue Befehls- 
klasse. Man könnte sie »halb-resident« 
‚oder »transient-resident« nennen. Gibt 
der Benutzer bei einem residenten 


Befehl Parameter an, die dieser norma- 
lerweise nicht kennt, so lädt der Com- 
puter selbsttätig eine Datei gleichen 
Namens in den Speicher. Diese erwei- 
terten Anweisungen sind leistungsfähi- 
ger als die ursprünglichen residenten 
Befehle. 

Beginnen wir mit den einfachen resi- 
denten Befehlen: 

A: wählt das Laufwerk A als Standard- 
laufwerk. 

B: selektiert das Diskettenlaufwerk B 
als angemeldete Station. 

DIR zeigt das Inhaltsverzeichnis einer 
Diskette auf dem Bildschirm an. Wahl- 
weise kann ein Bereich bestimmter 
Dateien mit den Wildcards (Joker- 
Zeichen) »?« und »*« ausgewählt wer- 
den. Der Computer zeigt dann nur die 
Dateinamen an, die ins vorgegebene 
Muster passen. Ein paar Beispiele für 
DIR finden Sie in Bild 1. 

ERA oder ERASE löscht Dateien von 
der Diskette. Angegeben werden ein- 
oder mehrdeutige Dateinamen, sowie 
wahlweise das zugehörige Disketten- 
laufwerk. Einige Beispiele für ERA fin- 
den Sie in Bild 2. 

REN oder RENAME benennt Dateien 


auf der Diskette um. In der residenten 
Version des Befehls sind nur eindeutige 
Dateinamen gestattet. Als erstes muß 
der neue Dateiname eingetippt werden, 
dann der alte. Beide sind durch ein 
Gleichheitszeichen, ein Komma, ein 
Leerzeichen oder einen Tabulator- 
sprung voneinander getrennt: 

A>REN NEU.TXT=ALT.TXT 

A>RENAME B:NEUER.TXT=ALTER.TXT 
A>REN A,B 

A>REN BA 

A>RENAME A<CTRL-I>B 

Die Erweiterung erlaubt auch das 
gleichzeitige Umbenennen mehrerer 
Dateien: 

A>REN *.TXT=*.BAK 
A>RENAME DATEI.*=*.221 
A>REN *%.BAK=*.* 

TYP oder TYPE gibt eine ASCII-Datei 
auf dem Bildschirm aus. Sie läßt sich 
natürlich mit CTRL-P zusätzlich auf dem 
Drucker auflisten. Die Anzeige von 
COM-Files und anderen Nicht-Text- 
Dateien führt meist zu den tollsten 
Resultaten wie blinkenden Farben, Set- 
zen von Windows und ähnlichen über- 
raschenden Dingen. Das liegt daran, 
daß manche Codes mit TYPE als Bild- 


schirmsteuerzeichen interpretiert wer- 
den. Sie sollten daher solche Dateien 
besser nicht ausdrucken. Beispiele für 
HYPE: 
A>TYPE DATEI.TXT 
A>TYP DATEI.TXT 

Die Bildschirmausgabe können Sie 
mit CTRL-S anhalten und mit CTRL-Q 
wieder fortsetzen. Abgebrochen wird 
die Anzeige durch CTRL-C. Jedesmal, 
wenn der Bildschirm vollgeschrieben 
ist, erscheint die Systemmeldung 
Press RETURN to Continue 
und der Computer wartet auf einen 
Tastendruck. Dies muß übrigens nicht 
RETURN sein, jede beliebige andere 
Taste eignet sich dazu genauso. Dann 


A>DIR 

A>DIRB: 

A>DIR *COM 
A>DIR KEYS" 
A>DIR FILESCOM 
A>DIR B:?BBC." 


alle Dateien der angemeldeten Diskettenstation werden ausgegeben. 

-alle Dateien von Laufwerk B werden ausgegeben. 

-alle Dateien mit dem Zusatz »COM« werden angezeigt. 

-alle Dateien mit dem Namen »KEYS« werden angezeigt. 

die Datei »FILESCOM« wird angezeigt. 

alle fünfbuchstabigen Dateien auf Laufwerk B, die »BBC« als dritten bis fünften Buch- 
staben haben, werden angezeigt. 


Bild 1. Das Directory in allen Variationen 


A>ERA FILECOM -die Datei »FILECOM« wird gelöscht. 

A>ERA "COM „alle Dateien mit dem Zusatz »COM« werden gelöscht. 

A>ERASE "COM -alle Dateien mit dem Zusatz ».COM« werden gelöscht. 

A>ERA A?CDEF.TT -alle sechsbuchstabigen Dateien mit einem »Acals ersten und »CDEF: als dritten bis 
sechsten Buchstaben, sowie einem Zusatz mit »T« als letzten Buchstaben, werden 


gelöscht. 
„alle Dateien werden gelöscht. 
„alle Dateien werden gelöscht. 


A>ERA ** 
A>ERASE ** 


erscheint allerdings das betreffende 
Zeichen auf dem Bildschirm. 

USER oder USE wechselt den Benut- 
zerbereich. Normalerweise ist die 
Benutzernummer O vorgegeben. 

»USER 5« bedeutet zum Beispiel, daß 
DIR nur diejenigen Dateien auflistet, die 
im Benutzerbereich 5 gespeichert sind. 
Die Dateien aus denanderen Bereichen 
werden nicht angezeigt. Die Befehls- 
‚syntax sieht so aus: 

USER 4 
USE 0 
USER 15 

Unter CP/M Plus stehen dem Benut- 
zer die Bereiche O bis 15 zur Verfü- 
gung. Ist ein anderer als der User- 
Bereich O gewählt, erscheint die Num- 
mer im CP/M-Prompt: 

A>USER 11 
11A>USER 3 
3A>USER 0 
A> 

Geben Sie nur »USER« ein, so fragt 
Sie der Computer nach der gewünsch- 
ten Benutzernummer: 

A>USER 
Enter User #: 4 
4A> 

Es gibt noch einen einfacheren Weg, 
zwischen den verschiedenen Benut- 
zerbereichen hin- und herzuschalten. 
Diese Methode ähnelt der Umschal- 
tung zwischen einzelnen Laufwerken: 


Der Benutzerbereich O unterschei- 
detsich von allen anderen dadurch, daß 
Dateien mit SYS-Attribut (siehe Artikel 
über SET.COM in dieser Ausgabe), die 
in diesem Benutzerbereich stehen, von 
allen anderen Bereichen ebenfalls auf- 
gerufen werden können. Der Benutzer 
0 ist sozusagen ein »Super-User« oder 
»Super-Visor«. Den anderen Benutzern 
ist es nur gestattet, Daten vom Benut- 
zerbereich O zu lesen und zu laden, 
nicht aber in diesen Bereich zu schrei- 
ben. 


Bild 2. Löschen mit Komfort 


Scanning Directory... 
Sorting Directory... 


Directory For Drive A: User ® 


Total Bytes - 


Total ik Blucks = 146 


146k Total Records = 
Used/Max Dir Entries For Drive Ar 


Bytes Recs Attributes 

BANKMAN BAS 

CIOCPMs EMS 
com 
com 
com 
cer 
com 
com 
com 
com 
com 


1893 Files Found = 
297 64 


Bild 3. Ganz schön leistungsfähig, dieses DIR[FULL] 


Nebenbei erwähnt: In CP/M Plus dür- 
fen Sie mehrere Befehle in einer einzi- 
gen Zeile eingeben. Sie werden durch 
Ausrufezeichen voneinander getrennt: 
A>DIR ! ERA FILE.COM ! DIR 

Wenn Sie nun auf die Erläuterung 
des unter CP/M 2.2 residenten SAVE- 
Befehls warten, müssen wir Sie ent- 
täuschen. Dieses Kommando, das Teile 
der TPA auf der Diskette speichert, ist 
unter CP/M Plus nicht mehr resident, 
sondern steht als SAVE.COM auf der 
Diskette. Das erschwert die Arbeit oft 
unnötig, weshalb diese Maßnahme 
wohl seitens der Benutzer keine Begei- 
sterungsstürme auslöst. 

Sozusagen als Ersatz versteht der 
Computer jetzt das Kommando DIRSYS. 
Dieser Befehl zeigt Systemdateien an 
einer Diskette an. Er hat die gleiche 
Syntax wie DIR und kann auch zu DIRS 
abgekürzt werden: 

A>DIRSYS 

A>DIRS 
A>DIRSYS.COM 
A>DIRS ??AAB.COM 

Gehen wir nun zu den »Mischbefeh- 
len« über. Von einem schönen alpha- 
betisch sortierten Directory samt 


Angabe der Dateigrößen und anderer 
Informationen träumt wohl jeder. 

DIR.COM unter CP/M Plus kann das 
auch. Sie erinnern sich: Schwierige 
Aufträge kann ein residenter Befehl 
nicht bearbeiten und reicht sie an das 
transiente Programm weiter. DIRCOM 
(die Erweiterung von DIR) steht beim 
6128 auf der ersten CP/M-Systemdis- 
kette. Geben Sie 
A>DIR [FULL] 
ein und es erscheint die Meldung 
Scanning Directory... 

Sorting Directory... 

Der Computer gibt dann sortiert den 
Disketteninhalt aus und zwar so, wie es 
Bild 3 zeigt. 

Weitere nützliche Fähigkeiten von 
DIR.COM zeigen[DIR], das ausschließ- 
lich Nicht-Systemdateien auflistet, 
[SYS], das nur die Systemfiles ausgibt 
und [NOPAGE], das die Aufforderung 
»Press RETURN to Continue« bei voll- 
geschriebenem Bildschirm unter- 
drückt. 

Die Anweisung [NOSORT] unterläßt 
die alphabetische Sortierung der Datei- 
namen. [RO] zeigt nur schreibge- 
schützte Files (Read/Only Files) an, 
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Stamping Inactive«. 


[RW] hingegen nur solche ohne 
Schreibschutz (Read/Write Files). 
[DATE] gibt die Datums- und Uhrzeit- 
kennung der Dateien mit aus, wenn die 
Diskette mit INITDIR.COM (siehe Artikel 
»Sekundengenau« in dieser Ausgabe) 
entsprechend vorbereitet wurde. [ATT] 
zeigt die vom Benutzer definierbaren 
Dateiattribute F1, F2, F3und F4 zusätz- 
lich mit an - sofern sie eingeschaltet 
sind. 

Statt der Angabe »DIR B:[Option]« 
können Sie aber auch »DIR [DRIVE= 
BOption]« eingeben. Hier erkennen 
Sie, wie Sie mehrere Optionen gleich- 
zeitig spezifizieren. Diese werden 
durch Kommas getrennt. 

DIR [DRIVE=A, FULL,NOPAGE,DATE] 

Doch DIR.COM kann noch mehr. Statt 
»DRIVE=d« versteht es auch »DRIVE= 
ALL« und gibt dann das Directory aller 
angeschlossenen Diskettenstationen 
aus. Interessiert der Disketteninhalt von 
mehreren der angeschlossenen Lauf- 
werke, verwendet man den Befehl 
»[DRIVE=(A,B....)]«. 

[SIZE] sortiert die Dateinamen nicht 
nach dem Alphabet, sondern nach der 
Dateigröße. 

Um die Dateien eines speziellen 
Benutzerbereichs aufzulisten, eignen 
sich zwei Kommandos. Das eine lehnt 
sich an den residenten USER-Befehl 
an, das andere an das Programm 
PIPCOM. [USER=n] entspricht [Gn]. 
A>DIR [USER=5] 

A>DIR [65] 

Der G-Befehl wurde allerdings von 

Digital Research offiziell nicht doku- 
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AT Ausgabe der benutzerdefinierten Datelattribute F1, F2, F3 und F4. 
Zusätzliche Ausgabe der Datums- und Uhrzeit. Sind die Disketten nicht mit 
INITDIR.COM vorbereitet, erscheint die Fehlermeldung ERROR: Date and Time 


-Es werden nur diejenigen Dateien gezeigt, die keine Systemfiles sind. 
-Das Directory wird vom angegebenen Laufwerk geholt 
-Das Inhaltsverzeichnis der angegebenen Laufwerke wird angezeigt. 


DRIVE=ALL Das Inhaltsverzeichnis aller angeschlossenen Laufwerke wird ausgegeben. 

EXCLUDE -Alle angegebenen Dateinamen werden bei der Ausgabe des Inhaltsverzeichnisses 
von DIR.COM unterdrückt. 

FF -Ist der Drucker mit CTRL-P zugeschaltet, wird vor der Ausgabe des Directory ein 
Line-Feed gesendet. Über LENGTH läßt sich die Seitenlänge festlegen. 

FULL -DIR.COM gibt ein vollständiges Inhaltsverzeichnis aus. 


Gn -Zeigt das Inhaltsverzeichnis des angegebenen Benutzerbereichs. 


LENGTH=n -Bestimmt die Seitenlänge, also die Zahl der Zeilen, nach der jeweils ein Form-Feed 
an den Drucker geschickt wird 

MESSAGE -Sagt dem DIR-Programm, daß alle durchsuchten Laufwerke und Benutzerbereiche 
angezeigt werden sollen. »DIR[USER=ALL,MESSAGE]« gibt inallen Benutzerberei- 
chen, in denen keine Dateien gefunden werden, »Directory For Drive d: Usern-No 
File« aus. 

NOPAGE -Unterdrückt die Ausgabe von »Press RETURN to Continue« am Seitenende. 

NOSORT -Verhindert die alphabetische Sortierung der Dateinamen. 

RO -Zeigt nur Dateien mit dem Read/Only-Attribut 

RW -Zeigt nur Dateien mit dem Read/Write-Attribut 

SIZE -Gibt ein vereinfachtes Directory-Listing aus, 

sys -Zeigt nur Dateien mit dem SYS-Attribut. 

USER=n -Listet die Dateien eines speziellen Benutzerbereichs. 

USER=(0.,..)  -Gibtauf dem Bildschirm die Dateien aller angegebenen Benutzerbereiche aus. 

USER=ALL -Zeigt das Directory aller Benutzerbereiche. 


Bild 4. Alle Befehlsformen von DIR.COM auf einen Blick 


mentiert und entsprang wohl einer 
Laune des Programmierers. 

[USER=n] hat eine Zusatzoption - 
und zwar ALL[USER=ALL]. 
A>DIR [FULL,USER=ALL] 

Ebenso können mehrere Benutzer- 
bereiche gleichzeitig gelistet werden. 
A>DIR [FULL,USER=(0,1,2,3,4)] 

Die Option MESSAGE erlaubt es dem 
Benutzer, die Arbeit von DIR.COM zu 
verfolgen. Das Programm zeigt dann 
ständig an, welches Laufwerk und wel- 
che Benutzer-Nummer gerade unter- 
sucht wird. 

Speziell für die Druckerausgabe sind 
die Anweisungen FF und LENGTH ge- 
dacht. FF weist DIR.COM an, vor der 
Ausgabe einen Blattvorschub (Form- 
Feed) an den Drucker zu senden. 
LENGTH=n setzt die Seitenlänge in 
Druckzeilen fest. 

Zuletzt noch die EXCLUDE-Option. 
Wie der Name schon andeutet, lassen 
sich bestimmte Dateien aus dem 
Inhaltsverzeichnis wieder herausneh- 
men. So druckt 
A>DIR [EXCLUDE] *.COM 
alle Dateien bis auf die COM-Files aus. 

Eine vollständige Darstellung aller 
DIR-Optionen zeigt Bild 4. 

Erheblich komfortabler als unter 
CP/M 2.2 arbeitet auch ERA.COM. 
Fragt die Version 2.2 nur nach der Ein- 
gabe von »ERA *.*«, ob das Löschen 
der gesamten Diskette wirklich im 
Sinne des Anwenders ist, geschieht 
das unter CP/M Plus bei jedem mehr- 
deutigen Dateinamen, in dem ein Frage- 
zeichen oder Stern vorkommt. 


A>ERA *.* 
ERASE *.* (Y/N)? 
A>ERA F.* 
ERASE F.* (Y/N)? 
A>ERA R??.COM 
ERASE R??.COM (Y/N)? 
Die eigentliche Datei ERA.COM wird 
erst aktiv, wenn Sie »ERA« ohne P 
meter eingeben. Das Programm fra 
dann nach den zu löschenden Files: 


A>ERA 
Enter filename: DATEI 
A: DATEI (vn)? x 


Bei mehrdeutigen Dateinamen zeigt‘ 
ERA.COM alle in Frage kommenden‘ 
Files und gibt dem Benutzer Geleger 
heit anzugeben, ob die Dateien 
gelöscht werden sollen oder nicht. 
A>ERA 


Enter filename: DATEI.* 
A: DATEI (N)? X 
A: DATEI .2 (YN)? N 


Die Abfrage von mehrdeutigen Datei- 
namen kann auch bei der direkten 
Angabe der ERA-Parameter über 
»CONFIRM« erfolgen. 

A>ERA *.COM [CONFIRM] 
A: SUBMIT .COM (Y/N)? N 
A: SETKEYS .COM (Y/N)? Y 
A: LANGUAGE.COM (Y/N)? "C 
**% Aborted by "C **%* 

Der normale RENAME-Befehl ge- 
stattet weder unter CP/M 2.2 noch 
unter 3.0 die Angabe mehrdeutiger 
Dateinamen. RENAMECOM nun 
macht's möglich. 

A>REN 
Enter New Name: *%.CIM | 
Enter Old Name? *.COM 

War CP/M 2.2 noch darauf ausgerich- 
tet, daß eine eventuelle Laufwerksbe- 
zeichnung nur beim ersten oder beibei- 
den Dateinamen (aber dann identisch) 
angegeben werden durfte, ist es der 
Version 3.0 »egal«, ob Sie den Lauf- 
werksnamen beim ersten oder zweiten 
Dateinamen nennen. 

Ein ohne Parameter aufgerufenes 
»TYPE« veranlaßt den Computer, 
»TYPE.COM« in den Speicher zu laden 
und die Anfrage »Enter file:« auszu- 
geben: 

A>TYPE 
Enter file: 

Gefällt Ihnen nicht, nach jeweils 24 
oder 25 ausgegebenen Zeilen eine 
Taste drücken zu müssen (»Press 
RETURN to Continue«), können Sie 
diese Funktion mit [NOPAGE] ab- 
schalten: 

A>TYPE TEXT.DAT[NOPAGE] 

Auch die Schreibweise »NO PAGE«, 
also mit einem eingefügten Leerzei- 
chen, ist dem System verständlich. 
A>TYPE TEXT.DAT[NO PAGE] 

Die Option »PAGE« ist ebenso zuläs- 
sig, kann aber wegfallen, weil sie schon 
standardgemäß voreingestellt ist. 

(Martin Kotulla/hg) 


KoOniFuTER 


Der Schneider CPC 6128 wird 
mit verschiedenen, speziell für 
ihn geschriebenen Program- 
men ausgeliefert. Was diese 
alles leisten, das finden Sie 
nicht in Ihrem Handbuch. 


eben den eigentlichen System- 

dateien enthält die CP/M-Dis- 

kette des Schneider CPC 6128 
verschiedene Hilfsprogramme, die die 
‚Arbeit mit dem Computer komfortabler 
machen. Was fehlt, ist eine ausführliche 
Beschreibung im Handbuch. 

AMSDOS.COM ist eine sehr kurze 
Datei (1 KByte), die die Rückkehr aus 
CP/M ins Basic ermöglicht. Dazu ruft 
das Programm den RSX-Befehl »IBA- 
SIC« auf. Da dabei alle Daten im Spei- 
cher verlorengehen, kann man auch 
einen einfacheren Weg wählen, indem 
man einfach die Tasten CTRL, SHIFT 
und ESC gleichzeitig drückt. 

Bei DISCKIT3.COM handelt es sich 
um ein sehr benutzerfreundliches Pro- 
gramm, mit dem sich Disketten kopie- 
ren, formatieren und verifizieren (die 
Kopie auf Fehler überprüfen) lassen. 
Das Programm ermittelt automatisch 
die Zahl der angeschlossenen Disket- 
tenlaufwerke. Es wird mit den Funktions- 
tasten gesteuert und ist nahezu narren- 
sicher zu bedienen. Diese Sicherheit 
erfordert allerdings auch etwas Auf- 
wand, So muß der Benutzer etwa jede 
Auswahl, die er getroffen hat, bestäti- 
gen, und beim Kopieren von Disketten 
diese zwingend aus dem Laufwerk ent- 
fernen, um anschließend eine Taste 


drücken zu können. Das Programm 
überprüft sogar, ob das Laufwerk dann 
auch wirklich leer ist. 

Das Hauptmenü von DISCKIT3 stellt 
die Wahl frei zwischen »Copy« (sekto- 
renweises Kopieren von Disketten), 
»Format« (Formatieren der Disketten), 
»Verify« (Überprüfung von Disketten) 
sowie »Exit from program«, das die 
Bearbeitung des Programms abbricht. 

LANGUAGE.COM schaltet zwischen 
verschiedenen nationalen Zeichensät- 
zen um. Das betrifft aber leider nur die 
Bildschirmausgabe und nicht die 
Tastaturbelegung. Letztere erfordert 
die Umstellung mit SETKEYS.COM. 
Language benutzt folgende Parameter: 


A>LANGUAGE 0 - 
US-amerikanische Zeichen 
A>LANGUAGE 1 - 
Französische Zeichen 
A>LANGUAGE 2 - 
Deutsche Zeichen 
A>LANGUAGE 3 - 
Britische Zeichen 
A>LANGUAGE 4 - 
Dänische Zeichen 
A>LANGUAGE 5 - 
Schwedische Zeichen 
A>LANGUAGE 6 - 
Italienische Zeichen 
A>LANGUAGE 7 - 
Spanische Zeichen 


Bei dieser Gelegenheit wollen wir 
auch darauf hinweisen, daß CP/M 3.0 
auf dem Schneider einen völlig anderen 
Zeichensatz benutzt als CP/M 2.2. Das 
betrifft vor allem die Grafikzeichen, die 
vollständig durch andere Symbole und 


eine Reihe nationaler Zeichen mit den 
verschiedensten Akzenten und Tilden 
ersetzt wurden. Aber auch bei den 
Buchstaben »O«, »Q« und der »0« (Null) 
änderte sich die Definition. Aufgrund 
dieser Änderungen sind viele pro- 
fessionelle Anwenderprogramme be- 
fähigt, ohne Schwierigkeiten auf die 
verschiedensten Zeichensätze zuzu- 
greifen. Allerdings läuft CP/M 
2.2-Software nicht mehr korrekt, wenn 
sie auf Grafikzeichen angewiesen ist. 

Das Programm PALETTE.COM paßt 
Bildschirm- und Zeichenfarben an. Der 
Aufruf erfolgt mit 
A>PALETTE Schirm-, Schriftfarbe 

Für schwarze Schrift auf leuchtend 
weißem Grund mit leuchtend weißem 
Bildschirmrand geben Sie beispiels- 
weise 
A>PALETTE 63,0 
ein. Auch die hexadezimale Darstellung 
der Zahlen für die Farben ist zulässig: 
A>PALETTE &3F,&00 

Eine getrennte Festlegung der Hin- 
tergrund- und der Randfarbe - sowie 
Blinken - läßt sich mit PALETTE nicht 
einstellen. 

Wenn Sie unter CP/M im Modus 1 
oder O arbeiten wollen, können Sie wei- 
tere Farben festlegen. Dazu fügen Sie 
beiPALETTE die Werte für die Farbregi- 
ster O bis 15 hinzu. Allerdings verläuft 
dann der Bildschirmaufbau vieler Pro- 
gramme, die jameist mit 80 Zeichen pro 
Zeile arbeiten, nicht korrekt. 
A>PALETTE FarbeO Farbel Farbe2 
Farbe3 Farbe4 Farbe5 Farbe6 
Farbe7 Farbe8 Farbe9 Farbe10 
Farbeill Farbei2 Farbeil3 Farbei4 
Farbe15 

Natürlich dürfen Sie auch einige der 
Register freilassen. Um beispielsweise 
nur fünf Farben (0 bis 4) zu definieren, 
tippen Sie: 

A>PALETTE 01023 
Unter Basic ginge das mit: 
10 INK 0,0 

20 INK 1,1 

30 INK 2,0 

40 INK 3,2 

50 INK 4,3 

Die Farbnummern entsprechen nicht 
denen des Basic-Interpreters, sondern 
sind sehr trickreich codiert. Alle Werte 
dürfen im Bereich zwischen O und 63 
liegen. Größere Werte als 27 werden 
logisch verknüpft, bis ein passender 
Wert herauskommt. 

Die Zahlen von O bis 63 lassen sich in 
sechs Bit darstellen. Je zwei Bit der 
Zahl geben die Intensität einer der drei 
Grundfarben Rot, Grün und Blau an. Bit 
O und 1 spezifizieren die Intensität des 
Blau-Anteils, Bit 2 und 3 des roten und 
Bit 4 und 5 des grünen Anteils. 

Mit zwei Bit lassen sich 2?, also vier 
verschiedene Intensitäten darstellen, In 
allen Kombinationen ergibt das mehr 
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Farben, als der Video-Chip wiederge- 
ben kann. Deshalb werden die Intensi- 
täten intern auf drei verschiedene 
Werte beschränkt. 

- Intensität OO bin (0 dez) entspricht 

Intensität O. 

- Intensität O1 bin (1 dez) entspricht 

Intensität 1. 

- Intensität 10 bin (2 dez) entspricht 

Intensität 1. 

- Intensität 11 bin (3 dez) entspricht 

Intensität 2. 

‚Somit ist es ohne Bedeutung, ob Sie 
als Intensität 01 oder 10 bin angeben. 

Die Farbwerte für PALETTE.COM im 
Vergleich mit den Werten für den Basic- 
Befehl INK finden Sie in Bild 1. 

Durch den Aufruf von SET24X80. 
COM kann man zwischen 24 und 25 
Bildschirmzeilen hin- und herschalten. 
Das ist deshalb notwendig, weil der 
Schneider-Computer mit 25 Zeilen pro 
Bildschirmseite, einige CP/M-Program- 
me aber nur mit einer 24zeiligen Dar- 
stellung korrekt arbeiten. 

A>SET24X80 ON 
A>SET24X80 OFF 

Denn bei einigen Versionen des 
Schneider CPC 6128 läuft dieses Pro- 
gramm nicht perfekt. Also kann leider 
nicht jeder Schneider-Fan CP/M auf 24 
Zeilen verteilt bestaunen. 


Tastatur mit Komfort 


SETKEYS.COM definiert die Tastatur 
um. Die Routine entspricht damit den 
Basic-Befehlen KEY und KEY DEF. Auf 
der Systemdiskette 1 befinden sich 
zwei bereits für bestimmte Zwecke vor- 
bereitete Dateien - nämlich KEYS.CCP 
und KEYS.WP. Die erste Datei paßt die 
Sondertasten des Computers zur 
‚Arbeitim CCP (Console Command Pro- 
cessor) an. Die KEYS.WP-Datei eignet 
sich zur Benutzung von Textverarbei- 
tungs-Programmen. »WP« steht dabei 
für »Word-Processor«: 

A>SETKEYS KEYS.CCP 
A>SETKEYS KEYS.WP 

Auf der dritten Seite der Systemdis- 
ketten stoßen Sie noch auf KEYS.DRL, 
eine spezielle Tastaturbelegung für Dr 
Logo. 

A>SETKEYS KEYS.DRL 
A>10603 

Um eine solche Datei selbst zusam- 
menzubauen, benötigen Sie einen Text- 
editor, beispielsweise Wordstar im N- 
Modus (»Non-Document« - Bearbeiten 
einer Programmdatei) oder auch »PIP 
KEYS.DAT=CON:«. PIP erfordert am 
Zeilenende allerdings ein RETURN und 
CTRL-J, am Ende der Datei dann CTRL- 
Z. Tippfehler dürfen Sie sich dabeinicht 
erlauben. Ansonsten eignet sich jeder 
Editor, der reine ASCIl-Files erzeugt. 


10 OPENOUT "KEYS.DAT” 
20 PRINT #9 


90 CLOSEOUT 

In der neuen Datei definiert jede Zeile 
eine Taste um. Dazu brauchen Sie den 
Code der Taste. Das ist der gleiche, der 
auch für den Befehl KEY DEF benutzt 
wird. Dieser ist im Handbuch - aber 
auch auf der Oberseite der eingebau- 
ten Diskettenstation des CPC 6128 - 
abgedruckt. Um beispielsweise ein Zei- 
chen auf die Z-Taste zu legen, müssen 
Sie den Code 71 angeben. Die nächste 
Eingabe bezieht sich auf die Tastatur- 
ebene, die umdefiniert werden soll. »N« 
steht dabei für »Normal«, »S« für 
»SHIFT« und »C« für die CTRL-Ebene. 

Die deutsche DIN-Tastatur hat gegen- 
über der amerikanischen Norm »Z« und 
»Y« vertauscht. Wollen wir nun das »Y« 
auf die Normalebene der Z-Taste legen, 
so müssen wir eingeben: 
7ıN "y" 

Um alle drei Ebenen der Z- und der Y- 
Taste zu vertauschen (was der deut- 
schen Norm entspricht), schreiben wir 
folgende Befehle in die Datei: 
7ıN "y” 

715 ”Y” 
RUGCY” 
43 N 'z” 
438 "2" 
30 72° 

Control-Codes, deren ASClIl-Wert 
zwischen O und 31 liegt, lassen sich 
also durch einen vorhergehenden Pfeil 
nach oben eingeben. Die Beschrei- 
bung der Control-Funktionen finden Sie 
in dem Artikel »CP/M mit Nachbrenner« 
in diesem Heft. 

Soll auf alle drei Tastenebenen der- 
selbe Code gelegt werden, können Sie 
sich etwas Arbeit sparen: 

TEN B:C: 5,8 

Die Z-Taste ist jetzt in allen drei Ebe- 
nen mit dem Leerzeichen belegt. Statt 
des gewünschten Zeichens selbst darf 
auch der entsprechende ASCIl-Wert 
eingesetzt werden. Dieser wird mit »" ’« 
eingeleitet und mit »’« abgeschlossen. 

Die Tabelle 
ven Bel r 
71:8 Tı391= 
710 m 12518 
43 N T 11221” 

43 5 "190'" 
43.0 Tı26'” 
vertauscht auch die Z- mit der Y-Taste. 

Hexadezimalen Zahlen stellt man ein 
Doppelkreuz voran. 
71N 71479" 
7ı1S TI4591” 

710 Mıgıgır 
HEN TITAN" 
43 5 "5a" 
43 0 "'#1a'” 


Wahlweise wird auch das kaufmänni- 
sche Und-Zeichen als Kennung für 
hexadezimale Werte akzeptiert. 
7ıN 
7158 
7ıcC 
43 N 
43 5 
43 0 
Sogar die Namen der Steuercodes 
wie beispielsweise »CR«, »FF« und 
»ESC« sind erlaubt. Sie müssen nur 
dem ASCIl-Standard entsprechen. 

47 S TıFFı" 
47 CT ıESCı” 

Eine vollständige Tabelle der ver- 
schiedenen Darstellungen für die Steu- 
ercodes im Bereich zwischen 0 und 31 
finden Sie im Bild 2. 

Bei der hier besprochenen Routine 
dürfen am Ende jeder Zeile Kommen- 
tare eingefügt werden. 

71 N "1479!" verwende y statt z 

Auch die Belegung der Funktions- 
tasten geschieht mit Hilfe von 
SETKEYSCOM. Die Befehlszeilen 
dafür leitet ein »E« (für »Expansion 
String«) ein. Es folgt der Erweiterungs- 
code und dann der Funktionsstring. Um 
beispielsweise die Taste FO mit DIR zu 
belegen, schreibt man 
E 128 ’DIR'M” 

Die Angabe »"M« sorgt dafür, daß ein 
Carriage-Return mit in den String auf- 
genommen wird, so daß sich nach Betä- 
tigen der Funktionstaste FO die 
RETURN-Taste erübrigt. 

Die Nummer des Erweiterungscodes 
darf wieder in hexadezimaler Schreib- 
weise eingefügt werden - auch hier mit 
dem kaufmännischen Und-Symbol »&« 
oder dem Nummernzeichen »#«: 

E &80 "DIR'M” 
E #81 "AMSDOS’M” 


Druckersteuerung 
mit Leichtigkeit 


Eine ähnliche Datei wie SETKEYS. 
COM verwendet auch SETLST.COM. 
Dieses CP/M-Programm versorgt den 
Drucker (»List Device«) mit Steuer- 
codes. Wollen Sie zum Beispiel den 
NLQ401 von Schneider oder den bau- 
gleichen Drucker M-1009 von Brother 
auf Briefqualität (Near Letter Quality) 
umschalten, geben Sie unter Basic 
PRINT #8,CHR$(27) ;CHR$(73); 
CHR$(3) 
ein. Unter CP/M Plus brauchen Sie 
dazu eine Datei mit folgendem Ausse- 


Wenn Sie diese Datei mit dem Namen 
»NLQ« speichern, dann können Sie 


unter CP/M auf die NLQ-Briefqualitätmit 
»SETLST NLQ« umschalten. Aber auch 
der umgekehrte Weg ist möglich. Die 
Datei NLOOFF schaltet wieder auf die 
normale Matrixdrucker-Schrift um. 
SıESC! 

R 

Da die verschiedenen Darstellungs- 
arten mit denen von SETKEYS.COM 
identisch sind, zeigt Bild 2 auch die 
erlaubten Druckercodes. 

Wer Besitzer einer seriellen Schnitt- 
stelle ist, kann diese unter CP/M Plus 
mit SETSIO.COM ansteuern. Das von 
Schneider angebotene Interface arbei- 
tet allerdings nicht mit SETSIO zusam- 
men. Sie müssen auf die RS232-Erwei- 
terung von Amstrad zurückgreifen. 
Deshalb nämlich, da Schneider seine 
Eigenentwicklung zu einem möglichst 
günstigen Preis unter die Leute bringen 
wollte. So baute man in das Interface 
einen Z80-STI-Chip (»Serial Timer and 
Interface«) ein, anstelle der ICs 
Z80-SIO (»Serial Input/Output«) und 

_ Intel-8255. Das ist zwar billiger, aber 
die Kompatibilität fehlt. 

Der einfache SETSIO-Befehl testet, 
‚ob überhaupt eine serielle Schnittstelle 
angeschlossen ist: 

A>SETSIO 
SIO not found 

Diverse Parameter stellen die Schnitt- 
stelle ein. So legt RX die Übertragungs- 
geschwindigkeit in Baud für den Emp- 
fang (TX für das Senden) fest. »BITS n« 


Leuchtend weiß 


Bild 1. Reiche Auswahl - 
‚alle Farben von PALETTE.COM 


bestimmt die Zahl der Datenbit und 
»STOP n« die der Stopbit. 

Um beispielsweise die Geschwindig- 
keit beim Empfang auf 4800 Baud fest- 
zulegen, geben Sie 
A>SETSIO RX 4800 
ein. Soll die Geschwindigkeit für Sen- 
den und Empfangen den gleichen Wert 
aufweisen, so bewirkt das 
A>SETSIO RX 9600, TX 9600 
Einfacher wird es mit 
A>SETSIO 9600 

Mehrere Parameter dürfen gleichzei- 
tig angegeben werden, müssen aber 
durch Kommas getrennt sein. 
A>SETSIO RX 19200, STOP 2, 

BITS 6 


Die komplette Liste aller Anweisur 
gen finden Sie in Bild 3. 


gramme vorgestellt, die es nur bei 
Schneider-Computern unter CP/M Plus 


dem Betriebssystem zusammenhän- 
gen. Nicht direkt zu CP/M Plus gehört 
der Logo-Interpreter, der auf der dritten. 
Seite der Systemdisketten in den 
Dateien LOGO3.COM und LOGO3.SUB 
enthalten ist. Eine Einführung in Logo 
finden Sie im 2. Schneider-Sonderheft 
(Sonderheft 1/86 von Happy-Computer). 


(Martin Kotulla/hg) 
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Bild 2. Die Steuercodes für SETKEYS.COM und SETLST.COM 


Bild 3. Freie Auswahl - die Optionen von SETSIO.COM 


PIP.COM kopiert alles 


Eines der wichtigsten System- 
Programme unter CPIM ist 
PIPCOM. Es überträgt Daten und 
Dateien zwischen allen Periphe- 
riegeräten, die das Betriebssy- 
stem ansprechen kann. 


IPCOM ist die Abkürzung für 

»Peripheral Interchange Pro- 

gram« - auf Deutsch »Pro- 
gramm zum Austausch von Daten zwi- 
schen Peripheriegerätene. Um das 
Betriebssystem zu verstehen, muß man 
zwei Gruppen von Peripheriegeräten 
unterscheiden, die unter CP/M grund- 
sätzlich verschieden behandelt wer- 
den. Zu der einen Gruppe zählen 
Disketten- und Festplattendateien - in 
der anderen sind die zeichenorientier- 
ten Geräte wie der Bildschirm, die 
Tastatur und der Drucker zu Hause. 

PIPCOM erlaubt das Kopieren von 
Diskettendateien mit folgendem Befehl: 
A>PIP KOPIE.DAT=ORIGINAL.DAT 
‚Allgemeiner läßt sich die Anweisung 
mit 
A>PIP d:ziel.typ=d:quelle.typ 
ausdrücken. Soll die Zieldatei densel- 
ben Namen tragen wie die Quelldatei, 
so erspartman sich etwas Arbeit, indem 
man den Zielnamen wegläßt und nur die 
Laufwerksbezeichnung angibt. 
quelle.typ 


‚Stimmt die Laufwerksbezeichnung in 
einem Dateinamen mit der im CP/M- 
Prompt überein - steht die Datei also 
auf der Diskette in dem gerade aktiven 
Laufwerk -, kann sie wegfallen. 
A>PIP B:=DATEI 

Gegenüber PIPCOM unter CP/M 2.2 
dürfen Sie bei CP/M 3.0 die Reihen- 
folge - ähnlich wie bei RENAME - ver- 
drehen. Völlig gleichwertig mit dem 
gezeigten Aufruf von PIPCOM steht 
A>PIP B:DATEI=A: 

In den meisten Fällen wird PIPCOM 
beim Kopieren einer Datei von einer 
Diskette auf eine andere benötigt. Dafür 
braucht man aber zwei Diskettenlauf- 
werke, wenn man sich nicht die Fähig- 
keit des CPC 6128 zunutze macht, das 
zweite Laufwerk zu simulieren. 

PIPCOM kann auch mehrere Dateien 
auf einmal kopieren. Dies geschieht 
durch Angabe mehrdeutiger Dateina- 
men. Um etwa den gesamten Disketten- 
inhalt von Laufwerk A auf die Diskette in 
Laufwerk B zu übertragen, benutzen Sie 
A>PIP B:=A:%.* 

Will man ausschließlich COM-Files 
kopieren, deren erster Buchstabe ein 


»A« ist, empfiehlt sich unter PIP folgen- 
der Aufruf: 
A>PIP B:=A:A%.COM 

Mit den Wildcards »* «und »?« sind die 
verschiedensten Anweisungen mög- 
lich. 

Oft möchte man bestimmte Pro- 
gramme in einen anderen Benutzerbe- 
reich kopieren. Dazu müssen Sie bei 
der Zieldatei den gewünschten Benut- 
zerbereich zusammen mit einem »G« in 
eckigen Klammern hinter dem Namen 
angeben. 

A>PIP BENUTZ5[G5]=BENUTZER.O 

Lassen Sie die G-Option (»Go to user 
area«) weg, kopiert PIPCOM immer nur 
Dateien im aktuellen Benutzerbereich. 

Die G-Option kann aber auch bei der 
Quelldatei hinzugefügt werden. Dort 
bestimmt sie, aus welchem Benutzer- 
bereich sie geholt werden soll (»Get 
from User«). Eine Datei»BENUTZER.9« 
aus dem Bereich 9 kann so beispiels- 
weise nach O (den aktiven User-Be- 
reich) als »BENUTZER.O« übertragen 
werden: 

A>PIP BENUTZER.O=BENUTZER.10[G9] 

Aber auch zwischen verschiedenen 
Benutzerbereichen läßt sich kopieren. 
Dabei ist nur bei beiden Dateinamen die 
betreffende G-Option ([Gn]) angege- 
ben. 

A>PIP PROG5[G5]=PROG12[G12] 

Während »G« bei der Zieldatei die ein- 
zige erlaubte Option ist, gibt es für die 
Quelldateien eine Reihe zusätzlicher 
Anweisungen, die noch zur Sprache 
kommen. 

Mehrere Dateien vermag PIPCOM zu 
einer einzigen zusammenzufassen. 


Befehle en masse 


Dazu listet man die einzelnen Namen 
der Quelldateien durch Kommas 
getrennt auf. Haben Sie zum Beispiel 
ein Buch geschrieben, das aus den Arti- 
keln 1 bis 5 besteht, können Sie diese 
in der Datei »BUCH« vereinigen. 
A>PIP BUCH=TEXT1,TEXT2,TEXT3, 
TEXT4,TEXTS 

Soweit der Übertrag zwischen den 
diskettenorientierten Geräten. 

Die zeichenorientierten Geräte hei- 
Ben unter CP/M 2.2 »CON:«, »LST:«, 
»RDR:« und »PUN:«. »CON:« und »LST:« 
stehen auch unter CP/M Plus weiterhin 
zur Verfügung. »CON:« (für »Console«) 
bezeichnet sowohl den Bildschirm als 
auch die Tastatur. Die Unterscheidung 
trifft das Betriebssystem dadurch, daß 


Zeichen von der Tastatur nur gelesen. 
und auf den Bildschirm nur geschrie- 
ben werden können. 

Wollen Sie beispielsweise eine Datei 
von der Diskette lesen und auf dem 
Bildschirm auflisten (entsprechend 
dem TYPE-Befehl), gilt »CON:« als Ziel- 
gerät und wird somit als Bildschirm 
identifiziert. 

PIP CON:=KEYS.CCP 

In einem anderen Artikel dieser Aus- 
gabe (»Spezialitäten«) sollten Sie 
PIPCOM als »Mini-Editor« benutzen. 
Dortstand»CON:«auf derrechten Seite 
des Gleichheitszeichens und bezeich- 
nete damit die Tastatur: 

PIP DATEI=CON: 

Es werden so lange Zeichen von der 
Tastatur entgegengenommen undin die 
Datei »DATEI« geschrieben, bis Sie mit 
CTRL-Z unterbrechen. Um in eine neue 
Zeile zu gelangen, drücken Sie RETURN 
und CTRL.J. 

Weniger kompliziert verläuft die 
Zuordnung von »LST:« zum Drucker. 
Denn ein Drucker kann immer nur ein 
Zielgerät sein. Die Ausgabe einer Datei, 
auf dem Drucker erfolgt normalerweise 
mit CTRL-P und TYPE. Doch PIPCOM 
übernimmt auch dies. 

PIP LST:=DATEI 

Eine sehr einfache »Schreibma- 
schine« erhält man durch Zuordnung 
der Tastaturabfrage zur Druckeraus- 


gabe: 

PIP LST.=CON: 

Wie auf einer »echten« mechani- 
schen Schreibmaschine ist aber die 
Korrektur des geschriebenes Textes 
unmöglich. 

Auch die Bildschirmausgabe der 
Texteingabe ist erlaubt, doch wohl 
kaum sinnvoll. 

PIP CON:=CON: 

Das linke »CON:« steht für den Bild- 
schirm, das rechte für die Tastatur. 

Unter CP/M 2.2 gibt es zwei zusätzli- 
che Datengeräte, die ebenso über 
PIPCOM angesprochen werden kön- 
nen. Sie stammen sozusagen aus der 
Computer-»Steinzeit«. »RDR:« bezeich- 
net den Lochstreifenleser (»Readere«) 
und »PUN« den dazugehörigen Stanzer 
(»Punchere«). Unter CP/M Plus entfallen 
diese Abkürzungen. Da die Routinen 
fast ausschließlich zur Steuerung 
serieller Schnittstellen benutzt werden, 
ging man von den speziellen Namen 
weg und wählte die allgemeingültige 
Bezeichnung »AUX:« für »Auxiliary 
Device« (auf Deutsch »Hilfseingang« 
beziehungsweise »Hilfsausgange). 
Ähnlich wie bei »CON:« wird die Unter- 
scheidung zwischen der Ein- und Aus- 


gabe getroffen. Beim Schneider sind 
die AUX:-Geräte bisher nicht belegt - 
also noch frei für eigene Programme. 

Neben diesen Geräten, die in der 
CP/M-Terminologie »logische Geräte« 
heißen, können noch einige spezielle 
Geräte nur von PIPCOM angesprochen 
werden. 

So darf anstelle von »LST.« auch 
»PRN:« stehen. Die beiden Bezeich- 
nungen gleichen sich darin, daß sie 
die Druckerausgabe steuern. »PRN:« 
numeriert aber automatisch die Zeilen, 
setzt Haltepunkte für den Tabulator in 
jeder achten Spalte und erzeugt alle 60 
Zeilen einen. Seitenvorschub (Form- 
Feed). 


Der Mehrfach- 
kommando-Modus 


Speziell für Lochstreifenleser ge- 
dacht ist »NUL:«. 40 vorangehende 
hexadezimale Nullen werden von 
PIPCOM überlesen. 

Eine weitere Eingabeeinheit heißt 
»EOF:«. Sie entspricht »AUX:«, sendet 
aber als Textende-Markierung den 
ASCII-Code 26 (CTRL-2). 

Bleiben noch zwei Geräte übrig. Von 
diesen läßt Digital Research in der 
CP/M-Plus-Dokumentation absolut 
nichts verlauten. Es handelt sich um die 
benutzerdefinierbaren Einheiten »INP:« 
und »OUT:«. Sie sind aber auch nicht zur 
Änderung durch den Anwender vorge- 
sehen - höchstens durch versierte Pro- 
grammierer. Denn dazu muß PIPCOM 
gepatcht werden. Damit läßt sich bei- 
spielsweise eine RAM-Disk in das 
CP/M-Betriebssystem integrieren. 

Das etwas seltsame Wort »Mehr- 
fachkommando-Modus« stammt aus 
der Original-Dokumentation von Digital 
Research undist ein typisches Beispiel 
für eine manchmal etwas holprige Über- 
setzung. Im englischen Originaltext lau- 
tet der Ausdruck »Multiple Command 
Mode«. Er besagt ganz einfach, daß Sie 


Herrn 
Arnold Schneider 
Triumphstraße 464 


6128 Amstradam 


Sehr geehrter Herr Schneider, 


| anbei erhalten Sie die neueste Version unseres 
Wir wünschen Ihnen 


Textverarbeitungsprogramns. 
| viel Spaß damit. 


Mit freundlichen Grüßen 


A> 


PIPCOM nicht jedesmal neu laden müs- 
sen, wenn Sie eine ganze Reihe von 
Dateien zu kopieren haben. Völlig über- 
flüssig (und vor allem langwierig) ist bei- 
spielsweise die Befehlsfolge: 


A>PIP LST:=CON: 

Der Computer muß hierbei den Pro- 
grammcode von PIPCOM insgesamt 
viermal in den Speicher laden. Dabei 
erübrigt sich dies völlig, denn PIP befin- 
det sich nach jedem Aufruf weiterhin im 
RAM. 

Bedeutend einfacher macht es der 
»Multiple Command Mode«. Er wird auf- 
gerufen, indem Sie PIP ohne einen ein- 
zigen Parameter eingeben. Sobald PIP 
geladen ist, erscheint die Bereit- 
schaftsmeldung, und Sie können die 
Befehle eingeben. Das Nachladen von 
PIPCOM entfällt. Abgebrochen wird 
PIP mit CTRL-C oder durch Drücken der 
RETURN-Taste. 


A>PIP 

CP/M 3 PIP VERSION 3.0 
*CON:=FILE 
*LST:=DATEI 

*DATEI=B: FILE 
*LST:=CON: 

“c 


Wie Sie sicher wissen, arbeiten die 
Programme unter CP/M 3.0 oft mit ver- 
schiedensten Optionen. Denken Sie 
zum Beispiel an DIRCOM. Auch 
PIPCOM kennt eine Reihe von einbuch- 
stabigen Befehlen, die das Übertragen 
der Dateien beeinflussen. Manche 
Optionen von PIP unter CP/M 2.2 ent- 
fielen. Sie kommen auch in der Doku- 
mentation von Digital Research nicht 
mehr zur Sprache, 

Weiterhin vorhanden sind [Dn] 
(löscht alle Zeichen ab der Spalte n), [E] 
(Echo aller übertragenen Texte auf der 
Konsole) und [F], das die Ausgabe von 
Form-Feed unterdrückt. Ebenso wird 
[H] (Überprüfung von Intel-Hex-Dateien 
auf korrekten Aufbau) und [1] (alle 
:00-Datensätze in Intel-Hex-Files 


unterdrückt) unterstützt. [L] wandelt die 
Großbuchstaben einer Datei in kleine 
um. [U] macht das Gegenteil. Mit [N] 
schreibt PIPCOM vor jede Zeile eine 
Zeilennummer. Eine Abwandlung davon 
ist der [N2]-Befehl, der vor die Zeilen- 
nummer führende Nullen setzt. 

Sollen Objektcode-Dateien von 
Maschinenprogrammen mit PIPCOM 
verkettet werden, darf der Computer 
das Dateiende nicht mit Hilfe von CTRL- 
Z abfragen. Denn dieses Zeichen 
kommt in ganz normalen Maschinen- 
code-Programmen vor - LD A,(DE) im 
Z80-Code beziehungsweise LDAX D 
als 8080-Mnemonic. Damit die Ver- 
knüpfung dennoch klappt, muß der 
Befehl [O0] (»Object file transfer for 
machine code«) hinzugefügt werden. 

Die Page-Option [Pn] führt alle n Zei- 
len einen Seitenvorschub aus. [Tn] 
weist den Computer an, alle Tabulator- 
Zeichen (CTRL-I) durch die entspre- 
chende Anzahl von Leerzeichen zu 
ersetzen. [R] erlaubt es, SYS-Dateien 
zu lesen. 

Um nur bestimmte Teile einer Datei zu 
extrahieren, finden [Q] und [S] Verwen- 
dung. »Q« steht für »Quit copying after 
string found« und »S« für »Start copying 
from string«. Stellen Sie sich vor, in der 
Datei ARNOLDTXT stünde der Text von 
Bild 1. 


Textkomfort durch 
viele Befehle 


Wollen Sie die Adresse von Arnold 
Schneider in eine Kundendatei einer 
Firma aufnehmen, können Sie diese mit 
PIPCOM aus ARNOLDTXT »heraus- 
schneiden«. 

CP/M wandelt Texte in der Komman- 
dozeile grundsätzlich in Großbuchsta- 
ben um. Als letztes zu übernehmendes 
Wort suchen wir aber nicht »AMSTRA- 
DAM«, sondern »Amstradam«. Deshalb 
greifen wir auf einen kleinen Trick 
zurück und verwenden den Direkt- 


»Sehr« 


Sehr geehrter Herr Schneider, 

anbei erhalten Sie die neueste Version unseres 
Textverarbeitungsprogramms. 
viel Spaß damit. 

Mit freundlichen Grüßen 


Bild 2. Die Ausgabe der Datei ARNOLD.TXT nach dem Wort 


Wir wünschen Ihnen 


Bild 1. Die Datei »ARNOLD.TXT« 
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eingabe-Modus, der Klein- und 
buchstaben akzeptiert. 

A>PIP 
*CON:=ARNOLD.TXT[QAmstradam" Z] 
Herrn 

Arnold Schneider 
Triumphstraße 464 


6128 Amstradam 
“c 


Der String muß also mit CTRL-Z abge- 
schlossen werden. Das gilt auch bei sl 
Dieses kopiert den Text beginnend mit 
der Stelle, an der der String Gerunda 
wird. Um beispielsweise allein de 


=ARNOLD.TXT[SSehr 2] 

Die Ausgabe finden Sie in Bild 2. PIP 
verlassen wir mit CTRL-C. 

Durch eine Kombination der S- und 
der Q-Option können dann aus einer 
Datei einzelne Datensätze herausgezo- 
gen werden. 


Diskettendatei ist. 

[W] Überschreibt schreibgeschützte 
Dateien (R/O-Files) ohne Anfrage an 
den Benutzer und [Z] setzt das siebte 
Bit aller Zeichen auf Null. Diese Option 
wird vor allem für Wordstar-Dat« 
benutzt, bei denen das höchstwertige 
Bit eines Zeichens als Kennung für das 
Ende eines Wortes steht. 


Kombinati 
öalichkeit 


Selbstverständlich lassen sich die 
Optionen - soweit sinnvoll - miteinan- 
der kombinieren. Um beispielsweise in 
einer Wordstar-Datei das siebte Bit zu 
löschen, alle Kleinbuchstaben in große 
zu wandeln und die Aufzeichnung zu 
überprüfen, muß man 
A>PIP DATEI=WSTAR.DAT[ZUV] 
eingeben. 

Neu unter CP/M-3.0 ist [C] - die 
Confirm-Option - die bei jedem Datei- 
namen, der auf die Eingabe paßt, erst 
einmal eine Sicherheitsfrage an den 
Benutzer richtet, ob die Datei über- 
haupt kopiert werden soll. Ebenso gibt 
es jetzt das Archiv-Attribut [A], das es 
erlaubt, nur diejenigen Dateien zu 
kopieren, die seit dem letzten Backup 
verändert wurden - das Festplatten- 
Backup läßt grüßen. Es funktioniert 
aber nur, wenn das Archiv-Bit im Datei- 
namen von SET.COM (siehe »STAT« 
ade!« in diesem Heft) beeinflußt wurde, 


» Was PIP alles kann, zeigt Bild 3. 


eicher CP/M-Freak kennt 
es nicht - STATCOM, ein 
Universalprogramm für fast 


Jeden Zweck. Nun ging es den Wegaller 
überholten Software und wurde ausran- 
‚giert. Es hätte aber auch einige Schwie- 
figkeiten gehabt, mit den neuen Routi- 
nen von CP/M Plus zurechtzukommen. 
Bevor Sie jetzt dem Programm nach- 
trauern: Die Nachfolgeprogramme 
DEVICE.COM, SET. COM und SHOW. 
COM sind erheblich leistungsfähiger 
geworden und ersetzen STAT.COM 
angemessen. 

Beginnen wir mit SET.COM. Es be- 
sitzt eine Reihe von Befehlen, die ein- 
zelne Dateien oder ganze Disketten mit 
Attributen versehen. Es können Paß- 
wörter vereinbart und Disketten 
benannt werden. So legt »SET difile- 
name.typ [Attributsliste]e eines oder 
mehrere der folgenden Attribute für 
eine Einzeldatei oder eine Dateigruppe 
fest. 

- SET DATEI [SYS] versieht das Feld 
»DATEI« mit dem SYS-Attribut. Solche 
Felder werden nicht mehr mit DIR, son- 
dern nur mit DIRSYS gelistet. Ist eine 
SYS-Datei im Userbereich O gespei- 
chert, kann sie von allen anderen 
Benutzerbereichen direkt aufgerufen 
werden: 

A>SET PIP.COM [SYS] 
A:PIP.COM set to system (SYS), 
Read Write (RW) 

A>USER 9 

9A>PIP 

CP/M 3 PIP VERSION 3.0 

* 


- Im Gegenzug schaltet SET DATEI 
[DIR] das SYS-Kennzeichen ab. Die 
Datei erscheint wieder im Directory, ist 
aber auch nicht mehr von fremden 
Userbereichen aufzurufen. 

- SET DATEI [RO] versieht die ange- 
gebene Datei mit einem Schreibschutz. 
Die Datei ändert sich zu »Read-Only« 
und kann nur noch gelesen werden. 
A>SET PIP [RO] 

A:PIP.COM set to system (SYS), 
Read Only (RO) 

- SET DATEI [RW] macht die letzte 
Anweisung wieder rückgängig. Um bei- 
spielsweise bei PIPCOM beide Attri- 
bute (RO und SYS) abzuschalten, müs- 
sen die beiden Bezeichnungen kombi- 
niert werden. 

A>SET PIP.COM [RW,DIR] 


STAT 
ade! 


Das beliebte Allzweck-Pro- 
gramm STAT.COM von CPIM 2.2 
gehört nicht zum Lieferpaket 
CPIM Plus. Es wurde durch die 
erheblich leistungsfähigeren 
Programme DEVICE.COM, SET. 
COM und SHOW.COM ersetzt. 


A:PIP.COM set to directory (DIR), 
Read Write (RW) 

- Die Archiv-Option von PIPCOM ist 
auch über SET zu steuern. Dateien mit 
dem Merkmal [ARCHIVE=OFF] ko- 
piert PIPCOM bei der A-Option, die mit 
[ARCHIVE=ON] nicht. PIP setzt nach 
einem erfolgreichen Kopiervorgang 
das Archiv-Bit auf ARCHIVE=ON. 

- Es gibt vier benutzerdefinierbare 
Dateiattribute. Sie tragen die Namen F1, 
F2, F3 und F4. Der Benutzer kann sie 
nach eigenem Gutdünken verwenden. 
Sinnvoll ist das aber nur, wenn ein Pro- 
gramm speziell für CP/M 3.0 geschrie- 
ben ist und darauf zurückgreift. Die 
Attribute werden gesetzt mit [fn=ON] 
und gelöscht mit [Fn=OFF]. 

A>SET PIP.COM [F1=OFF,F2=0N, 
F3=OFF, F4=0N] 

A:PIP.COM set to directory (DIR), 
Read Write (RW) 24 

Sie erkennen an der Zahl »24«, daß 
das F2- und das F4-Attribut angeschal- 
tet sind, F1 und F3 hingegen nicht. 

Auch Laufwerksattribute dürfen ver- 
einbart werden. So lassen sich Disket- 
tenlaufwerke mit [RO] auf »Read-Only« 
setzen. Damit sind alle schreibenden 
Diskettenzugriffe zum Scheitern verur- 
teilt. Abgeschaltet wird der Schutz mit 
[RW]. Er ist übrigens stets bis zum 
nächsten Warmstart, zum Beispiel mit 
CTAL-C, wirksam. 

A>SET [RO] 


A>SET [NAME=CPM3SYS.DSK] 


Label for drive A: 


Directory 
Label 


Passwds Stamp 


A:CPM3SYS .DSK 
Bild 1. Taufen Sie Ihre Diskette 


BAAPPYM 
EOMESER) 
E." 


Stamp 
Create Access Update 


Stamp Direetory 


Label 


A:CPM3SYS .DSK 
Bild 2. Programmschutz gewünscht? 


Drive A: set to Read Only (RO) 
A>SET B: [RW] 
Drive B: set to Read Write (RW) 

Eine weitere Routine von SET.COM 
ist relativ unbekannt. SET erlaubt es, 
der Diskette einen Namen (ein »Label«) 
zuzuordnen (siehe Bild 1). 

Mit SHOW [LABEL] kann der Name 
später wieder abgefragt werden. 

Falls Sie besonders wertvolle und 
schutzwürdige Informationen besitzen, 
etwa die Liste aller Ihrer Freundinnen, 
können Sie ein Paßwort vereinbaren, 
das wahlweise für einzelne Dateien 
oder die ganze Diskette gilt. Zuerst der 
Schutz der kompletten Diskette. Mit 
A>SET [PASSWORD=SECRET] 
teilen Sie dem SET.COM-Programm 
mit, daß es auf der Diskette einen Ver- 
merk mit diesem Paßwort anbringen 
soll. Versucht ein anderer Benutzer, 
Attribute der Diskette mit SET.COM zu 
verändern, ist er gezwungen, das Paß- 
wort einzugeben. Beispielsweise ist 
das Umbenennen der Diskette ohne 
Paßwort unmöglich, wie folgender Dia- 
log mit dem Computer beweist: 
A>SET [PASSWORD=SECRET] 

Password = SECRET 

A>SET [NAME=NEUER NAME.DSK] 
Directory Label 

Password? DONTKNOW 

ERROR: Wrong Password 


A> 
Die Eingabe des Paßworts bei der 
Sicherheitsabfrage geschieht im 


»Blindflug«. Sie sehen also nicht, was 
Sie eingeben. So kann Ihnen weder 
jemand über die Schultern schauen, 
noch mit dem Protokoll (mit Hilfe von 
CTRL-P) etwas anfangen. 

Ist eine Datei auch vor dem Laden 
geschützt, hängt man das Paßwort an 
den Dateinamen - durch einen Strich- 
punkt von diesem getrennt. 
A>PIP;SECRET 

Das Geheimwort kann man natürlich 
auch wieder aufheben. Dazu geben Sie 
nach »PASSWORD=« einfach RETURN 
oder ENTER ein. Der Computer fragt 
dann das Paßwort ab, Ist eskorrekt, wird 
der Schutz aufgehoben. 

A>SET [PASSWORD= 
Directory Label 
Password? SECRET 

Auch einzelne Dateien lassen sich 
schützen, und zwar wahlweise vor dem 
Lesen, Schreiben oder Löschen. Bevor 


A>SET [PROTECT=ON] 


Label for drive A: 


Passwds Stamp Stamp Stamp 
Regd Create Access Update 
on off off off 


2 
£ 


ZPM = 


Sie das angehen, müssen Sie zuerst 
dem Betriebssystem mitteilen, daß ein 
Programmschutz gewünscht ist. Diese 
Information übernimmt [PROTECT= 
ON] (Bild 2). 

Sie sehen die Veränderung in der 


Spalte »Passwords required«. Dort 
steht jetzt »on«. 
[PROTECT=OFF] schaltet diese 


Schutzvorbereitung wieder ab. War 
bereits vorher ein Schutzwort für die 
gesamte Diskette vereinbart, so muß 
dieses bei beiden PROTECT-Anweisun- 
gen dem System mitgeteilt werden. Der 
Computer fragt gegebenenfalls da- 
nach. 

»PROTECT=ON« aktiviert den 
Schutz für alle Dateien. Dazu geben Sie 
den (ein- oder mehrdeutigen) Dateina- 
men und das Paßwort ein (Bild 3). 


Password: 
A:PIP.COM Not erased, 
Password Error 
A> 

Wie fragwürdig diese ganze »Schüt- 
zerei« jedoch ist, werden Sie bemer- 
ken, wenn Sie Basic aufrufen, um von 
dort aus mit Hilfe von IERA die Datei zu 
löschen. 
a$="PIP.COM”:IERA, @A$ 
Ready 

Unter Basic ist der Schutz nicht wirk- 
sam, da Amsdos Byte für Byte bei allen 
drei Schneider-Computern überein- 
stimmt und mit CP/M 2.2 abgestimmt 
ist. Und dieses Betriebssystem kennt 
noch keine Paßwörter. Wenn Sie aber 
nur unter CP/M Plus arbeiten, dann 
haben die Paßwörter Sinn. 

Eine Spezifikation kam noch nicht zur 


A>>SET *.COM [PASSWORD=COM] 


A:SUBMIT .COM 
A:SETKEYS „COM 
A: LANGUAGE.COM 
A:SET24X80.COM 


Protection=READ, 
Protection=READ, 
Protection=READ, 
Protection=READ, 


Password=COM 
Password=COM 
Password=COM 
Password=COM 


Bild 3. Alle Dateien 
hören auf »COM« 


Dieser Befehl schützt alle Komman- 
dodateien der Diskette mit dem Paßwort 
»COM«. Sehen Sie sich aber bei der 
Anwendung vor, denn wenn Sie 
SET.COM ebenfalls schützen, stehen 
Sie auch als rechtmäßiger Benutzer vor 
verschlossenen Türen und können den 
Schutz der Programme nicht mehr auf- 
heben. Also alle Versuche nur an einer 
Kopie vornehmen! 

Es lassen sich verschiedene Arten 
des Dateischutzes angeben: READ 
verbietet das Lesen, Beschreiben, 
Löschen und Umbennenen einer Datei. 
WRITE entspricht READ, Lesen ist jetzt 
erlaubt. DELETE verhindert lediglich 
das unbefugte Löschen und Umbenen- 
nen von Dateien. NONE hebt den 
Schutz wieder vollständig auf. Soll bei- 
spielsweise bei PIPCOM nur das 
Löschen verhindert werden, müssen 
Sie folgendermaßen vorgehen: 

A>SET [PROTECT=ON] 

A>SET PIP.COM [PASSWORD=PIPCOM] 
A:PIP.COM Protection = READ, 
Password = PIPCOM 

A>SET PIP.COM [PROTECT=DELETE] 
A:PIP.COM 

Password? PIPCOM 

A:PIP.COM Protection = DELETE 

Danach kann PIPCOM ganz normal 
geladen und gestartet werden. 
A>PIP 
CP/M 3 PIP VERSION 3.0 
*c 

Nur das Löschen, beispielsweise mit 

ERA, ist jetzt unmöglich. 
A>ERA PIP.COM 
A:PIP.COM Not erased, 

Password Error 
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Sprache und zwar [DEFAULT=pass- 
word]. Damit lassen sich all die Dateien 
schützen, denen nicht ausdrücklich ein 
eigenes Kennwort zugewiesen wurde. 
A>SET [DEFAULT=GEHEIM] 

Default password = GEHEIM 

SET.COM kennt auch die Datums- 
und Zeitmarkierung von Dateien. Wie, 
das lesen Sie in dem Artikel »Sekunden- 
genau« in dieser Ausgabe. 

Was Sie von STAT.COM unter CP/M 
2.2 noch gewohnt sind, was aber bei 
SET.COM fehlt, das finden Sie fast alles 
in SHOWCOM wieder. SHOW.COM 
dient als »Anzeigeprogramm«. Es offen- 
bart diverse Daten über die Disketten 
beziehungsweise die Laufwerke. So 
gibt SHOW [SPACE] den noch freien 
Speicherplatz des angemeldeten Lauf- 
werks und den Diskettenstatus an. 
A>SHOW [SPACE] 

A: RW, Space: 18k 

Zusätzlich darf vor der eckigen Klam- 
mer ein Laufwerksname spezifiziert 
werden. 

A>SHOW A: [SPACE] 
A>SHOW B: [SPACE] 

Die Kennung [SPACE] kann aber 
auch wegfallen, da es die Standardform 
von SHOW.COM ist. 

A>SHOW 
A: RW, Space: 18k 

Mit Anweisung zeigt SHOW den 
freien Speicherplatz aller Laufwerke, 
sofern seit dem Systemstart minde- 
stens ein Zugriff darauf folgte. 

A>B: 

B>A: 

A>SHOW 

A: RW, Space: 18k 


B: RW, Space: 1k 
SHOW [LABEL] eröffnet Ihnen auch. 

welchen Namen die Diskette besitzt 

Die Zuweisung des Namens übernii 

SET. 

A>SET [NAME=CPM3SYS.DSK] 

A>SHOW [LABEL] 

Directory Label: CPM3SYS.DSK 
Bei dieser Gelegenheit 
SHOW.COM noch weitere Informatio- 

nen über die Diskette aus: 

- »Passwds Reqd« (»Passwords 
required«) gibt an, ob die Dateien mil‘ 
Kennwörtern geschützt sind. 

- »Stamp Create« und »Stamp 
Update« sind für die Datumsangabe 
vorgesehen und zeigen an, ob diese 
aktiv ist. 

- »Label Created« gibt das Datum und 
die Uhrzeit des Zeitpunkts aus, an dem 
die Diskette den Namen erhielt. Da die 
Uhr beim Schneider nicht akku- oder 
batteriegepuffert ist, setzt der Compu- 
ter jedesmal den 15. Dezember 1982, 
00:00 Uhr Mitternacht ein, sofern die 
Uhr nicht mit DATE.COM eingestellt 
wird. 

- Ähnliches gilt für »Label Updated«, 
das den Zeitpunkt der letzten Änderung 
des Namens angibt. 

SHOW [DRIVE] listet wie bei C STAT 
DSK: unter CP/M 2.2 das Format der 
Diskette auf. Hinzugekommen ist noch, 
die Angabe »Bytes/Physical Record«, 
Bild 4 zeigt einen Ausdruck. 

SHOW [DIR] gibt an, wieviele Ein- 
träge im Inhaltsverzeichnis der Diskette 
noch frei sind. 

A>SHOW [DIR] 
A: Number of free directory 
entries: 30 

Mit SHOW [USERS] erfahren Sie 
alles, was mit den verschiedenen 
Benutzerbereichen zusammenhängt, 
in welchen Bereichen Dateien stehen, 
wieviele das im einzelnen sind und 
zusätzlich die Zahl der freien Directory- 
Einträge im Gesamtverzeichnis. 
A>SHOW [USERS] 

A: Active User : 0 

A: Active Files: 0 6 

A: # of files 28 ı 

A: Number of free directory 
entries: 33 

Aus dieser Ausgabe können Sie fol- 
gende Schlüsse ziehen: Der augen- 
blicklich aktive Benutzerbereich ist O 
(»Active User«). Dateien stehen im 
Bereich O und User 6 (»Active Files«). 
Unter User O befinden sich 28 Ver- 
zeichniseinträge, im Bereich 6 nur einer 
(»# of files« heißt »number of files«). 
Das Inhaltsverzeichnis kann noch 33 
Einträge aufnehmen (»Number of free 
directory entriese«). 

Doch STAT.COM leistet noch mehr. 
Es weist auch den logischen Periphe- 
riegeräten physikalische zu und zeigt 
diese an. So läßt sich etwa der logische 
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512: Bytes / Physical 


LST:-Kanal auf ein serielles Interface 
umlenken. 

Das erledigt unter CP/M Plus 
DEVICE.COM. »DEVICE« (ohne Para- 
meter aufgerufen) listet die aktuellen 
Zuweisungen auf. Und da hat sich eini- 
ges geändert - sowohl auf Benutzer- 
als auch auf Programmiererebene. Eine 
Ausgabe von DEVICE finden Sie im 
Bild 5. 

DEVICE. COM versteht mehrere 
Namen für jedes logische Gerät, was 
die Eingabe neuer Namen sehr erleich- 
tert. Die »CON:«-Konsole teilt sich in 
»CONIN:« (für die Tastaturabfrage) und 
»CONOUT:« (für die Bildschirmaus- 
gabe). Dennoch kann »CON:«auch wei- 
terhin allein benutzt werden - ebenso 
»CONSOLE:«. »sCONIN:« läßt sich auch 
mit »KEYBOARD:« aufrufen. »AUX:« 
wird auf Wunsch zu »AUXILIARY:«, 
»AUXIN:« und »AUXOUT:«. Das »LST:«- 
Gerät wird mit »PRINTER:« angespro- 
chen. 

Die Liste der physikalischen Geräte 
ist nicht starr festgelegt, sondern vom 
jeweiligen System abhängig. Der nicht 
ausgebaute CPC 6128 besitzt deshalb 
nur »LPT« (»Line Printer«, über eine 
parallele Schnittstelle angeschlosse- 
ner Drucker) und »CRT« (»Cathode Ray 
Tübe«, Bildschirm). Beachten Sie bitte, 
daß CP/M Plus (anders als CP/M 2.2) 
die Geräte ohne Doppelpunkt be- 
‚schreibt. 

Um dem logischen Gerät »LST:« das 
physikalische »CRT«e zuzuweisen, ge- 
ben Sie 
A>DEVICE LST:=CRT 
‚ein. Damit werden alle Ausgaben zum 
Drucker auf den Bildschirm geschrie- 
ben. Der Drucker leidet dann allerdings 
an mangelnder Arbeitsauslastung. 
‚Schalten Sie ihn jedoch mit CTRL-P an 
und geben Sie »DIR« ein. Sie werden 
eine Überraschung erleben. Gott sei 
Dank verschwindet dieser Spuk durch 
ein weiteres CTRL-P schnell wieder. 

Ein besonderes Gerät ist das »Null- 
Device«. Wenn zum Beispiel ein CP/M- 
Programm Texte an den Drucker 
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2: Reserved Tracks 


Bild 4. So zeigt sich die Diskette von ihrer besten Seite 


Record Enter new 


A>SHOW [DRIVE] Physical Devices: 
I=Input „D=Qutput ,S=Serial „X=Xon-Xoff 
A: Drive Characteristics ERT NONE IO Int NONE 0 
1,368: 128 Byte Record Capacity 
171: Kilobyte Drive Capacity Current Assignments: 
64: 32 Byte Directory Entries CONIN: = CRT 
64: Checked Directory Entries CONOUT: = CRT 
128: Records / Directory Entry AUXIN: = Null Device 
8: Records / Block AUXOUT: = Null Device 
36: Sectors / Track LST: = LPT 


assignment or hit RETURN 


Bild 5. Logische und physikalische Geräte unter CPIM Plus 


schickt und es ist keiner angeschlos- 
sen, so läßt sich die Druckerausgabe 
damit abschalten. Der Computer wartet 
nicht mehr, bis er das einzelne Zeichen 
abgesetzt hat. 

A>DEVICE LST:=NULL 

Der Aufruf CTRL-P ist nun völlig wir- 
kungslos. 

Diese Technik benutzt auch das 
Schneider-BIOS, nachdem es festge- 
stellt hat, daß überhaupt kein Drucker 
vorhanden ist. Geben Sie nämlich 
»DEVICE« ein, so steht dort unter 
anderem: 

IST: = LPT 

Drücken Sie jetzt CTRL-P, geschieht 
gar nichts mehr, weil der Computer ver- 
sucht, ein Zeichen an den Drucker 
abzuschicken. Gelingt ihm das nicht, 
erscheintnach einigen Sekunden in der 
untersten Bildschirmzeile eine Fehler- 
meldung: 

LPT not ready - Retry, 
Ignore, Cancel 

Nach »C« für »Cancelk ist jeder CTRL- 
P-Befehl unwirksam. Schauen Sie sich 
mit DEVICE.COM wieder die Zuwei- 
sungstabelle an, erfahren Sie auch 
wieso. 

IST: = Null Device 

Das Betriebssystem hat damit den 
Drucker automatisch als nicht-existent 
eingestuft. 

Dieses Wissen läßt sich sinnvoll aus- 
nutzen. Haben Sie beispielsweise ver- 
sehentlich bei der Fehlermeldung »C« 
für »Cancel« gedrückt, können Sie mit 
DEVICE den Drucker wieder empfangs- 
bereit machen und die alte Zuweisung 
wiederherstellen. 

A>DEVICE LST:=LPT 

DEVICE.COM leistet aber noch mehr. 
So erfahren Sie beispielsweise mit 
»DEVICE NAMES« die Namen der phy- 
sikalischen Geräte. 

»DEVICE VALUES« zeigt die Zuwei- 
sung der logischen und physikalischen 
Geräte. 

Auch die Charakteristika einzelner 
logischer und physikalischer Geräte 
können Sie ausgeben lassen. 


A>DEVICE CON: 

Die physikalischen Peripherie-Gerä- 
te, hauptsächlich serielle und parallele 
Schnittstellen, können mit DEVICE an- 
gepaßt werden. So schaltet DEVICE 
LPT[XON] das XON/XOFF-Protokollein 
und »NOXON« wieder ab. Die Baudrate 
läßt sich mit DEVICE.COM verändern. 
Gerade hierzu sollte man aber das 
Schneider-spezifische Programm SET- 
SIO.COM vorziehen, weil solche Ein- 
stellungen primär von der Hardware 
abhängen. 

Das Bildschirmformat kann DEVICE. 
COM ebenfalls anzeigen und verän- 
dern. Wieviele Spalten und Zeilen der 
Computer adressiert, zeigt »PAGE«. 
A>DEVICE CONSOLE [PAGE] 

Console width set to 79 columns 
Console page set to 24 lines 

Mit einem anderen DEVICE-Befehl 
läßt sich unter CP/M Plus ein »Bild- 
schirmfenster« setzen: 

A>DEVICE CONSOLE [COLUMN=40, 
LINES=12] 

Allerdings funktioniert das nicht kor- 
rekt, weil ab und zu auch einmal die 
rechte Fenstergrenze überschrieben 
wird. Dieser Fall tritt ein, wenn Sie eine 
Eingabezeile mit beliebigen Buchsta- 
ben vollschreiben und der Computer 
diese Eingabe als Fehlermeldung mit 
einem Fragezeichen wiederholt. 

‚Auch fällt die »Lines«-Grenze anders 
aus, als der Befehl WINDOW im Schnei- 
der-Basic. Denn der außerhalb des Win- 
dows liegende Text wird mitgescrollt. 
Nur die Meldung »Press RETURN to 


Continue« erscheint entsprechend 
häufiger. 

Durchaus sinnvoll ist aber der fol- 
gende DEVICE-Aufruf: 


A>DEVICE CONSOLE [COLUMN=80] 

Aus unerklärlichen Gründen werden 
normalerweise im 6128-CP/M nur 79 
statt 80 Zeichen jeder Zeile ausge- 
nutzt. Damit passen aber bei DIR nur 
jeweils vier Dateinamen in jede Bild- 
schirmzeile. Nach diesem DEVICE- 
‚Aufruf sind es immerhin fünf. 

(Martin Kotulla/hg) 
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Gegen die Routine 


Gewisse Routineaufgaben fallen 
bei der Programmierung immer 
wieder an. CP/M Plus kann sol- 
che Aufgaben für Sie erledigen. 


ollen Sie beispielsweise 
von bestimmten Dateien im 
Laufwerk A eine Sicher- 


heitskopie auf B anlegen, so müssen 
Sie folgende Befehle eingeben: 
A>PIP B:=ADRESS.DAT 


A>DIR B: 


Sollen Ihre Daten nach jeder Bearbei- 
tung aktuell gesichert werden, dann 
müssen Sie jedesmal vor dem Aus- 
schalten des Computers die gleiche 
Befehlsfolge eingeben. Und jeder 
Computerfan sinnt bei solchen Routi- 
neaufgaben natürlich nach Arbeitser- 
leichterung. Man brauchteine Datei, die 
dem Computer die Tastatureingabe 
»vormacht«. SUBMIT.COM kann das. 

Legen Sie sich mit einem Texteditor 
zur Übung eine Datei mit dem Namen 
KOPIE.SUB und dem gerade angege- 
benen Inhalt an. Die Namensendung 
».SUB« ist unerläßlich, da sonst die 
ganze Sache nicht funktioniert. Weiter 
geben Sie 
A>SUBMIT KOPIE 
ein. Der Console Command Processor 
(CCP) holt sich nun seine Eingaben 
nicht von der Tastatur, sondern von der 
Diskette. Unser Problem ist gelöst. 

Was macht man nun aber bei Dateina- 
men, die sichimmer wieder ändern, bei- 
spielsweise wenn ein Programm (oder 
eine Anweisung) gemeinsam mit einer 
Datei (ein Beispiel: ERA Datei) aufgeru- 
fen wird? Dazu kennt SUBMIT.COM bis 
zu neun Stringvariable. Diese tragen die 
Namen $1 bis $9. 

Sie geben dazu nach »SUBMIT 
KOPIE« mehrere Dateinamen an, bei- 
spielsweise »SUBMIT KOPIE WSCOM 
WSOVLY1.OVR WSMSGSOVR PIP. 
COM«. Ihre zugehörige Submit-Datei 
sieht dann so aus: 


DIR B: 

Das Submit-Programm legt beim Auf- 
ruf auf der Diskette eine Zwischendatei 
mit der Extension ».$$$« an, in der die 
Variablen durch die gewünschten 
Namen ersetzt sind. 


Zu diesen neun Stringvariablen 
kommtnoch $0. $0 hat eine besondere 
Funktion. Diese Variable enthält den 
Namen der eigentlichen ».SUB«-Datei. 
Damit läßt sich in einer sehr kurzen 
Datei eine Endlosschleife aufbauen. 
so 
ist der gesamte Inhalt der Datei »END 
LOS.SUB«. Durch »SUBMIT ENDLOS« 
nimmt das Unheil seinen Lauf, denn die 
Datei ENDLOS ruft sich immer wieder 
selbst auf. Abbrechen kann man die 
Schleife nur mit CTRL-C. Sie müssen 
aber unter Umständen die Taste län- 
gere Zeit drücken, bevor Ihr Auftrag 
Beachtung findet, da die Tastaturab- 
frage teilweise abgeschaltet ist. 

Wenn weniger Namen angegeben 
sind, als Stringvariablen im Submit-File 
stehen, werden die überzähligen Varia- 
blen mit Leerstrings angefüllt. Geben 
Sie mehr Namen an als benötigt, so 
werden die überzähligen ignoriert. 

Stehen in der ».SUB«-Datei echte Dol- 
larzeichen, sind diese zur Unterschei- 
dung von den Stringvariablen durch 
zwei Dollarsymbole zu ersetzen. Wer 
sich zum Beispiel partoutnurtemporäre 
(vorläufige) Dateien ansehen will, hat 
DIR *.398$$$ 
für 
DIR #.$$$ 
einzugeben. 

Schwierigkeiten treten auf, wenn Sie 
Steuerzeichen in die Submit-Datei auf- 
nehmen wollen. Mit einem Texteditor 
geht das nicht problemlos. Es gibt eine 
ganz einfache Lösung. Setzen Sie bei- 
spielsweise für CTRL-P das Potenzie- 
rungszeichen und ein »P« ein, so daß in 
der Datei die beiden Buchstaben »"P« 
stehen. Diese interpretiert dann SUB- 
MITCOM als CTRL-P. Echte Potenzie- 
rungssymbole erkennt man wieder an 
der Verdoppelung. 

SUBMIT.COM kann nur Tastaturein- 
gaben in der CCP-Kommandoebene 
simulieren. In laufenden Programmen 
ist das leider nicht möglich. Unter CP/M 
2.2 existiert das Programm XSUB.COM 
(»Extended Submit«), das in die erste 
Zeile der ».SUB«-Datei geschrieben 
wird. Es hat den Nachteil, sich ebenfalls 
auf der zu bearbeitenden Diskette zu 
befinden und belegt dort sowohl einen 
Directory-Eintrag als auch 1 KByte 
Speicherplatz. Unter CP/M Plus gibt es 
XSUB.COM nicht mehr. Simulierten Ein- 
gaben für ein laufendes Programm 
steht ein »<.« voran. Um beispielsweise 
PIPCOM im »Multiple Command Mode« 
(Modus, bei dem PIP ständig im Spei- 
cher steht und nicht permanent nach- 
geladen werden muß) zu benutzen, 
beschreiben Sie die ».SUB«-Datei mit 


:=A:WS.COM 
WSOVLY1.OVR 
:=WSMSGS.OVR 


Das Textverarbeitungsprogramm 
Wordstar widersetzt sich leider der 
Automatisierung mit SUBMIT.COM. Es 
beachtet die Eingaben nicht und stellt 
sich tot. Das liegt daran, daß das Pro- 
gramm neben der Tastaturabfrage auch 
den Tastaturstatus untersucht. Und die- 
sen beeinflußt SUBMIT.COM nicht. 
Wenn Sie aber während der Bearbei- 
tung der Submit-Datei beliebige Tasten 
drücken, dann erkennt Wordstar beider 
Statusabfrage der Tastatur diese als 
aktiv, und die Zeichen der Submit-Datei 
erscheinen auf dem Bildschirm. 

Auch den Aufruf von SUBMIT.COM 
können Sie sich erleichtern. Und zwar 
auf zwei verschiedene Arten. Bei der 
ersten geben Sie 
A>SUBMIT 
ohne weitere Parameter ein. Das 
Betriebssystem lädt in diesem Fall das 
Programm in den Speicher und fragt 
CP/M 3 SUBMIT Version 3.0 
Enter File to SUBMIT: 

Jetzt geben Sie den Namen der 
».SUB«-Datei und die Parameter ein. 

Der zweite Weg ist noch einfacher. 
Sie dürfen nämlich auch den Pro- 
grammnamen »SUBMIT« einfach 
weglassen, müssen dann aber unbe- 
dingt die Extension ».SUB« an den 
Namen der Datei anfügen. 
A>DATEI.SUB 

SETDEFCOM (ausführliche Be- 
schreibung ebenfalls in diesem Heft) 
hebt aber auch diese Einschränkung 
auf: 

A>SETDEF [ORDER=(COM,SUB)] 
A>DATEI 

Nur müssen Sie jetzt beachten, daß 
die Diskette kein Programm mit dem 
Namen »DATEI.COM« enthält. Das ist 
deshalb wichtig, da sonst dieses 
anstelle der Submit-Datei gestartet 
wird. 

Was bei vielen anderen Betriebs- 
systemen häufig als Hilfsmittel zum 
Kopierschutz gedacht ist, kann dem 
CP/M-Benutzer unnötige Arbeit abneh- 
men: der Autostart. 

Schauen Sie sich einmal mit »DIR« 
das Inhaltsverzeichnis Ihrer Systemdis- 
kette an. Dort finden Sie die Datei 
»PROFILE.ENG«. Nennen Sie diese mit 
»RENAME PROFILE.SUB=PROFILE. 
ENG« um. Wenn Sie nun nach dem 
Zurücksetzen des Computers CP/M 
Plus neu starten, wird die Datei automa- 
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tisch aufgerufen. Sie beinhaltet zwei 
Befehle, die die Tastatur und den Zei- 
chensatz an das Betriebssystem 
anpassen. 
SETKEYS KEYS.CCP 
LANGUAGE 3 

Sie können sich natürlich unter dem 
Namen »PROFILE.SUB% eine beliebige 
andere Datei anlegen. Denkbar wäre 
etwa der Autostart einer Textverarbei- 
tung oder eines anderen Anwenderpro- 
gramms. Damit machen Sie Computer- 
Unkundigen das Einarbeiten leichter. 


GET&PUT 


Unter CP/M 2.2 erfahren die zeichen- 
orientierten Peripheriegeräte wie LST: 
und CON: eine völlig andere Behand- 
lung als die Diskettendateien. So kön- 
nen Sie zwar mit CTRL-P die Drucker- 
ausgabe einschalten und den Bild- 
schirminhalt auf den Drucker lenken, 
aber es existiert keine Tastenkombina- 
tion und kein Hilfsprogramm, das die 
Bildschirmausgabe in eine Disketten- 
datei umleitet. 

Völlig gleichrangig, wie beispiels- 
weise unter MS-DOS, sind die verschie- 
denen Geräte unter CP/M Plus zwar 
immer noch nicht, sie sind aber einan- 
der »ähnlicher« geworden. 

Das CP/M-Programm GET.COM nutzt 
dies aus und simuliert die Tastaturein- 
gabe, indem es sich die Daten aus einer 
Diskettendatei holt. Das hat fast den 
gleichen Effekt, wie oben mit SUB 
MITCOM. Aber die Lösung mit 
GET.COM ist weniger leistungsfähig, da 
keine Variablen benutzt werden kön- 
nen. 

GET besitzt aber den unschätzbaren 
Vorteil, auch mit Programmen wie bei- 
spielsweise Wordstar zusammenzuar- 
beiten. So findet es beim Aufruf der 
automatisierten Textverarbeitung Ver- 
wendung. Ein Beispiel: Sie haben eine 
Datei, in der jede Zeile 65 Zeichen lang 
ist. Um die Länge auf 40 Zeichen umzu- 
formatieren, müssen Sie sich normaler- 
weise durch den ganzen Text mit CTRL- 
B hindurcharbeiten. Mit GET.COM kann 
das der Computer, ohne Ihre Hilfe, allein 
machen. 

Die Anweisung an das Programm 
GET.COM erfolgt schon fast in engli- 
scher Umgangssprache: 

A>GET CONSOLE INPUT FROM FILE d: 
filename.typ 

‚Wem das zuviel zu schreiben ist, der 
kann auch verkürzt 
A>GET FILE d:filename.typ 
eingeben. Alle Daten für das laufende 
Programm holt der Computer jetzt von 
der Diskettenstation. 

Im CCP - also bei der Direkteingabe 
- arbeitet GET.COM nicht. Das muß 
durch den Befehl »SYSTEM« gesondert 


verlangt werden. [SYSTEM] »sagt« dem 
CCP also, er soll seine Eingaben aus 
der Datei holen. 

Ein kleines Beispiel für einen 
Wordstar-Brief, der vom Computer 
geschrieben wird, finden Sie im folgen- 
den. Beachten Sie, daß die CTRL- 
Codes über CTRL-P mit dem betreffen- 
den Buchstaben im Wordstar-Editor 
angegeben werden. Steht im Listing 
beispielsweise »’K«, müssen Sie CTRL- 
P und »K« drücken. Tippen Sie zu Test- 
zwecken die folgende Datei im N- 
Modus (»Bearbeiten einer Programm- 
datei«) ein. 
ws 
DBRIEF 
Sehr geehrte Damen und Herren, 
bitte senden Sie uns 30 Computer 
des Typs CPC 6128. 

Mit freundlichen Grüßen 
”KD 

P’R 

<RETURN> 

<RETURN> 

<RETURN> 

<RETURN> 

<RETURN> 

<RETURN> 

<RETURN> 

$ 

Geben Sie dann 

A>GET CONSOLE INPUT FROM FILE 
AUTO.WS[LSYSTEM] 

oder 

A>GET FILE AUTO.WS[SYSTEM] 
ein. 

Wordstar »regt sich zwar ganz fürch- 
terlich über die Geschwindigkeit auf«, 
mit der die Zeichen von der Diskette 
geliefert werden und druckt haufen- 
weise Ausrufezeichen aus, die den 
Anwender auffordern sollen, langsamer 
zu tippen, aber es gehen - zumindest 
bei diesem Text - keine Zeichen ver- 
loren. Dies beweist der selbsttätig 
erfolgte Ausdruck. 

Neben »SYSTEM« gibt es noch wei- 
tere Steuerbefehle für die Bildschirm- 
ausgabe. »ECHO« fordert GET auf, alle 
Zeichen von der Diskette nicht nur an 
das Programm zu übergeben, sondern 
zusätzlich auch auf den Bildschirm zu 
schreiben. »NO ECHO« unterbindet 
dieses. »ECHO« ist der vorgegebene 
Standardwert. " 

Es gibt zwei Fälle, in denen die Über- 
tragung von der Diskette abgebrochen 
wird. Entweder wurde die Datei bis zum 
Ende gelesen oder in der Dateistehtein 
Rückstellbefehl: »GET CONSOLE 
INPUT FROM CONSOLE« oder »GET 
CONSOLE«. 


Das Gegenstück zu GET heißt 
»PUT.COM«. Mit diesem Programm lei- 
tet man die Ausgabe auf folgende Peri- 
pheriegeräte um. 

A>PUT CONSOLE OUTPUT TO FILE d: 
filename.typ 


A>PUT CONSOLE FILE d: 
filename.typ 

Das veranlaßt den Computer, die Bild- 
schirmausgabe in die angegebene 
Datei zu schreiben. 

A>PUT CONSOLE OUTPUT TO CONSOLE 
A>PUT CONSOLE CONSOLE 

Diese Befehle weisen das Betriebs- 
system an, die Übertragung der Bild- 
schirmausgabe in die Datei zu been- 
den. Der Computer verhält sich 
anschließend wieder normal, 

A>PUT PRINTER OUTPUT TO FILE d: 
filename.typ 

A>PUT PRINTER FILE d: 
filename.typ 

Der Computer schreibt jetzt alle 
Druckerausgaben in die angeführte 
Datei. Zurückgesetzt wird die Drucker- 
ausgabe mit 
A>PUT PRINTER OUTPUT TO PRINTER 
A>PUT PRINTER PRINTER 

Wie bei GET gibt es auch hier 
Befehle, die in eckigen Klammern hinter 
dem Befehlsaufruf stehen und die 
Datenübertragung beeinflussen. 

Mit »FILTER« können Sie PUT.COM 
anweisen, die Control-Codes in der 
Zieldatei zu unterdrücken. Soll bei- 
spielsweise der ASCII-Code 3 ausge- 
geben werden, wandelt »FILTER« die- 
sen in die beiden Buchstaben »"« und 
»C« um. In der Zieldatei steht dann »"C«. 
Besonders bei Ausgabe von Wordstar- 
Dateien auf dem Drucker ist »FILTER« 
nützlich. Das Gegenstück zu »FILTER« 
ist »NO FILTER« (Standardvorgabe). 

»SYSTEM« veranlaßt, daß die Ausga- 
ben des Betriebssystems und der 
‚Anwenderprogramme in die Zieldatei 
geschrieben werden, bis die Anwei- 
sung mit » PUT CONSOLE CONSOLE« 
widerrufen wird. 

PUT.COM arbeitet aber leider nicht 
fehlerfrei. Angenommen Sie wollen ein 
sortiertes Directory der Systemdiskette 
1 in eine Diskettendatei übertragen. 
Damit die erzeugte Datei nicht noch 
zusätzlich im gespeicherten Directory 
auftaucht, soll es auf das B-Laufwerk 
geschrieben werden. 

A>PUT CONSOLE OUTPUT TO FILE B: 
XYZ Putting Console Output to 
File B:XYZ 

A>DIRL[FULL] 

A>PUT CONSOLE OUTPUT TO CONSOLE 
A>TYPE B:XYZ 

‚Arbeiten Sie mit zwei Diskettenstatio- 
nen, gibt es keine Probleme. Benutzen 
Sie aber den Simulator des CPC 6128 
für das B-Laufwerk (und wechseln ent- 
sprechend oft die Disketten), kann es 
passieren, daß die Datei nur einen Teil 
des Directory enthält. Das muß jedoch 
nicht immer der Fall sein. 

Wahrscheinlich steckt der Fehler tief 
im BIOS. Wer hiervon mehr weiß, der 
schreibe doch bitte an die Redaktion. 

(Martin Kotulla/hg) 
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CPM 


Über Umwege 


Bildschirmausgabe, Disketten- 
und Dateifunktionen sind die 
Merkmale von »SETDEF.COM«. 


aben Sie sich auch schon über 
die Aufforderung »Press 
RETURN to Continue« geär- 
gert, die jedesmal auftaucht, sobald 
eine Bildschirmseite vollgeschrieben 
ist. Dabei sind solche Meldungen ganz 
einfach zu unterdrücken. Dazu hält das 
Programm SETDEFCOM die Funktio- 
nen [NOPAGE] oder [NO PAGE] bereit. 
A>SETDEF [NOPAGE] 
Console Page Mode - Off 
Die gegenteilige Wirkung bewirkt 
[PAGE], das den »Seiten-Modus« wie- 
der aktiviert. 
A>SETDEF [PAGE] 
Console Page Mode - On 
Eine weitere interessante, normaler- 
weise nicht eingeschaltete Routine ist 
der »System Display Mode«. Diese Rou- 
tine zeigt beim Laden eines Programms 
den vollständigen Dateinamen noch- 
mals an. Eingeschaltet wird sie mit 
[DISPLAY] und ausgeschaltet mit [NO 
DISPLAY]. 
A>SETDEF [DISPLAY] 
Program Name Display - On 


A>pip 

A:PIP CoM 

CP/M 3 PIP VERSION 3.0 
“c 


Willkommen ist diese Routine immer 
dann, wenn eine COM-Datei mit SYS- 
‚Attribut, die im Userbereich O steht, von 
einem anderen Benutzerbereich aus 
geladen werden soll. Dann enthält die 
Kennzeile nämlich noch die Zusatzin- 
formation »User O«: 

A>SET PIP.COM [SYS] 

A:PIP.COM set to directory (DIR), 
Read Write (RW) 

A>SETDEF [DISPLAY] 

Program Name Display - On 
A>USER 9 

9A>pip 

A:PIP COM (User 0) 

CP/M 3 PIP VERSION 3.0 

*“C 

Alle anderen Funktionen von SET- 
DEF.COM befassen sich direkt mit Dis- 
ketten und Dateien. 

Eine Funktion definiert das Laufwerk, 
das für temporäre Dateien vorgesehen 
ist. Dabei handelt es sich um Zwischen- 
dateien, die nur kurzzeitig angelegt 
werden. Das sind die Dateien, die meist 
die Kennung ».$$$« tragen. Normaler- 
weise unsichtbar, werden sie beim 
nächsten Warmstart sofort wieder 
gelöscht. Aber nach einem Systemab- 
sturz legt ein DIR-Befehl sie offen. 
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In der Regel werden sie immer auf 
dem aktuellen Laufwerk angelegt. 
Aktuell ist das Laufwerk, das im CCP- 
Prompt angegeben ist, beim Schneider 
also entweder A oder B. Ist der Platz auf 
dieser Diskette aber bereits ausge- 
schöpft, kann man den Zugriff mit SET- 
DEF auf ein anderes Laufwerk legen. 
Eine RAM-Disk kann auch dazu dienen. 
Der Aufruf lautet [TEMPORARY=d:]. 
Sollen die Dateien beispielsweise auf B 
abgelegt werden, schreiben Sie 
A>SETDEF [TEMPORARY=B:] 
Temporary Drive - B: 

Um wieder zum angemeldeten 
(aktuellen) Laufwerk für die temporären 
Dateien zu gelangen, ersetzt ein Stern 
den Laufwerksnamen. 

A>SETDEF [TEMPORARY=#] 
Temporary Drive - Default 

Ebenso wie der nächste Befehl ergibt 
die Anwendung »Temporary« nur bei 
mindestens zwei Laufwerken einen 
Sinn. Von der Simulation des Zweitlauf- 
werks auf dem CPC 6128 raten wir in 
diesem Zusammenhang aber ab, da Sie 
sonst 90 Prozent Ihrer Zeit für das 
Wechseln der Disketten vergeuden. 

Mit SETDEF.COM können Sie einen 
sogenannten »Suchpfad« (»Search 
Patch«) vereinbaren. Anhand dieses 
»Pfades« werden ».COM«- und ».SUB«- 
Dateien gesucht. Haben Sie beispiels- 
weise Ihre CP/M-Systemdiskette mit 
den Hilfsprogrammen im Laufwerk B, 
eine Datendiskette in A und benutzen A 
als aktuelles Laufwerk, so müssen Sie 
beim Aufruf von COM-Dateien dem 
Dateinamen immer »B:« voranstellen. 
Das ersparen Sie sich, wenn Sie den 
Suchpfad gleich auf B legen. 
A>SETDEF B: 

Drive Search Path: 
ist Drive - B: 

Wollen Sie viele Hilfsprogramme im 
direkten Zugriff behalten, legen Sie übli- 
cherweise die Systemdiskette in Lauf- 
werk A und eine andere in B. Meist 
suchen Sie dann die gewünschte Datei 
auf dem falschen Laufwerk. Mit SET- 
DEF können Sie aber auch größere 
Suchpfade definieren. Zum Beispiel 
sagen Sie dem Computer: Suche alle 


A>SETDEF 


Drive Search Path: 


ist Drive 
Znd Drive 
3rd Drive 
4th Drive 


Search Order 
Temporary Drive 
Console Page Mode 
Program Name Display 


SETDEF.COM über sich selbst 


COM- und SUB-Dateien zuerst in A’ 
Wenn du sie dort nicht findest, frage 
das Laufwerk B ab. Das sieht dann so 


aus: 

A>SEIDEF A:,B: 
Drive Search Path 
ist Drive - A: 
2nd Drive - B: 

Der Stern »* «symbolisiert wieder das 
aktuelle Laufwerk. Arbeiten Sie mil 
einer RAM-Disk als Laufwerk C, emp- 
fiehlt sich folgende Zuordnung. 
C>SETDEF %,A:,B: 

Drive Search Path: 
ist Drive - Default 
2nd Drive - A: 

3rd Drive - B: 

Bis zu vier Laufwerke können in den 
Suchpfad eingegeben werden. Keine 
echte Beschränkung also bei den maxi- 
mal zwei Diskettenlaufwerken, die das 
BIOS verwalten kann. 

Zum Schluß noch einmal die schon 
bei SUBMITCOM angesprochene 
Suchreihenfolge für Dateitypen. Sie gilt 
auch bei SETDEF.COM. Anders als 
unter CP/M 2.2 darf bei CP/M 3.0 auch 
bei »COM«-Dateien ausdrücklich die 
Extension ».COM« angegeben werden. 
So sieht der folgende Aufruf korrekt 
durchgeführt aus: 

A>SHOW.COM 
A: RW, Space: 11k 

Daß Submit-Dateien mit der Exten- 
sion >.SUB« gestartet werden dürfen, 
wissen Sie bereits aus dem Artikel über 
SUBMIT.COM in diesem Heft. Wichtig 
sind diese Kenntnisse für die Definition 
des Suchpfades nach Extensions. 
Denn standardmäßig gilt unter CP/M 
Plus folgender Suchpfad als vereinbart: 
A>SETDEF [ORDER=COM] 

Search Order - COM 

Wollen Sie die Submit-Dateien ohne, 
dafür die COM-Dateien mit Extension 
starten, geben Sie 
A>SETDEF [ORDER=SUB] 
ein. Und da liegt die Tücke Ihrer CP/M- 
Version. Denn dieses Kommando 
unterstützt die gegenwärtige CP/M 
Plus-Version leider nicht. 

Invalid ORDER specification 
So müssen Sie dann auf 
A>SETDEF [ORDER=(SUB,COM)] 
Search Order - SUB, COM 
oder 

A>SETDEF [ORDER=(COM,SUB)] 
Search Order - COM, SUB 
ausweichen. 

Bekommt der Computer einen Datei- 
namen ohne Extension zur Ausführung, 
sucht er im ersten Fall zuerst nach der 
».SUB«-Datei und dann nach der 
».COM«-Datei, im zweiten Fall hingegen 
verhält es sich umgekehrt. 

Rufen Sie SETDEF.COM ohne Para- 
meter auf, so werden die aktuellen 
Suchpfade und Zuweisungen ange- 
zeigt. (Martin Kotulla/hg) 


PAHPPYm: 
KONIPUTER 


Sekundengenau 


Nutzen Sie die eingebaute Uhr, 
um Dateien und Programme zu 
kennzeichnen. Dann wissen Sie 
immer, welche Daten Sie wann 
bearbeitet haben. 


er Schneider besitzt eine ein- 

gebaute Uhr, genauer gesagt 

sogar vier unabhängige Zeit- 
‚geber. Doch leider ist keiner von ihnen 
akku- oder batteriegepuffert. So muß 
die Uhr nach jedem Einschalten neu 
gestellt werden. Da die Timer (Zeit- 
geber) interruptgesteuert (also soft- 
waremäßig) arbeiten, stoppt die Uhr bei 
allen Diskettenzugriffen und Drucker- 
ausgaben sowie in Maschinencode- 
Programmen nach dem Befehl »Di« 
(Disable Interrupts). 

Leidlich genau geht sie aber trotz- 
dem. Mit dem Hilfsprogramm DATE. 
COM können sofort nach dem System- 
start die Uhrzeit und das Datum einge- 
geben werden. 

Dazu rufen Sie das Programm mit 
A>DATE SET 
Enter today's date (MM/DD/YY): 
05/01/86 
Enter the time (HH:MM:SS): 
16:35:00 
Press any key to set time 
auf. Beachten Sie bitte die amerikani- 
sche Schreibweise des Datums: Zuerst 
kommt der Monat und dann der Tag. 

Da»DATE SET«aufeinen Tastendruck 
wartet, bevor die Uhr zu laufen beginnt, 
können Sie die Zeit sekundengenau 
einstellen. 

Wenn Sie die Zeit und das Datum 
regelmäßig benötigen, sollten Sie den 
Befehl »DATE SET« in die Datei PRO- 
FILE.SUB aufnehmen, so daß Sie beim 
Systemstart gezwungen sind, die Zeit 
und das Datum einzugeben. 

Eine Kurzform der Eingabe Ist eben- 
falls möglich. Bei dieser schreiben Sie 
Datum und Uhrzeit direkt in die Befehls- 
zeile hinter den Programmnamen 
»DATE«: 

A>DATE 05/01/86 16:35:00 
Strike key to set time 

Der Aufruf von »DATE« ohne Para- 
meter hat die Ausgabe des Datums und 
der Uhrzeit zur Folge: 

A>DATE 
Thu 05/01/86 16:37:50 

Der Wochentag wird vom Computer 
automatisch berechnet und entspricht 
den amerikanischen Abkürzungen: 


Mon - Montag 
Tue - Dienstag 
Wed - Mittwoch 


Thu - Donnerstag 
Fri - Freitag 
Sat - Samstag 


Sun - Sonntag 

Eine Digitaluhr können Sie mit »DATE 
CONTINUOUS« auf dem Bildschirm dar- 
stellen. 

A>DATE CONTINUOUS 

Wed 05/07/86 16:44:30 
Wed 05/07/86 16:44:31 
Wed 05/07/86 16:45:32 

Durch Drücken einer beliebigen Taste 
kehrt der Computer wieder zum CCP- 
Prompt A> (oder B>) zurück. Sie dür- 
fen »Set« mit »S« und »Continuous« mit 
»C« abkürzen. 

Rufen Sie mit DATE sofort nach dem 
‚Systemstart die Uhrzeit ab; ohne vorher 
die Zeit und das Datum eingegeben zu 
haben, wird stets der 15.12.1982, 
00:00:00 Uhr angegeben. 

CP/M Plus unterstützt die Verwaltung 
von Uhrzeit- und Datumseinträgen bei 
Dateien. So schreibt das Betriebs- 


system auf Wunsch bei jedem Dateizu- 
griff das Datum und die Uhrzeit ins 
Directory. Über DIR[FULL] erhalten Sie 
dann ein sehr informatives Inhaltsver- 
zeichnis, aus dem Sie ersehen können, 
wann eine Datei erzeugt wurde und zu 
welchem Zeitpunkt Sie das letzte Mal 
auf welche Datei zugegriffen haben. 

Allerdings gibt es zwei Einschränkun- 
gen. Erstens können Disketten, die auf 
die Zeitkennung vorbereitet sind, kei- 
nesfalls mehr unter Amsdos oder CP/M 
2.2 benutzt werden, weil beide Be- 
triebssysteme mit den zusätzlichen Ein- 
trägen nichts anfangen können. Zwei- 
tens reduziert sich die Zahl der vorhan- 
denen Directory-Einträge. Für jeweils 
drei Dateien wird ein zusätzlicher Ein- 
trag im Inhaltsverzeichnis reserviert. 

Wenn Sie sich trotz dieser beiden 
negativen Auswirkungen für die Kenn- 
zeichnung entscheiden, belohnt Sie ein 
bedeutend leistungsfähigeres Be- 
triebssystem. 


Scanning Directory... 
Sorting Direetory... 
Directory For Drive A: User 0 


8 Dir RW 
Dir RW 
Dir RW 
Dir RW 


16 Dir RW 
66 Dir RW 
42 Dir RW 
24 Dir RW 


Total Bytes = 
Total 1k Blocks = 


Attributes 


146k Total Records = 1093 Files Found = 
146 Used/Max Dir Entries For Drive A: 64/28 


Access 


04/04/86 00:32 
04/03/86 23:10 
04/04/86 00:35 
04/03/86 23:26 
04/03/86 23:26 
04/03/86 23:09 
04/03/86 23:26 
04/04/86 00:32 
04/03/86 22:53 
04/04/86 00:33 
04/03/86 23:09 
04/03/86 23:26 
04/04/86 00:32 
04/04/86 00:35 
04/03/86 23:09 
04/03/86 23:10 
04/04/86 00:34 
04/04/86 00:34 
04/04/86 00:33 
04/04/86 00:34 
04/03/86 23:09 
04/03/86 23:26 
04/04/86 00:33 
04/03/86 22:52 
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Dazu muß eine Diskette ausdrücklich 
für das »Time- and Date-Stamping« vor- 
bereitet werden. Diese Aufgabe über- 
nimmt das Programm INITDIR.COM. Es 
wird zusammen mit der Bezeichnung 
des Laufwerks aufgerufen, in dem sich 
die umzuformatierende Diskette befin- 
den muß. 

A>INITDIR A: 

INITDIR will activate time 
stamps for specified drive. 
Do you want to re-format the 
directory on drive: A (Y/N)? Y 
A> 

Mit einem erneuten Aufruf von INIT- 
DIR bei einer bereits umformatierten 
Diskette kann das Datum wieder ent- 
fernt werden. 


A>INITDIR A: 
INITDIR will activate time stamps 
for specified drive. 
Do you want to re-format the 
direetory on drive: A (Y/N)? Y 
Directory already re-formatted. 
Do you want to recover time/date 
direetory space (Y/N)? Y 
Nach dieser Prozedur ist der belegte 
Platz im Directory wieder frei. 
Nehmen wir aber an, Sie wollen die 
Kennung beibehalten. Dazu muß diese 
mit SETCOM aktiviert und in den 
gewünschten Modus gebracht werden. 
Es gibt drei verschiedene Modi: 
»CREATE«, »UPDATE« und »ACCESS«. 
»CREATE« und »ACCESS« schließen 
einander aus. 


A>SET [CREATE=ON] sch 
dem Computer vor, beim Einrich! 
einer Datei die Zeit und das Datum 
notieren. 

A>SET [ACCESS=ON] erze 
Zeit- und Datumseinträge bei jedem 
griff auf eine Datei. 

A>SET [UPDATE=ON] trägt 
Datum und die Uhrzeit der jeweils lei 
ten Änderung einer Datei ins Dire« 
ein. 

Nach dem SET-Kommando hat sich‘ 
das Aussehen des Inhaltsverzeichnis- 
ses bei DIR[FULL] erheblich verändert 
Das Bild zeigt, wie das Directory der 
Systemdiskette 1 jetzt aufgebaut ist. 


(Martin Kotulla/hgf 


CP/M-Kontraste 


»HELPCOM« und »ED.COM« - 
Programme, die aus zwei total 
verschiedenen CP/M-Epochen 
stammen. Nirgendwo werden 
die Kontraste innerhalb CP/M 
Plus so deutlich wie hier. 


mit Widersprüchen. Auf der 

einen Seite erhebt es den 
Anspruch, ein modernes und profes- 
sionell einsetzbares System zu sein. 
Auf der anderen Seite besitzt es aber 
Eigenheiten, die noch aus den allerer- 
sten Versionen von CP/M herrühren, 
und keinesfalls mehr der heutigen Zeit 
entsprechen. 

Ein besonders ärgerliches Fossil aus 
»alten« Zeiten ist der Editor »ED.COM«. 
Die CP/M-Fan-Gemeinde wünscht sich 
schon seit Jahren, daß man ihn durch 
einen bildschirmorientierten Editor 
ersetzt. Daß Digital Research mit dieser 
Sparpolitik aber nicht allein auf weiter 
(Computer-)Flur steht, hat Microsoft mit 
dem MS-DOS-Editor »EDLIN« bewie- 
sen, der genauso umständlich zu 
bedienen ist. 

Viele Benutzer von CP/M sind des- 
halb schon seit langem auf andere Edi- 
toren umgestiegen. So bietet sich bei- 
spielsweise Wordstar (unter dem 
Menüpunkt »N«) an, das eine sehr kom- 
fortable Programmbearbeitung erlaubt. 
Wer Turbo-Pascal besitzt, der findet 
dort auch einen sehr komfortablen 
Editor. 

Es erübrigt sich deshalb, den Zeilen- 
editor ED.COM ausführlich zu erklären. 
Wenn Sie aber gewisse selbstquäleri- 
sche Züge an sich entdecken und ihn 
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€: Plus ist ein Betriebssystem 


trotzdem benutzen wollen, so finden 
Sie im Bild 1 sämtliche Befehle von 
ED.COM. Der Aufruf ist einfach. 

A>ED DATEI 

Ein repräsentativeres Aushänge- 
schild für ein professionelles Betriebs- 
system stellt das Programm »HELP. 
COM dar. Sie finden es auf der dritten 
Seite der Systemdisketten Ihres CPC 
6128. Dieses Programm ersetzt fast 
ein Handbuch. Über das hierarchisch 
aufgebaute System erhät man 
Informationen über die Funktionen und 
die Bedienung der einzelnen CP/M- 
Dienstprogramme. 

HELP.COM startet durch Eingabe 
von »2HELP«. 

A>HELP 
Die Bildschirmausgabe ändert sich auf 
das in Bild 2 gezeigte Format. 

HELPCOM benutzt ein eigenes Auf- 
forderungszeichen (Prompt). 

HELP> 

Angenommen Sie wissen nicht mehr, 
wie DATE.COM funktioniert und das 
Handbuch ist an den Freund ausgelie- 
hen - also nicht greifbar. 

Es interessiert Sie aber brennend, 
was sich mit DATE.COM alles anstellen 
läßt. Dazu laden Sie HELPCOM, warten 
auf die Eingabeaufforderung und tip- 
pen: 

HELP> DATE 

Das Diskettenlaufwerk läuft kurz an, 
und der Computer lädt die Datei mit den 
passenden Hilfstexten nach. 

DATE 


Syntax: 


DATE [CONTINUOUS] 
DATE [time-specification] 
DATE SET 


Explanation: 

The DATE command lets you display 
and set the date and time of day. 
ENTER .subtopic FOR INFORMATION 
ON THE FOLLOWING SUBTOPICS: 
EXAMPLES 


HELP> 

Nun sind Sie umfassend informiert. 
Die Befehlssyntax ist klar. DATE.COM 
kann laut Angaben von HELPCOM mit 
A>DATE 
A>DATE CONTINUOUS 
A>DATE mm/tt/jj ss:mn:ss 
A>DATE SET 
aufgerufen werden. Alle Texte, die bei 
der Syntaxdefinition in Klammern ange- 
geben sind, sind optional und dürfen 
auch weggelassen werden. Optionen 
bei anderen Befehlen, die ein senk- 
rechter Strich (»I«) trennt, dürfen wahl- 
weise benutzt werden. Solche Optio- 
nen schließen sich gegenseitig aus — 
beispielsweise [PAGE INOPAGE]. 

Unter »Explanation« finden Sie stets 
eine - mehr oder weniger ausführliche 
- englischsprachige Beschreibung 
dessen, was die Routine leistet. 

Oft helfen solche Angaben allerdings 
nicht sehr viel weiter. Man will schließ- 
lich Beispiele oder eine genauere 
Beschreibung abrufen. Dazu sind die 
»Subtopics«e gedacht - sozusagen 
Unterüberschriften. Wenn nach den 
Informationen über DATE.COM wieder 
der HELP>-Prompt erscheint, finden 
Sie darin eine Liste der Unterthemen. 
Bei DATE.COM fällt nur ein einziges 
Thema an - nämlich »Examples«. 
Geben Sie dann das Wort »EXAM- 
PLES« mit einem vorangestellten Punkt 
ein. 

HELP> „EXAMPLES 


Hole n Zeilen aus der Datei in den RAM- 


‚Speicher. 
‚Hole Zeilen aus der Datei, bis der RAM- 
‚Speicher halbvoll ist. 
Hole Zeilen aus der Datei, bis der RAM- 
‚Speicher voll ist. 
‚Setze Cursor an den Anfang des Textes im 
RAM-Speicher. 
Setze Cursor an das Ende des Textes im 
RAM-Speicher. 
Bewege den Cursor n Zeichen nach unten. 
-nC ‚Bewege den Cursor n Zeichen nach oben. 
nd Löschen Zeichen ab der Cursorposition. 
-nD Lösche n Zeichen vor dem Cursor. 
13 ‚Speichere Datei ab und kehre in den CCP 
zurück. 
Fext CTRL-Z Suche die Zeichenfolge »text«. 
H ‚Speichere die Datei im RAM und nehme Edi- 
tieren wieder auf. 
1 Gehe in den Texteinfügemodus (wird durch 
CTRL-Z beendet), 
text CTRL:Z Füge die Zeichenkette »text« an der Cursor- 


Bewege den Cursor n Zeilen nach unten. 

Bewege den Cursor n Zeilen nach oben. 

Bewege den Cursor in die Zeile n. 
in Führe ein Kommando bis zur Zeile n aus. 
Ntext CTRL:Z Erweiterte Suche nach der Zeichenkette 

»texte. 

Mache alle Änderungen an dem Text im RAM 


rückgängig. 

Bewege den Cursor n Zeilen nach unten und 
zeige diese an. 

Bewege den Cursor n Zeilen zurück und 
zeige diese an. 

Breche Bearbeitung ab, ohne die Datei zu 
speichern. 

Lese die Zwischendatei X$$$$$$$.LIB in 
‚den RAM-Speicher. 

Lese die Datei mit dem Namen »text« in den 


‚Schreibe/füge n Zeilen an X$$$$S$$.LIB 
an 


Schreibe n Zeilen in die Datei mit dem Namen 
»texte, 

Lösche die Zwischendatei X$$$$$$$.LIB. 
Lösche die Datei mit dem Namen »text«. 
Warte n Sekunden bis zur Ausführung des 
‚nächsten Befehls. 


di. 
finden Sie den gesamten Befehls- 
tz des Programms ED.COM 


A>help 

HELP UTILITY v1.1 
At "HELP>" 
EXAMPLE: HELP> DIR BUILT-IN 
Topics available: 


COMMANDS 
DATE 
DISCKIT3 DUMP 
ERASE FILESPEC 
GET GSX 
HEXCOM INITDIR 
LIB LINK 
PALETTE PATCH 
PUT RENAME 
SAVE SET 
SETDEF SETKEYS 
SETSIO SHOW 
SUBMIT TYPE 
XREF 


CNTRLCHARS 
DEVICE 


HELP> 
Bild 2. Hilfe vom System - die Help-Utility 


Der Computer gibt dann folgenden 
Text aus. 


A>DATE 
Displays the current date 
and time, 


A>DATE C 
Display the date 
and time continuously. 


A>DATE 08/14/82 10:30:0 
Sets the date and time. 


A>DATE SET 
Prompts for date 
and time entries. 


HELP> 

Manche Programmbeschreibungen 
enthalten weitere Subtopics. Sie wer- 
den ebenfalls mit einem vorangestellten 
Punkt aufgerufen. 

Wollen Sie wieder ins Hauptmenü 
zurückkehren, das alle vorhandenen 
Programmbeschreibungen auflistet, 
drücken Sie beim Erscheinen des 
HELP >-Zeichens »?«. 

HELP> ? 


Es erscheint folgende Liste: 
Topics available 


COMMANDS CNTRLCHARS COPYSYS DATE 
DISCKIT3 DUMP ED ERASE 
GET GSX HELP HEXCOM 


enter topic [subtopic] ... 


COPYSYS 


PIP (COPY) 
RMAC 
SET24X80 
SETLST 

SID 

USER 


DEVICE DIR 
FILESPEC GENCOM 
INITDIR 

Erinnern Sie sich noch an PIPCOM 
und den schönen Begriff »Multi Com- 
mand Mode«? Das ist genau das, womit 
Sie bis jetzt bei HELPCOM gearbeitet 
haben. Sie können aber auch schon in 
der Aufrufzeile die gewünschten The- 
mengebiete spezifizieren. 

A>HELP DIR 
A>HELP HEXCOM 
A>HELP GSX 

Auch die Subtopics lassen sich direkt 
angeben. 

A>HELP DIR BUILT-IN 

Eine Stufe in der Hierarchie nach 
unten, und die Sache sieht so aus: 
A>HELP DIR BUILT-IN EXAMPLES 

Bis zu neun hierarchische Stufen ver- 
arbeitet HELPCOM, die Hauptstufe und 
acht Subtopics. Dafür, daß Sie bei 
HELP immer das Richtige in ausrei- 
chendem Umfang finden, sorgt die 
Datei HELP.HLP mit einer Länge von 75 
KByte. 

HELPCOM sieht zwei Funktionen 
vor: [NOPAGE] und [LIST]. Während Sie 
die Erklärung von »NOPAGE« schon 
von den anderen in diesem Heft 
beschriebenen Programmen her ken- 
nen, tritt »LIST« hier zum ersten Mal auf. 
Es dient dazu, bei der Druckerausgabe 
mit CTRL-P Papier zu sparen. Es wer- 
den nämlich einige der zahlreichen 
Leerzeilen aus dem Ausdruck entfernt. 

HELPCOM besitzt aber noch eine 
sehr nützliche Eigenschaft. Sie können 
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LLIZPROFILE.SUB 


computer. 


// /1TURBO 


Syntax: TURBO 


/1I2BEISPIELE 
A>TURBO 
Include error messages? Y 


Include error messages? N 


// /2PRODUKTE 


// 13BEISPIELE 


JLIATYPE 
Syntax: 


Bild 3. Informationen für Turbo-Pascal 


A>HELP TURBO 
A>HELP TURBO BEISPIELE 


A>HELP TURBO PRODUKTE 
A>HELP TURBO PRODUKTE BEISPIELE 


Everytime you power up or reset your computer, CP/M Plus looks for a spe- 
cial SUBmit file named PROFILE.SUB to execute. If it does not exist, CP/M 
Plus resumes normal operation. If tne PROFILE.SUB file exists, the system 
executes the commands in the file. This file is convenient to use if you regu- 
larly execute a set of commands before you do your regular session on the 


Funktion: Turbo-Pascal ist einer der erfolgreichsten Pascal-Compiler mit 
einer integrierten Editor-, Compiler- und Laufzeitumgebung. 


Bindet die Fehlermeldungen in den Compiler ein. Dadurch sinkt der verfüg- 
bare Speicherplatz um ca. zwei KByte. 


Weist Turbo-Pascal an, TURBO.MSG aus dem Compiler herauszuhalten und 
ist bei knappem Speicherplatz zu empfehlen. 


Die Herstellerfirma bietet eine ganze Reihe von Erweiterungen für Turbo- 
Pascal an. Auch andere Softwarefirmen versuchen, sich an den Erfolg von 
Turbo-Pascal mit Programmsammlungen und ” Toolkits” anzuhängen. Be- 
achten Sie, daß viele der Programme nur unter MS-DOS laufen. 


Turbo Tutor, Turbo Toolbox, Turbo Graphix Toolbox, Turbo Lader, Turbo Data- 
base, Turbo Gameworks, Turbo Editor 


TYPE { filespec [ [PAGE | NOPAGE ]}} 


Bild 4. So ruft man die Daten für Turbo-Pascal in HELP.COM ab . 


es mit eigenen Texten erweitern, und 
somit in das Programm eigene Texte 
und eigene Beschreibungen aufneh- 
men oder auch die englischen Texte ins 
Deutsche übersetzen. 

Die in der Datei HELP.HLP stehenden 
Texte sind speziell codiert und lassen 
sich deshalb nicht ohne weiteres bear- 
beiten. Sie müssen HELPCOM erst 
ausdrücklich anweisen, die Datei in 
Klartext zu verwandeln. Dazu benutzen 
Sie den Befehl [EXTRACT]. 

HELPHLP hat, wie schon erwähnt, 
eine länge von 75 KByte. Mit 
»EXTRACT« erzeugt der Computer eine 
Datei HELP.DAT mit wiederum 74 
KByte. Dies bedeutet, daß Sie außer 
HELPCOM und HELP.HLP alle anderen 
Dateien und Programme von der Dis- 
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kette löschen müssen. Denn sonst 
steht nicht genug Platz zur Verfügung, 
um die neue Datei anzulegen. Nach der 
Löschaktion verbleiben noch freie 96 
KByte auf der Diskette. 

Weisen Sie nun den Computer an, die 
Datei umzuschichten: 

A>HELP [EXTRACT] 
Extracting data.... 

Gedulden Sie sich aber dabei etwas, 
denn es ist für den Computer kein Kin- 
derspiel, mit so einer Riesendatei zu 
hantieren. Das Ende erkennen Sie an 
HELP.DAT created 

Und »DIR« zeigt an, daß eine neue 
Datei im Inhaltsverzeichnis steht. 


A>DIR 
A: HELP DAT : 
HELP HLP 


HELP COM : 


Mit sTYPE HELP.DAT« und eventus 
Druckerausgabe können Sie sich 
diese Datei ansehen und den 
studieren. 

Mit Hilfe eines Textprogramms 
HELP.DAT editiert. Nach der Ändı 
ist die Datei HELP.DAT wieder zuci 
ren, was mit Hilfe von [CREAI 
geschieht. 

A>HELP [CREATE] 
Creating HELP.HLP.... 

Auch hier dauert es wieder einii 
Zeit, bis der Computer die 
HELPHLP fertiggestellt hat und fol 
gende Meldung erscheint: 
HELP.HLP created 

Sie können nun HELPCOM starten) 
und sich die veränderten Texte 
anschauen. 

Falls sich unerklärlicherweise in die 
Texte Grafikzeichen eingeschlichen 
haben, die Sie niemals eingegeben 
haben, benutzt der Editor das siebte Bit 
der Zeichen zur Kennzeichnung be- 
stimmter Formatierungen. Sie müssen 
dann diese Bits mit Hilfe von PIPCOM 
mit der Z(ero)-Option entfernen. 
A>PIP HELP2=HELP.DAT[Z] 
A>ERA HELP.DAT 
A>REN HELP.DAT=HELP2 

Schwieriger wird es, wenn Sie 
HELPCOM mit eigenen Texten erwei- 
tern wollen. Dazu gibt es nämlich einige‘ 
Vorschriften zu beachten. 

Jede Überschrift eines Befehls oder 
eines Subtopics leiten drei Divisions- 
striche »///« ein. Darauf folgt eine Zahll 
die die gewünschte hierarchische 
Ebene angibt. »1« steht für die Haupt- 
ebene, die Werte »2« bis »9« für die ver- 
schiedenen Unterebenen. An se 
Zahl hängen Sie den Namen des Pro- 
gramms oder den Titel des Untermenüs 
an. Es folgt ein Carriage Return. 
//11Turbo-Pascal<CR> 

Die Hauptmenüs müssen alphabe- 

tisch geordnet sein. Also kommt »Turbo- 
Pascal« vor »Wordstar«, und »dBASE Il« 
hinter »CBASIC«. 
Die Unterbegriffe sollen ebenfalls 
innerhalb einer Hauptgruppe eine 
alphabetische Reihenfolge einhalten. 
»Optionen« steht demnach hinter »Bei- 
spiele«, und zwischen beide wird die 
Rubrik »Fehlermeldungen« angelegt. 

Um beispielsweise »Turbo-Pascal« zu 
beschreiben, hat die Anordnung 
aus Bild 3 bewährt. 

Auch diese Anpassung von HELP. 
COM bindet [CREATE] in die HELP- 
Utility ein. Bild 4 zeigt, wie man die 
Daten über Turbo-Pascal aufruft. 

A>HELP [CREATE] 

Das läßt wieder einmal spüren, wie 
angenehm man mit CP/M Plus arbeiten 
kann und wie weit Digital Research die- 
ses Betriebssystem für zukünftige Ver- 
besserungen vorbereitet hat. 

(Martin Kotulla/hg) 


APP: 


TUF-SECHET 


CP/M Plus für Joyce 


ährend beim Schneider 
CPC das CP/M-Betriebs- 
system sozusagen eine 


kostenlose Dreingabe ist, gehört es 
beim Joyce CP/M Plus zum festen 
Inventar und ist für diesen Computer 
lebenswichtig. Denn ohne CP/M laufen 
außer Locoscript keinerlei Programme. 

Im Gegensatz zu den CPCs lädt der 
Joyce das Betriebssystem automatisch 
beim Einschalten des Computers. Je 
nachdem, welche Seite der Diskette 
eingelegt ist, startet entweder das Text- 
verarbeitungssystem Locoscript oder 
das CP/M Plus-Betriebssystem. Sie 
können CP/M aber auch durch gleich- 
zeitiges Drücken von »EXTRA«, »SHIFT« 
und »EXIT« starten - vorausgesetzt, die 
CP/M Plus-Systemdiskette ist richtig 
herum eingelegt. 

Nach einigen Sekunden erscheint 
folgende Startmeldung: 
CP/M Plus Amstrad Consumer 
Electronies ple v 1.2, 61K TPA, 
1 Laufwerk, 112K Laufwerk M: 

Dieses Titelbild sagt schon einiges 
aus: Die TPA (Transient Program Area), 
der Bereich, in den CP/M-Programme 
und Daten geladen werden, hat einen 
Umfang von 61 KByte, und ist damit 


allen, 


Auch der Joyce besitzt, wie der 
CPC 6128, das Betriebssystem 
CPIM Plus. Hier erfahren Sie 
Gemeinsamkeiten und Unter- 
schiede der beiden Versionen. 


genausogroß wie beim CPC 6128. Fra- 
gen Sie sich jetzt, was man mit den übri- 
gen 256-61=195 KByte beim PCW 
8256 beziehungsweise 512-61= 451 
KByte beim »Fat Joyce« anstellen kann? 
112 beziehungsweise 368 KByte sind 
als RAM-Disk verfügbar. »RAM-Disks« 
sind einfach Speicherbereiche, die sich 
so verhalten, als wären sie eine zusätzli- 
che Disketten-Station. Das Betriebssy- 
stem verwaltet sie so geschickt, daß 
jedes Anwenderprogramm glaubt, es 
wäre ein mechanisches Laufwerk mehr 
im System vorhanden. 

Der Vorteil der RAM-Disk liegt in der 
vielfach höheren Geschwindigkeit. 
Diese angenehme Eigenschaft wird 
allerdings mit einem Nachteil erkauft 
Die RAM-Disk kann nur so lange Daten 
speichern, wie der Computer einge- 
schaltet ist. Um den Inhalt dauerhaft zu 
sichern, müssen Sie die Daten am Ende 
der Arbeit auf eine Diskette kopieren. 


Bei einem Stromausfall sind alle Daten 
verloren. Die RAM-Disk hört beim 
Joyce auf den Namen »M«. Dieser 
Name steht für »Memory Disk«. Geben 
Sie, direkt nach dem Hochfahren des 
Betriebssystems (»Booten«), den 
Befehl: 

A>DIR M: 

ein. Da die RAM-Disk noch leer ist, 
erscheint die Meldung: No File. 

Wenn Sie die Geschwindigkeit von 
CP/M Plus erhöhen wollen, kopieren 
Sie einfach alle Dateien und Programme 
der Systemdiskette nach M und wählen 
M als Default-Laufwerk: 

A>PIP M:=%.* 
A>M: 
M> 


Sowohl der CPC 6128 als auch der 
Joyce verwenden CP/M Plus. Dennoch 
kann nicht alles, was für den CPC 6128 
gilt, ohne weiteres auf den Joyce über- 
tragen werden. So ist eine - übrigens 
äußerst angenehme - Eigenschaft von 
Joyce, daß der größte Teil des Benut- 
zerdialogs in deutscher Sprache ab- 
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J12DCPM3 EMS : BASIC COM : DIR COM : ED 
LANGUAGE COM = PALETTE COM : PAPER COM : PIP 

SET COM : SET24X8@ COM : SETDEF COM : SETKEYS 
SETSIO COM : SHOW COM : SUBMIT COM : TYPE 
RPED BAS : RPED SUB : PROFILE GER :» DISCKIT 


Bild. Der Inhalt der Joyce-Systemdiskette 


läuft. Unser Bild zeigt das Directory der 
Systemdiskette (Seite 2) vom Joyce. 

Betrachten wir zuerst die Standard- 
programme, die sowohl beim Joyce als 
auch beim Schneider CPC 6128 auf 
Diskette mitgeliefert werden. Sie wer- 
den in anderen Artikeln in diesem Heft 
ausführlich besprochen. 


- = DIR.COM (Seite 2) 


Ausgabe des Inhaltsverzeichnisses 
einer Diskette 
= ED.COM (Seite 2) 

Ein einfacher Editor 
= ERASE.COM (Seite 2) 

Programm zum Löschen von Dateien 
auf der Diskette 
= PIPCOM (Seite 2) 

Universelles Programm zum Kopie- 
ren von Dateien 
= RENAME.COM (Seite 2) 

Programm zum Umbenennen von 
Diskettendateien 
= SET.COM (Seite 2) 

System-Programm zum Festlegen 
von Datei- und Disketten-Parametern 
- SETDEF.COM (Seite 2) 

Bestimmung eines Suchpfads für 
Dateien und des Laufwerks für tempo- 
räre Dateien 
- SHOW.COM (Seite 2) 

Anzeige spezieller Disketten- und 
Laufwerks-Parameter 
= SUBMIT.COM (Seite 2) 

‚Automatisierte Bearbeitung von 
Befehlen aus einer Diskettendatei 
= TYPE.COM (Seite 2) 

Ausgabe von ASCil-Textdateien auf 
dem Bildschirm 
= GET.COM (Seite 3) 

Eingabeumleitung aus einer Disket- 
tendatei 
= PUT.COM (Seite 3) 

‚Ausgabeumleitung in eine Datei auf 
der Diskette 
- INITDIR.COM (Seite 3) 

Vorbereitung des Directory für Zeit- 
und Datumseinträge 
= DATE.COM (Seite 3) 

Setzen und Auslesen der Uhrzeit und 
des Datums 
= DEVICE.COM (Seite 3) 

Anzeige und Abänderung der Zuord- 
nung von logischen und physikalischen 
Geräten 
= HELPCOM (Seite 4) 

Hilfsprogramm, das Informationen 
über andere CP/M-Programme ausgibt. 

Einige Programme haben ähnliche 
oder gleiche Namen wie ihre Pendants 
beim CPC 6128, dennoch fallen kleine 
Unterschiede auf. 
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LANGUAGE.COM 

Dieses Programm stellt den Zeichen- 
satz für die Bildschirmausgabe ein. 
Identisch mit dem 6128-Programm 
LANGUAGE.COM. 

PALETTE.COM 

PALETTE erlaubt die Änderung der 
Bildschirmfarben. Nachdem der Joyce- 
Bildschirm und der Video-Chip nur Grün 
und Schwarz darstellen können, ist das 
Programm nicht mit dem gleichnamigen 
PALETTE.COM des CPC 6128 iden- 
tisch. Es gibt in der Joyce-Version sinn- 
vollerweise nur zwei Farbkombinatio- 
nen. 

A>PALETTE 1 0 
A>PALETTE 0 1 

»1 O« wählt schwarze Schrift auf grü- 
nem Untergrund (Inversdarstellung), »O 
1« hingegen grün auf schwarz (normale 
Arbeitsweise). 

SET24X80.COM 

Der Unterschied zum CPC 6128 
besteht beim Joyce darin, daß dieser 
Computer 31 Zeilen je 90 Zeichen dar- 
stellen kann. Auch das wirft Probleme 
auf, da manche CP/M-Programme auf 
einen 24zeiligen Bildschirm bestehen. 
A>SET24X80 
A>SET24X80 ON 

Beide Anweisungen sind gleichwer- 
tig und schalten den verkleinerten Bild- 
schirm ein. Abgeschaltet wird er mit: 
A>SET24X80 OFF 
SETKEYS.COM 

Dieses Hilfsprogramm stellt genau 
wie beim CPC 6128 die Tastaturbele- 
gung ein. Hier gelten folgende Bezeich- 
nungen: 

- »N« für Normal. 

- »S« für Shift. 

- »A« für die ALT-Ebene. 

- »E« für die EXTRA-Ebene. 
- »SA« für SHIFT / ALT. 

Es können mehrere Tastaturebenen 
auf einmal angegeben werden. Sie 
müssen deren Bezeichner aber mit 
einem Leerzeichen trennen. Schreiben 
Sie also nicht »NSE«, sondern »N SE«. 

Erweiterungszeichen (beim Joyce 
können auch die Funktionstasten 
belegt werden) definieren Sie, indem 
Sie der Zeile in der Belegungsdatei ein 
»E« voranstellen: 

E # 80 "DIRM” 

»E« steht für »Expansion Key«. Ver- 
wechseln Sie das aber bitte nicht mit 
dem Umbelegen der EXTRA-Taste: 

32 E "A" 

Die Tastaturnummern entsprechen in 

weiten Zügen denen der anderen 


Schneider-Computer. Eine komplette 
Liste finden Sie in Ihrem Benutzerhand- 
buch (Buch 1, Anhang 1, Seite 7), 
SETLST.COM 1 

SETLST dient der Übergabe von 
Steuersequenzen an den Drucker. 
Abgesehen davon, daß die Control- 
Taste beim Joyce ALT heißt, und damit 
die Control-Codes »Alternate-Codes« 
heißen müssen, gibt es keine weiteren, 
Unterschiede. Positiv fällt beim Joyce 
auf, daß der Drucker ins System inte- 
griert ist, so daß die Drucker-Steuer- 
zeichen für alle Joyce-Besitzer gleich 
sind. Welche Steuercodes die jeweils 
gewünschten Druckerfunktionen auf- 
rufen, entnehmen Sie bitte dem Anhang 
2 des Benutzerhandbuchs 1. 
SETSIO.COM 

Dieses Programm stellt die serielle 
Schnittstelle auf bestimmte Parameter 
ein. Baudrate, Bitzahl, Zahl der Stop- 
Bits, Parität, Übertragungsprotokoll und 
so weiter können festgelegt werden. 
DISCKIT.COM 

Der Dialog mit diesem Programm, das 
Disketten formatiert, kopiert und über- 
prüft, ist vollständig in Deutsch gehal- 
ten. Als Zwischenspeicher beim Kopie- 
ren kompletter Disketten dient automa- 
tisch die RAM-Disk. Das spart Zeit und 
istkomfortabler als das ständige Disket- 
tenwechseln beim 6128-Programm 
DISCKIT3.COM beziehungsweise sei- 
nem CP/M 2.2-Bruder DISCKIT2.COM. 
Ist ein zweites Laufwerk angeschlos- 
sen, erkennt DISCKIT.COM es automa- 
tisch und bietet weitere Menüs, mit 
denen Sie das Quell- und Ziellaufwerk 
festlegen können. 


Wenig Joyce- 
spe ches 


Ansonsten gibt es nur wenige Pro- 
gramme und Dateien, die nicht zum 
CP/M Plus-Standard gehören. Zu nen- 
nen sind allenfalls BASICCOM und 
PAPER.COM, sowie die nicht direkt zu 
den CP/M-Programmen gehörenden 
Dateien J12CPM3.EMS, RPED.BAS, 
RPED.SUB und PROFILE.GER. 

Beginnen wir mit der EMS-Datei. Kei- 
ner der CP/M Plus-Computer vermag 
das Betriebssystem wie bei der Version 
2.2 in den Systemspuren der Diskette 
abzulegen. Deshalb steht es in einer 
EMS-Datei. Heißt diese beim CPC 
6128 »C1IOCPM3.EMS«, wird sie beim 
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Joyce »J12CPM3.EMS« genannt. Ne- 
benbei bemerkt, ist letztere ein ganzes 
Stück größer: CIOCPM3.EMS ist 25 
KByte lang, J12CPM3.EMS immerhin 
40 KByte. Das EMS-File muß auch 
beim Joyce nicht auf jeder ins Laufwerk 
eingelegten CP/M-Diskette vorhanden 
sein, sondern wird nur ein einziges Mal 
beim Systemstart benötigt. 

PROFILE.GER sollten Sie sofort bei 
der ersten Inbetriebnahme Ihres Com- 
puters in PROFILE.SUB umbenennen. 
Dann stellt Ihnen Joyce nach dem 
Systemstart stets die deutsche Tasten- 
belegung und die deutschen Sonder- 
zeichen zur Verfügung. 

A>REN PROFILE.SUB=PROFILE.GER 

»GER« steht für »German«, während 
die Extension der 6128-Datei PRO- 
FILE.ENG die englische Tastaturbele- 
gung repräsentiert. Die Eingabe des 
Schlüsselworts »BASIC« beauftragt das 
CP/M-Betriebssystem, den Basic- 
Interpreter zu laden: 

A>BASIC 

Mallard-80 BASIC with Jetsam 

(ce) Copyright 1984 Locomotive 
Software Ltd. All rights reserved 

Danach können Sie den Joyce wie 
jeden handelsüblichen Heim- oder Per- 
sonal Computer in Basic programmie- 
ren. Das Mallard-Basic istübrigens sehr 
leistungsfähig und besitzt ausgezeich- 
nete Befehle zur Verwaltung von Dis- 
kettendateien. Leider stehen von den 
maximal vorhandenen 512-KByte-RAM 
des Joyce unter Basic nur etwa 30 
KByte für ein Programm zur Verfügung. 
Aber keine Sorge: Die RAM-Disk M 
kann man auch von Mallard-Basic aus 
ansprechen. Zusammen mit den lei- 
stungsfähigen Kommandos CHAIN und 
CHAIN MERGE lassen sich mit etwas 
Überlegung sehr umfangreiche verket- 
tete Programmsysteme entwickeln. 

Von Mallard-Basic aus gelangen Sie 
durch Eingabe des Befehls »SYSTEM« 
wieder in den Console Command Pro- 
cessor (CCP) des CP/M-Betriebssy- 
stems zurück. 

Beim Basic-Start dürfen einige Para- 
meter angegeben werden. So können 
Sie den Computer anweisen, ein Basic- 
Programm zu laden und sofort zu star- 
ten: 

A>BASIC PACMAN 

Mit »/F:n« wird die Zahl der Dateien 
(»Files«) angegeben, die unter Basic 
gleichzeitig geöffnet sein dürfen. »n« 
darf von O bis 255 alle Werte anneh- 
men. Vorgegeben sind drei Dateipuffer. 
Wollen Sie zum Beispiel 10 Dateien öff- 
nen, schreiben Sie: 

A>BASIC /F:10 

»/M:n« bestimmt die Obergrenze 
(»High Memory«) des für Mallard-Basic 
freigegebenen RAM-Speichers. Dieser 
Parameter ist nützlich, wenn Sie gleich- 
zeitig Maschinencode-Routinen an das 
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obere Speicherende legen wollen. Der 
Wert für »/M:n« muß als vorzeichenlose 
Integerzahl (0 bis 65535), als Hexade- 
zimalzahl (&0000 bis &FFFF) oder als 
oktale Zahl (400000 bis &0177777) 
eingegeben werden. Ist keine Begren- 
zung angegeben, holt sich Mallard- 
Basic die Startadresse des BDOS aus 
der RAM-Adresse 6 und wertet sie als 
Obergrenze des Speichers. Natürlich 
kann für »/M:n« keine Zahl stehen, die 
größer ist, als es das System überhaupt 
gestattet. 

Der letzte Parameter heißt »/S:n« und 
bestimmt, wie viele frei adressierbare 
Sätze maximal verwendet werden dür- 
fen. Ohne den S-Parameter liegt dieser 
Wert bei 128. 

Der bildschirmorientierte Texteditor 
RPED.BAS zählt ebenfalls zu den Basic- 
Programmen. Er verwaltet einen Text- 
puffer von etwa 20000 Zeichen und 
kann direkt von der CCP-Kommando- 
ebene des Betriebssystems mit Hilfe 
der Datei RPED.SUB gestartet werden: 
A>RPED.SUB 
Oder: 

A>SUBMIT RPED 

Voraussetzung ist natürlich, daß sich 
die Datei SUBMIT.COM auf der Arbeits- 
diskette befindet. Sonst tippen Sie 
A>TYPE RPED.SUB 
und geben die aufgelisteten Befehle 
von Hand ein. 


Drucker perfekt 
integriert 


Eine bisher nahezu unmöglich 
erscheinende Einbindung eines 
Druckers in das Betriebssystem reali- 
sierten inzwischen die Ingenieure von 
Amstrad. Nachdem der Drucker zum 
Lieferumfang gehört, ließen sie einen 
großen Teil seiner Elektronik einfach 
weg. Statt dessen steuert der Compu- 
ter die Druckfunktionen. Während Sie 
sich bei Verwendung der Locoscript- 
Textverarbeitung darüber nicht den 
Kopf zerbrechen müssen, können Sie 
den Drucker unter CP/M Plusindividuell 
nach Ihren Wünschen konfigurieren. 
Dazu dient das CP/M-Programm 
PAPER.COM. 

Gestartet wird PAPER.COM durch 
Eingabe des Schlüsselworts »PAPER«, 
gefolgt von diversen Parametern. Diese 
lauten: 

- FORM LENGTH n 

»Form Length« (Länge des Formulars) 
legt die Zahl der Zeilen pro Seite fest. 
Gestattet sind Werte zwischen 6 und 
99. Außerdem wird der Zeilenabstand 
automatisch auf sechs Zeichen pro Zoll 
eingestellt. Zwischen zwei Seiten 


erscheinen ab sofort keine Leerzeilen 
mehr. 
- GAP LENGTH n 


»Gap Length« (Länge des Abstands) 
bestimmt, wie viele Zeilen am unteren 
Rand der Seite freigehalten werden. 
Der Wert darf zwischen O und 99 lie- 
gen. 

- LINE PITCH n 

»Line Pitch« (Punktabstand zwischen 
den Zeilen) setzt die Zahl der Zeilen pro 
Zoll fest. Hier sind nur die Werte 6 und 
8 gestattet. 

- SINGLE SHEET 

»Single Sheet« (Einzelblatt) schaltet 
auf Einzelblattbetrieb um. 

- CONTINUOUS STATIONARY 

»Continuous Stationary« (Endlospa- 
pier) sagt dem Drucker, daß Endlospa- 
pier vorliegt. 
= PAPER OUT DEFEAT ON 

PAPER OUT DEFEAT OFF 

»Paper Out Defeat« (Papierende- 
Meldung) legt fest, ob der Drucker das 
Papierende melden soll oder nicht. 

Wer in der englischen Sprache nicht 
so bewandert ist, wird sich oft über die 
Schreibung einzelner Befehle nicht 
ganz sicher sein: Heißt es jetzt eigent- 
lich »CONTINUOUS« oder »CONTI- 
NOUS«? Kürzen Sie dann doch einfach 
die Befehle ab! PAPER.COM versteht 
folgende Kurzbezeichnungen: 

- »Fe für »FORM LENGTH« 

- »G« für »GAP LENGTH« 

- »L« für »LINE PITCH« 

- »S« für »SINGLE SHEET« 

- »C« für »CONTINUOUS 
STATIONARY« 

- »P« für »PAPER OUT DEFEAT« 

Um die Druckersteuerung möglichst 
nicht in Rechnerei ausarten zu lassen, 
gibt es zwei vorgegebene Standard- 
blätter für die Papierformate DIN A4 und 
DIN AS: 

A> PAPER A4 

Der Computer bedruckt das Papier 
nun als Einzelblatt des Formats DIN A4. 
Auf eine Seite passen 70 Zeilen, am 
unteren Rand werden drei Zeilen freige- 
halten. 

A> PAPER AS 

Der Joyce nimmt nun DIN-A5-Papier 
an: 50 Zeilen pro Seite und drei Leerzei- 
len am unteren Blattrand. 

Ein zusätzlicher PAPER-Parameter 
gilt für Endlospapier. Wenn nur eine 
Zahl zwischen 1 und 17 genannt wird, 
nimmt der Computer folgende Bedin- 
gungen an: 

- Es werden Endlosblätter verwendet. 

- Die Seitenlänge beträgt »n« Zoll. 

- Der Zeilenabstand liegt beisechs Zei- 
len pro Zoll. 

- Am unteren Blattrand werden keine 

Zeilen freigehalten. 

- Das Papierende wird dem Computer 
mitgeteilt. 

Wir hoffen, Ihnen fällt der Umgang mit 
dem Joyce durch unseren kleinen 
Überblick jetzt ein wenig leichter. 

(Martin Kotulla/Udo Reetz) 
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MAC und RMAC -— 
zwei ungleiche Brüder 


Wer in Maschinensprache pro- 
grammieren will, benötigt einen 
leistungsstarken Assembler und 
Hilfsprogramme. Beim CP/M 3.0 
sind sie »kostenlos« dabei. 


P/M war bereits seit seiner Ent- 

stehung hauptsächlich als 

Betriebssystem für Programmie- 
rer gedacht. Die Version 3.0 fiel vor 
allem erheblich bedienungsfreundli- 
cher aus und zeigte sich nachsichtiger 
gegenüber Nicht-Fachleuten. Dabei 
blieben die guten Hilfen zur Program- 
mierung nicht nur erhalten, sondern 
erfuhren sogar noch weitere Verbesse- 
rungen. 

In näherem oder weiterem Sinn gehö- 
ren folgende Programme unter CP/M 
Plus in die »Abteilung Programmier- 
tools« und werden von Schneider beim 
CPC 6128 und beim Joyce PCW 8256/ 
8512 mitgeliefert. Als erstes sind wohl 
MAC.COM, der CP/M Plus- Standardas- 
sembler, und RMACCOM, sein »Bru- 
der«, der relokalisierbaren Code 
erzeugt, erwähnenswert. 

HEXCOM.COM übersetzt die von 
MAC.COM erzeugten HEX-Files in 
direkt ausführbaree COM-Dateien. 
Link-80 (auf der Diskette unter dem 
Dateinamen LINKCOM zu finden) 
macht etwas ähnliches für RMAC- 
Dateien, die die Extension ».REL«besit- 
zen. 

XREF.COM formt aus der Druckdatei 
und der Symboltabelle von mit MAC 
oder RMAC übersetzten Programmen 
ein Listing mit Querverweisen (»cross 
referencese). Dieses Listing ist eine 
große Hilfe bei der Programmdokumen- 
tation. 

Bei SIDCOM (»Symbolic Instruction 
Debugger«) handelt es sich um einen 
sehr komfortablen Maschinensprache- 
Monitor und Programm-Debugger. Er 
arbeitet im Gegensatz zu DDT.COM von 
CP/M 2.2 (»Dynamic Debugging Tool«) 
auch mit den vom Assembler erzeugten 
Symboltabellen. Zu SIDCOM gehören 
die Utility-Programme TRACE.UTL und 
HIST.UTL, die beim Testen von Soft- 
ware oft recht nützlich sind. 

LIB.COM ist ein »Library«-Programm. 
Wenn Sie viel in Maschinensprache 
oder anderen Compilersprachen (zum 
Beispiel PL/I-80, Pascal/MT+ oder 
CBASIC) unter CP/M programmieren, 
können Sie wichtige und häufig benö- 
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tigte Unterprogramme in Objektcode- 
Form als Programmbibliotheken anle- 
gen. LIB.COM verwaltet diese Libraries. 

Die vier verbleibenden Programme 
braucht man seltener: DUMPCOM 
listet Diskettendateien auf dem Bild- 
schirm in hexadezimaler Form auf. Dar- 
stellbare ASCIl-Zeichen werden direkt 
gezeigt. 

GENCOM.COM dient zur Anbindung 
von RSX-Modulen an COM-Files. 
»RSX« steht für »Resident System 
Extension«, genau wie die RSX-Befehle 
im Schneider-Basic. Beide »RSX«- 
Systeme haben aber absolut nichts mit- 
einander zu tun. Die RSX unter CP/M ist 
vielmehr eine Betriebssystem-Erwei- 
terung, die über den BDOS-Einsprung 
aufgerufen werden. Sie binden sich in 
die BDOS-Kette ein und merken auto- 
matisch, wann sie angesprochen wer- 
den sollen. »RSXen« erfordern aber 
sehr spezielle Programmierkenntnisse, 
die einiges an Erfahrung mit dem CP/M- 
Betriebssystem voraussetzen. 

SAVE.COM ersetzt den vormals in der 
CP/M-Version 2.2 residenten Befehl 
SAVE, der Teile der TPA auf der Diskette 
abspeichert. SAVE.COM arbeitet mit 
SID.COM zusammen; Sie lernen dieses 
Programm später noch ausführlicher 
kennen. 

PATCH.COM vermerkt im Kopf einer 
Datei eine Nummer zwischen O und 31. 
PATCH dient dazu, Dateien mit Ver- 
sionsnummern zu bezeichnen. 


Betrifft: Assembler 


Die beiden Assembler MAC.COM und 
RMAC.COM haben einen großen Nach- 
teil: Sie verarbeiten nur den mnemoni- 
schen Code des 8080/8085-Mikro- 
prozessors. Z80-Programmierer müs- 
sen also umdenken. Ansonsten bieten 
die beiden alles, was man sich nur wün- 
schen kann. Vor allem - daher rührt 
auch ihr Name - sind sie makrofähig. 
Makros sind Befehlsgruppen, die unter 
einem bestimmten Namen zusammen- 
gefaßt und später anhand dieses 
Namens wieder aufgerufen werden 
können. 

MAC und RMAC sind aufwärts- 
kompatibel zum Standardassembler 


ASM.COM, der zum Lieferumfang von 
CP/M 2.2 gehört. Das bedeutet, daß sie 
alle Programme, die ASM übersetzt, 


auch verarbeiten. Andersherum geht 
es natürlich nicht. Man kann ASM keine 
Programme vorsetzen, die spezielle 
Fähigkeiten von MAC oder RMAC aus- 
nutzen. 


Dochalles der Reihe nach. Gehen wir 
zuerst einmal auf die Grundlagen von 
MAC und RMAC ein. 

Dem Assembler geben Sie eine Dis- 
kettendatei vor, die den Quellcode im 
Klartext enthält. »Klartext« heißt, daß 
die Datei keine Sonderzeichen oder 
spezielle Codierungen aufwärts. Word- 
star ist im normalen D-Modus dafür 
also herzlich ungeeignet. Verwenden 
Sie dieses Textprogramm bei der 
Erstellung von Maschinencode- 
Programmen (wie übrigens auch bei 
allen anderen Programmdateien) 
grundsätzlich nur im N-Modus. Dann 
weiß Wordstar nämlich, daß Sie eine 
Quellcode-Datei erstellen und erzeugt 
reine ASCII-Files. Wer keinen geeigne- 
ten Texteditor besitzt, kann auf die 
Basic-»Simpel«-Lösung zurückgreifen: 
10 OPENOUT "PROG.ASM” 

20 PRINT #9,”START MVI A,9” 


30 PRINT #9, MOV C,A” 
40 PRINT #9,” LXI D,STR$” 
50 PRINT #9,” CALL 5” 
60 PRINT #9,” IMP 0” 


70 PRINT #9,”STR$ DB 'Hallo!$'” 
80 CLOSEOUT 

Allzu komfortabel ist das natürlich 
nicht. Es handelt sich eben um eine 
Notlösung. 

Eine typische Quellcode-Zeile 
besteht aus einem oder mehreren der 
folgenden Einzelglieder: Zeilennum- 
mer, Label, Befehl, Operanden, Kom- 
mentar. 

Selbstverständlich können Sie die 
Zeilennummer auch weglassen. Der 
Assembler ignoriert sie ohnehin. Sie 
dient nur dazu, Kompatibilität zu mög- 
lichst vielen Texteditoren herzustellen. 

Einige Beispiele für syntaktisch kor- 
rekte Quellcode-Zeilen mit Befehlen 
und Operanden: 


MVI A,3 
ADI 23 
JMP 0 
GL 5 
IHLD 30H 


Manche 8080-Befehle benötigen 
überhaupt keine Operanden. In diesem 
Fall ist das Operandenfeld leer: 

SPHL 
RNZ 
XTHL 


Um in anderen Maschinencode-Be- 
fehlen auf eine Speicheradresse Bezug 
zu nehmen, verwendet man symboli- 
sche Adressen, sogenannten »Labels«. 
Sie können diese jedem beliebigen 
Maschinencode-Befehl voranstellen. 


START WI  A,23 
MP ENDE 
MILL.0,3 
GL 5 


ENDE JMP 0 

Das Label, auch »Marke« genannt, 
besitzt dann als Wert die Adresse des 
zugehörigen Maschinenbefehls. Steht 
etwa das obige »MVI A,23« an der 
Adresse 2710 hex, hat »START« den 
Wert 2710 hex. Mit JMP, CALL oder 
LHLD sprechen Sie zusammen mit dem 
Label die Adresse 2710 hex an. 

Eine Marke darf bis zu 16 Buchsta- 
ben lang sein. Dabei sind alle Zeichen 
signifikant, werden also bis zur 16. 
‚Stelle hin unterschieden. 


Namen frei gewählt 


Bei der Namensgebung sind Sie rela- 
tiv ungebunden. Buchstaben, Zahlen, 
Fragezeichen und der »Klammeraffe« 
sind erlaubt und werden als Stelle 
gezählt. Lediglich das ebenfalls zuge- 
lassene Dollarsymbol (»$«) überliest 
der Assembler und eignet sich dem- 
nach recht gut zur Gliederung langer 
Namen. Die Labels »LANGER$NAME« 
und »LANGERNAME« sowie 
»LEASNSG$ESRSNSASMSE« sehen 
für den Assembler gleich aus. 

Wenn Sie wollen, dürfen Sie hinter die 
Labels einen Doppelpunkt setzen. MAC 
und RMAC verstehen die Zeilen aber 


auch ohne: 

LOAD IXI  D,3FACH 
oder 

LOAD: IXI D,3FACH 


Kommentare hängen Sie am besten 
hinter der Programmzeile an. Ein Strich- 
punkt.oder ein Stern trennt sie vom übri- 
gen Text ab. Sie dürfen auch allein in 
einer Zeile stehen: 

START LXI SP,0100H ; Stackpointer 
auf TPA 

* Hier beginnt das Hauptprogramm 
; Und hier sind die Daten 

Numerische Konstanten in Aus- 
drücken lassen sich in verschiedenen 
Zahlensystemen angeben: dezimal, 
binär, hexadezimal und sogar oktal! 

Dezimale Konstanten enden wahl- 
weise mit einem »D«: 32767D ent- 
spricht 32767, man kann das D also 
auch weglassen. 

Hexadezimale Werte besitzen als 
Kennung ein »Hs: 3FACH, 2710H, 
7FH. Beginnt eine Hexzahl mit einem 
Buchstaben (»A« bis »F«), sollten Sie ihr 
eine Null voranstellen, damit der 
Assembler sie von einem Label unter- 


scheiden kann. Statt »FFFFH« schrei- 
ben Sie besser »OFFFFH«. 

Binärzahlen enden mit einem »B« für 
»Binary«. Gerade bei diesen Zahlen- 
»Bandwürmern« empfiehlt es sich, sie 
mit  Dollarzechen zu gliedern. 
»0000111101011010B« ist ein ziemlich 
abschreckendes Beispiel für eine - 
zulässige - Binärkonstante, während 
»0000$1111$0101$1010$B« durch 
die Unterteilung in Nibbles (Halb-Bytes) 
durchaus leserlich ist. 

Oktale Konstanten werden Sie zwar 
kaum jemals benötigen, aber der Voll- 
ständigkeit halber: Sie enden mit einem 
»0« oder »O«, dem Buchstaben, keines- 
falls der Null! Oktalzahlen, lassen sich 
aber auch mit dem weniger mißver- 
ständlichen »Q« oder »q« kennzeich- 
nen: 

33770 = 33770 = 3377Q = 3377q 

‚Auch mit Zahlen und Symbolen kann 
man rechnen und in Ausdrücken For- 
meln erstellen. Neben den vier Grund- 
rechenarten (Addition »+«, Subtraktion 
»-«, Multiplikation »*« und der Division 
»/«) stehen auch die sogenannten unä- 
ren Operatoren zur Verfügung: 
+X=X, -X=0-X. 

Während »/« eine Integerdivision 
durchführt, liefert MOD (»modulo«) den 
Rest dieser ganzzahligen Division. 

Der Divisionsrest läßt sich folgender- 
maßen beschreiben: Wenn Sie 13 
durch 4 teilen, erhalten Sie das ganz- 
zahlige Ergebnis 3. »3+4«, also der 
Umkehrschritt, ergibt aber nicht 13, 
sondern 12. Die Differenz zwischen 13 
und 12 ist der Rest, hier die Zahl 1. 

Auch Shift-Befehle verstehen die bei- 
den Assembler. Analog zu den Turbo- 
Pascal-Operatoren heißen diese auch 
hier »SHL« (Shift Left) und »>SHR« (Shift 
Right«). Beide schieben die Bits in 
einem Byte oder 16-Bit-Wort um eine 
gegebene Anzahl von Stellen nach links 
oder rechts und füllen die freigeworde- 
nen Stellen mit Null-Bits auf. 

Eine Linksverschiebung um eine 
Position entspricht damit der Multiplika- 
tion mit Zwei, ein Ein-Bit-Rechts- 
schieben der Division durch Zwei. 

Deutlicher wird das ganze an zwei 
praktischen Beispielen: 
001101B SHL 1 ergibt 011010B 
001101B SHR 1 ergibt 000110B 

HIGH und LOW berechnen das High- 
beziehungsweise Low-Byte einer 
16-Bit-Zahl. So ergibt »HIGH 3FACH« 
den Wert 3F hex und »LOW 3FACH« die 
Zahl OAC hex. 

Auch einige Logikbefehle, die Sie viel- 
leicht vom Schneider-Basic her ken- 
nen, sind als Operatoren zugelassen. 
»ANDs, »OR« und »XOR« verknüpfen 
jeweils zwei Operanden Bit für Bit. 

3 AND 12 
255 OR X 
16000 XOR 16001 


3 OR 4 XOR 23 AND 255 

»NOT: liefert das logische Gegenteil 
einer Zahl, denn es dreht alle ihre Bits 
um. Aus Null-Bits werden Einsen, aus 
Eins-Bits Nullen. Haben Sie beispiels- 
weise die Binärzahl 0101B, ergibt NOT 
O0101B: 1010B. 

Die Wahrheitswerte TRUE (wahr) und 
FALSE (falsch) erhalten Sie von einigen 
Vergleichsoperatoren: 

a EQ b (check if equal«: prüfe, ob a 
gleich b) 

Soliefert 2 EQ 2 sTRUE«, 2 EQ 3 hinge- 
gen »FALSE«. 

a NE b (»check if not equal«: prüfe, ob 
a ungleich b) 

50 NE 49 ergibt sTRUE«, während 50 
NE 50 der Wahrheitswert »FALSEe ist. 
aLT b (»check if less than«: prüfe, ob a 
kleiner b) 

4LT 3 ergibt »FALSE«, 3LT 4im Gegen- 
satz dazu »TRUE«, 

a LE b (»scheck if less than or equal«: 
prüfe, ob a kleiner oder gleich b ist) 
3LE 4 ist sTRUE«, 4 LE 4 ebenso. 5LE 
2 meldet »FALSE«. 

a GT b (»check if greater than«: prüfe, 
ob a größer als b ist) 

20 GT 21 ergibt den booleschen Wert 
»FALSE«, 21 GT 19 liefert das Resultat 
sTRUE«. 

aGEb (»check if greater than or equal«: 
prüfe, ob a größer oder gleich b ist) 
30 GE 10 ist sTRUE«, ebenso wie 30 
GE 30. Dahingegen zeigt 30 GE 40 
den Wahrheitswert »FALSE« an. 

Wem die Lust fehlt, die englischen 
Abkürzungen für die Vergleichsbefehle 
zu erlernen, kann natürlich auch seine 
Mathematikkenntnisse anwenden und 
auf die bekannte »Größer-Kleiner«- 
Symbolik zurückgreifen: 


IT < Kleiner 

LE <= Kleiner oder gleich 
EQ = Gleich 

NE <> Ungleich 

GE >= Größer oder gleich 
GT > Größer 


Strings gibt’s auch 


Stringkonstanten werden in Apostro- 
phe eingeschlossen. Dabei darf ein 
String pro Zeile maximal 64 Buchsta- 
ben enthalten. Ein paar Beispiele für 
gültige Strings: 

IV 
'CP/M lernen mit Happy-Computer!' 
u 

Wollen Sie einen Apostroph im String 
unterbringen, setzen Sie an seiner 
Stelle das Anführungszeichen ein: 

»The lazy dog”s back'« ergibt im 
Objektcode »The lazy dog's back«. 

Bestehen Sie partout auf ein Anfüh- 
rungszeichen im Text, verursacht das 
einige Schwierigkeiten. Geben Sie in 
diesem Fall den ASCIl-Code des Zei- 
chens an, nämlich 34: 
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ENSSERERDESEEBSIS RE RSEHEN 


34,'Bitte sehr',34,' sagte er' 


»Direktiven«, dieses Wort klingt so 
nach »Befehl von oben«. Beiden CP/M- 
Assemblern hat es eine erheblich posi- 
tivere Bedeutung. »Direktiven« sind 
wohl den meisten eher geläufig als 
»Pseudo-Befehle«. Das sind Komman- 
dos, die in den Quellcode wie normale 
Maschinenbefehle eingefügt werden 
und beim Assembler verschiedene 
Reaktionen auslösen können. Ein Bei- 
spiel dafür ist: 

PAGE 53 
MVI A,23 

Während der MVI-Befehl ein ganz 
normales Mnemonic ist, handelt essich 
bei »PAGE« um die besagte Direktive. 
Sie teilt dem Assembler schlicht und 
einfach mit, daß alle Seiten bei der Aus- 
gabe des Druckerlistings 53 Zeilen 
umfassen sollen. 


Direktiven — nicht 
von oben 


Es gibt natürlich auch bedeutendere 
und häufiger benötigte Direktiven. So 
sagt »ORG Adresse« dem Assembler, 
daß er den internen Programmzähler 
(»Origin«) bei der Übersetzung auf 
einen bestimmten Wert setzen soll. An 
die genännte Adresse wird das Pro- 
gramm dann später bei der Ausführung 
geladen. Für CP/M-Systeme setzen Sie 
am geeignetsten ausschließlich »ORG 
O100H« ein, denn 0100 hex ist der 
Beginn des CP/M-Programmspeichers 
der TPA. Diese Feststellung gilt natür- 
lich nur für MAC, nicht für RMAC. Denn 
RMAGC erzeugt verschiebbaren Code, 


und da ist ein fester ORG-Adreßwert ja 


eher hinderlich. 

Abschließen sollten Sie jedes Pro- 
gramm mit der »END«-Direktive. Alle 
dem »END« folgenden Befehlszeilen 
überliest der Assembler, das Dateiende 
erkennt er aber auch ohne »END«. Den- 
ken Sie aber unbedingt daran, bei der 
Eingabe in den Editor nach der letzten 
Zeile mindestens einmal ENTER oder 
RETURN zu drücken. Sollten Sie das 
vergessen, kann es sein, daß der 
Assembler ohne Vorwarnung »aus- 
steigte. 

Sie haben bereits die »Labels« ken- 
nengelernt. Mit »EQU« können Sie 
einem Label auch gleich einen festen 
Wert zuweisen. So liegt beispielsweise 
die Warmstart-Adresse von CP/M bei 
0000 hex. Wollen Sie diese etwa 
»WARMBOOT: nennen, schreiben Sie 
diese Zeile: 

WARMBOOT EQU 0000H 

Um einen Warmstart des Computers 
im Programm auszulösen, geben Sie 
wahlweise »JMP O000H« oder »JMP 
WARMBOOTs an. So wird es einsichtig, 
daß sich die Verwendung von Labels 
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gut eignet, verständliche Programme 
zu schreiben, und damit sehr zu emp- 
fehlen ist. Statt Konstanten sind auch 
Formeln und Berechnungen rechts vom 
»EQU« gestattet. Sogar den Bezug auf 
vorher definierte Labels unterstützen 
MAC und RMAC: 

CONSOLE$PORT EQU OFFDBH 
JOYST$PORT EQU CONSOLE$PORT+5*3 

Ein einmal mit »EQU« definiertes 
Label läßt sich nicht so ohne weiteres 
später im Programm ändern. Legen Sie 
darauf trotzdem Wert, müssen Sie auf 
»SET« zurückgreifen: 

CONSOLE SET 7BOOH 
IN CONSOLE 
PUSH PSW 

SET 630FH 
OUT CONSOLE 
POP AF 

Zuerst besitzt »CONSOLE« den Wert 
7B00 hex, später aber 630F hex. Bei 
»IN« wird die erste Adresse ausgewer- 
tet (7BOO hex), bei dem auf das zweite 
»SET« folgenden »OUT« dagegen 630F 
hex. 

Um Daten direkt in den Quelltext ein- 
zusetzen, bedient man sich der Direk- 
tive »DB«. Das steht für »Define Byte«. 
Der Beginn einer ASCII-Tabelle sieht mit 
»DB« so aus: 

DB 32,33,34,35,36,37,38,39,40 

ASCII-Codes sind in Apostrophe ein- 
zuschließen: 

DB r t,r10 34,161, 181, 1Q 

Bis zu 64 Buchstaben und Symbole 
können Sie auch auf einmal angeben: 
DB ' 1#888”()*+,-./01234' 

Der Assembler berechnet die einzel- 
nen Werte oder Formeln und legt sie 
Byte für Byteim Speicherab. Bei Adreß- 
ausdrücken ist die 8-Bit-Breite von 
»DB« hinderlich. »DW« (»Define Word«) 
ist da eher angebracht: 

DW 3FACH, 16300, 'AB' ,0101101B 
Wollen Sie für einen Datenbereich 
Speicherplatz reservieren, ohne ihn 
gleich mit bestimmten Werten vorzube- 
legen, empfiehlt sich der Pseudobefehl 
»DS« (»Define Space« oder »Define Sto- 
rage«). Um etwa 30 Byte für den Pro- 
zessorstapel bereitzuhalten, wählen 
Sie folgende Formulierung: 
DS 30 

STACK EQU $ 
ORG 0100H 
LXI SP,STACK 

MAC und RMAC erstellen auf 
Wunsch bei der Assemblierung eine 
Listdatei, die den Quellcode und die 
erzeugten Bytes in übersichtlicher 
Form darstellt. Mit zwei Assembler- 
Direktiven läßt sich die Ausgabe steu- 
ern. »PAGE« legt fest, mit wievielen Zei- 
len jede Druckseite beschrieben wird, 
bis der Assembler ein Form-Feed (Sei- 
tenvorschub) ausgibt. »PAGE 40« fügt 
zum Beispiel nach jeweils 40 Zeilen 
einen Seitenvorschub ein. 


CONSOLE 


Eine besondere Bedeutung kommt 
noch dem Befehl »PAGE O«zu. Er unter- 
drückt jeglichen Seitenvorschub und 
weist den Assembler an, alle Listingzei- 
len ohne Unterbrechung zu drucken. 
»PAGE« ohne Zahlenparameter löst 
einen unmittelbaren Seitenvorschub. 
aus. 

TITLE« bestimmt die Meldung, die 
am Anfang jeder Listingseite die erste 
Zeile einnimmt. Nach »TITLE« geben Sie 
eine Stringkonstante an, die von Apo- 
strophen umgeben sein sollte: 

TITLE 'Diskmonitor V2.0' 
TITLE 'Mallard-Basic V4 Rev.1' 

Der Assembler MAC druckt diesen 
String zusammen mit seiner eigenen 
Startmeldung, der Versionsnummer 
des Assemblers und der Seitennummer 
aus: 

CP/M MACRO ASSEM 2.0 

#001 Diskmonitor V2.0 

CP/M MACRO ASSEM 2.0 

#001 Mallard Basic V4 Rev.ı 

Etwas anders sieht das bei RMAC 

aus: 

CP/M RMAC ASSEM 1.1 

#001 Diskmonitor V2.0 

CP/M RMAC ASSEM 1.1 

#001 Mallard Basic V4 Rev.i 

Wer größere Programmpakete unter 
CP/M zu entwickeln beabsichtigt, 
schreibt oft verschiedene Versionen, 
die jeweils an einen speziellen Compu- 
terangepaßt sind. Um nun nichtfürjede 
Version eine eigene Quellcode-Datei 
anlegen zu müssen, kann man den 
Assembler anweisen, Programmteile 
nur dann zu übersetzen, wenn eine 
bestimmte Bedingung zutrifft. Dazu 
schachteln Sie die bedingt zu überset- 
zenden Segmente mit »IF«e und 
»ENDIF«. 

Stellen Sie sich etwa vor, Sie wollen 
ein Programm CLS.COM schreiben, 
das beim Schneider CPC und beim 
Joyce den Bildschirm löscht und den 
Cursor in die linke obere Bildschirm- 
ecke setzt. Unter CP/M 2.2 verwenden 
Sie dazu ASCII 12, beiCP/M Plus hinge- 
gen ESC-E/ESC-H. Eine Version für 
CP/M 2.2 sieht so aus: 


BDOS EQU 0005H 
WARM EQU 0000H 
TPA EQU 0100H 
OUTPUT$ EQU 0009H 
ORG 0100H 
IXI SP,TPA 
MVI C,OUTPUT$ 
IXI D,CIS 
CALL BDOS 
JMP WARM 
cLS DB 12,'$' 
END 
Unter CP/M Plus heißt es dagegen: 
BDOS EQU 0005H 
WARM EQU 0000H 
TPA EQU 0100H 


OUTPUT$ EQU 
ORG 
LXI 
MI 
IxI 


0009H 
O100H 
SP,TPA 
C,OUTPUTS 
D,CLS 
CALL BDOS 

JMP WARM 


CcL5 DB 27,'E',27,'H$' 
END 
Und so sieht die Kombination der bei- 
den Listings mit Hilfe der bedingten 
Assemblierungsmöglichkeit aus: 


TRUE EQU OFFFFH ; wahr 
FALSE EQU NOT TRUE ; unwahr 
CPM3 EQU TRUE ; Oder 
CPM3 EQU FALSE 
BDOS EQU 0005H 
WARM EQU 0000H 
TPA EQU O0100H 
OUTPUT$ EQU 0009H 
ORG O0100H 
IXI SP,TPA 
MVI  C,OUTPUT$ 
IXI D,CIS 
CALL BDOS 
JMP  WARM 
IF CPM3 
cLS DB 27,'E',27,'H$' 
ENDIF 
IF NOT CPM3 
CLS DB 12,'$' 
ENDIF 
END 


Nun erzeugen Sie ganz einfach eine 
CP/M 3.0- und eine CP/M 2.2-Version. 
Sie brauchen nur 


CPM3 EQU TRUE 
für die CP/M 3.0-Version oder 
CPM3 EQU FALSE 


für die CP/M 2.2-Version einzusetzen. 

Etwas übersichtlicher gestaltet die 
ganze Sache die Konstruktion »IF - 
ELSE - ENDIF«. Das Clearscreen- 
Programm läßt sich mit ELSE so darstel- 
len: 


TRUE EQU  OFFFFH 
FALSE EQU NOT TRUE 
CPM3 EQU TRUE ; Oder 
CPM3 EQU FALSE 
BDOS EQU  0005H 
WARM EQU  0000K 
TPA EQU  0100H 
OUTPUT$ EQU 0009H 
ORG O100H 
IXI  SP,TPA 
MVI C,OUTPUTS 
IXI  D,CLS 
CALL BDOS 
JMP  WARM 
IF cpM3 
cLs DB  27,'E1,27,'H$' 
ELSE 
LS DB 12,'$! 
ENDIF 
END 


Doch seien Sie sicher; allzu häufig 
werden Sie auf derartige Finessen nicht 
zurückgreifen. 
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Bis jetzt wissen Sie noch gar nicht, 
wie Sie MAC oder RMAC dazu bringen, 
ein Programm in Maschinencode zu 
übersetzen. Gehen wir davon aus, Sie 
haben eines der CLS-Listings abgetippt 
und als CLS.ASM gespeichert. Die 
Extension ».ASM« im Dateinamen ist 
von äußerster Wichtigkeit, denn sonst 
findet der Assembler die Datei nicht. 

Sie können es sich nun einfach 
machen und MAC nur mit dem Dateina- 
men laden: 

A>MAC CLS 

Nach kurzer Wartezeit erscheinen 
einige Meldungen auf dem Bildschirm: 
CP/M MACRO ASSEM 2.0 
0110 
000H USE FACTOR 
END OF ASSEMBLY 

Schauen wir uns die Bedeutung der 
einzelnen Textzeilen an: »CP/M 
MACRO ASSEM 2.0« ist schlicht die 
Startmeldung, die darüber Auskunft 
gibt, daß MAC jetzt aktiv ist. Die Zeile 
»0110« (eventuell bei Ihnen auch 
»0113«) zeigt die letzte vom Programm 
belegte Adresse, Das Maschinencode- 
Programm wird im Speicher also zwi- 
schen 0100 (dem normalen Beginn der 
TPA) und 0110 beziehungsweise 0113 
hex (der Angabe von MAC) liegen. 


HEXCOM 
stellt sich vor 


Der »Use Factor« ist eine Information 
des Assemblers, die die Auslastung des 
Arbeitsspeichers mit der Symboltabelle 
während der Assemblierung im Verhält- 
nis zur Größe des Gesamtspeichers 
beschreibt. Liegt der Auslastungsfaktor 
nahe OFF hex, bedeutet dies, daß der 
Assembler bald nicht mehr in der Lage 
sein wird, das Programm zu überset- 
zen. Bei solchen Miniprogrammen wie 
CLS$ist der Speicher natürlich praktisch 
kaum belastet. Deshalb ergibt sich für 
den Belegungsfaktor der angegebene 
Wert O, 


Wenn Sie jetzt das Directory listen, 
entdecken Sie einige neue Dateien. Da 
wäre zuerst einmal CLS.PRN, die 
Listingdatei. Sie läßt sich so auf dem 
Bildschirm ausgeben: 

A>TYPE CLS.PRN 

CLS.SYM ist die Symboltabelle. In 
diese Datei schreibt MAC alle Symbole 
zusammen mit ihrem Wert: 

A>TYPE CLS.SYM 
0005 BDOS 
010E CLS 
0009 OUTPUT 
0100 TPA 
0000 WARM 

Neben der besseren Programmdoku- 
mentation erfüllt sie noch eine weitere 
Aufgabe. Der Debugger SID kann diese 
Tabelle nämlich auch lesen, wodurch 
Sie in diesem Monitorprogramm mit 


symbolischen Adressen arbeiten kön- 
nen. Doch dazu später mehr. 

Nach einem »MAC-Lauf« enthält die 
Diskette noch kein startfähiges Pro- 
gramm, nur eine sogenannte »Intel- 
Hex-Datei«. Das sind kryptische Kombi- 
nationen von Hexadezimalzahlen. 
CLS.HEX könnte bei Ihnen vielleicht so 
aussehen: 
:100100003100010E09110E01CD0500C 
300000C24C1 :0000000000 

Dem Menschen erscheinen diese 
Dateien unverständlich, während 
HEXCOM.COM damit ganz ausge- 
zeichnetzurechtkommt. Eserzeugtaus 
HEX-Dateien COM-Programmdateien. 
Sie rufen das Konvertierungsprogramm 
zusammen mit dem Dateinamen des zu 
übersetzenden Programmes, aber 
ohne Extension auf: 

A>HEXCOM CLS 
Es stellt sich Ihnen kurz vor: 
HEXCOM VERS: 3.00 
und verrichtet dann seine Arbeit. 
Danach gibt es Informationen über 
CLS.COM aus: 
FIRST ADDRESS 0100 
LAST ADDRESS 010F 
BYTES READ 0010 
RECORDS WRITTEN 01 

Der Programmstart liegt also bei 
0100 das Programmende bei 010F 
hex. HEXCOM hat 0010 hex (16) Byte 
gelesen und einen 128-Byte-Record 
auf die Diskette geschrieben. 

Sie können das Programm CLS.COM 
nun durch Eingabe des Dateinamens 
starten: 

A>CIS 

Nun nehmen wir uns das Programm 
RMAC vor. Besonders viel Sinn gibt das 
hier noch nicht, weil wir nicht mehrere 
Programm-Module zusammen-»lin- 
ken«. Gerade das ist aber die Spezialität 
von RMAC. Starten läßt sich RMAC auf 
dieselbe Art und Weise, die Sie schon 
von MAC kennen: 

A>RMAC CLS 

CP/M RMAC ASSEM 1.1 
0110 

000H USE FACTOR 
END OF ASSEMBLY 

RMAC legt - ebenso wie MAC - eine 
SYM- und eine PRN-Datei an. Nur das 
».HEX« fehlt. Dafür gibt es ».REL«, ein 
sogenanntes »Relocatible File«. Das 
REL-Format ist Microsoft-kompatibel. 
Das heißt, daß sich RMAC-Programme 
mit Programmen verschiedener Micro- 
soft- und Digital-Research-Compiler 
verketten lassen. Link-80 erledigt das 
für Sie. Geben Sie nur eine einzige Link- 
Datei an, verhältsich LINK fast wie HEX- 
COM: 


A>LINK CLS 
LINK 1.31 

ABSOLUTE 0000 

CODE SIZE 0110 (0100-020F) 
DATA SIZE 0000 
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COMMON SIZE 
USE FACTOR 00 


0000 


Auch von RMAC und LINK produ- 
zierte Programme werden wie üblich 
gestartet: 

A>CLS 

Nun wäre es ja richtig »langweilig«, 
wenn alle Assemblerprogramme immer 
auf genau dieselbe Art übersetzt wür- 
den. MAC und RMAC besitzen deshalb 
eine Reihe von Optionen, die die Über- 
setzung steuern. Diese stehen jeweils 
hinter dem Dateinamen und sind von 
ihm durch ein Dollarsymbol getrennt. 
Sie bestehen stets aus zwei Buchsta- 
ben. Eine typische Aufrufzeile sieht so 
aus: 

A>MAC DATEI $AB PA SB 

»A« bestimmt das Laufwerk mit der 
ASM-Datei. »AB« läßt den Assembler 
die Suche also auf dem Laufwerk B 
beginnen. »AA« sucht auf A. »PA« 
schreibt die Listdatei auf das Laufwerk 
A, »SB« die Symboltabelle nach B. 
Einige wichtige Zusätze: 

Ad Diskette (d) für die gelesene ASM- 
Datei 

Hd Diskette (d) für die erzeugte HEX- 
Datei 

Pd Diskette (d) für die Listdatei (».PRN«) 
Sd Diskette (d) für die Symboltabelle 
(».SYM«) 

Neben den Standardlaufwerken A bis 
O (beim Schneider nur A und B, allen- 
falls bei RAM-Disks oder Festplatten 
gibt es weitere Laufwerksbezeichnun- 
gen) versteht der Assembler auch 
einige »Scheingeräte«. So fühlt sich bei 
»P« der Drucker (Printer) undbei»X«der 
Bildschirm angesprochen. Führen Sie 
»Z« (Zero Device) auf, unterdrückt dies 
die Ausgabe. Um also keine Hexdatei zu 
erzeugen, die Listdatei auf den Bild- 
schirm zu schreiben und die Symbolta- 
belle auf dem Drucker auszugeben, 
geben Sie ein: 

A>MAC DATEI $PX HZ SP 

RMAC versteht diese Zusätze eben- 
falls, allerdings gilt statt der Bezeich- 
nung »H« für Hexfiles hier »R« für die 
RMAC-typischen REL-Dateien. 

Eine komplette Tabelle aller MAC- 
und RMAC-Parameter finden Sie in der 
Tabelle. 

Ein »richtigere Assembler muB 
Makros verarbeiten - so zumindest die 
Meinung vieler Anwender. So ausneh- 
mend wichtig sind sie jedoch bestimmt 
nicht, aber oft ganz nützlich. 

Was sie tun und wie man sie anwen- 
det, verdeutlicht am ehesten ein Bei- 
spiel. Will man in CP/M einen String auf 
dem Bildschirm ausgeben, benutztman 
die BDOS-Funktion 9: 

LXI D,STRING 
PUSH PSW 
PUSH B 

PUSH D 

PUSH H 
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WI (c,9 
CALL BDOS 
POP H 
POP D 
POP B 
POP PSW 
Wenn Sie des öfteren Strings auf dem 
Bildschirm ausgeben müssen, pro- 
grammieren Sie eine Unter-Routine: 
HAUPT LXI D,STRING 
CALL AUSGABE 
LXI D,STRING2 
CALL AUSGABE 
IM $ 

AUSGABE PUSH PSW 

PUSH B 

PUSH D 

PUSH H 

MI C,9 

CALL BDOS 

POP H 

POP D 

POP B 

PoP PSW 

RET 

Während das natürlich - von der Pro- 
grammlänge her betrachtet - eine opti- 
male Lösung darstellt, schaut es beim 
Geschwindigkeitsverhalten der Rou- 
tine schlechter aus. Denn zum norma- 
len Programmcode kommt noch der 
Unterprogramm-Aufruf und die Rück- 
kehr zum Hauptprogramm. Gerade 
Befehle, die den Z80/8080-Stack 
benötigen und sich zusätzlich noch 
eine 16-Bit-Adresse aus dem Speicher 
holen müssen, sind besonders lang- 
sam. So dauert die Bearbeitung eines 
Befehls wie »LD A,B« (MOV A,B) beim 
Z80 vier Taktzyklen, ein Unterpro- 
gramm-Aufruf aber 17. Und der RET- 
Befehl schlägt mit zehn weiteren Takt- 
zyklen zu Buche. Insgesamt also 27 
»unnötige« Zyklen. 

Nun könnte man sich mit Blockkopier- 
Operationen des Texteditors die ent- 
sprechenden Programmteile hin- und 
herkopieren, so daß am Schluß bei 
jeder Gelegenheit, bei der ein String 
gedruckt werden soll, der komplette 
Programmcode dasteht. Unter dem 
Gesichtspunkt der Übersichtlichkeit ist 
das aber auf gar keinen Fall zu empfeh- 
len. Diese Lösung, die auf die Makros 
zurückgreift, ist da schon wesentlich 
besser. 

AUSGABE MACRO 
PUSH PSW 
PUSH B 
PUSH D 
PUSH H 
MI 0,9 
CALL BDOS 
POP H 
POP D 
POP B 
POP PSW 
ENDM 


HAUPT LXI D,STRING 
AUSGABE 


LXI D,STRING2 


Der Assembler setzt bei der Überset- 
zung in Maschinencode an allen Stel- 
len, an denen »AUSGABEK steht, den 
kompletten Programmcode ein, den Sie 
zwischen »AUSGABE MACRO« und 
»ENDM« finden. 

Das ist zwar sehr speicherplatzauf- 
wendig, aber die zeitgünstigste 
Lösung. Ganz allgemein läßt sich 
sagen, daß Makros zu längeren, aber 
schnelleren Programmen führen, wäh- 
rend Unterprogramm-Aufrufe kürzere 
und langsamere Programme bewirken. 
Es gilt, stets einen Kompromiß zwi- 
schen beiden Extremen zu finden. 

Geben Sie bei Makrodefinitionen 
Kommentare an, die mit einem Strich- 
punkt eingeleitet werden, setzt der 
Assembler die Kommentare bei allen 
Makroaufrufen mit ein. Das belastet 
natürlich den Speicher sehr: 

AUSGABE MACRO ; Zeichenausgabe 
WI c,2 
CALL BDOS 
ENDM 

Sollen Kommentare nur bei der 
Makrodefinition gelistet werden, nicht 
aber bei allen aufgelösten Makros, 
beginnen Sie mit zwei Strichpunkten: 
AUSGABE MACRO ;; Zeichenausgabe 


Wenn Sie innerhalb einer Makrodefi- 
nition Sprungmarken verwenden, ist es 
sinnvoll, diese als lokal zu erklären, um 
Überschneidungen zu vermeiden. 
Listen Sie diese Labels im Kopf des 
Makros zusammen mit dem Schlüssel- 
wort »LOCAL«. 

AUSGABE MACRO 
LOCAL AUFRUF 
WI (2 
AUFRUF CALL BDOS 
ENDM 
Damit Sie wirklich etwas von den 
Makros haben, finden Sie hier eine 
kleine Sammlung Z80-ähnlicher Be- 
fehle: 
LDIR MACRO 
DB OEDH,OBOH 
ENDM 
MACRO 
DB OEDH, OB8H 
ENDM 
LDI MACRO 
DB OEDH,OAOH 
ENDM 

LDD MACRO 
DB OEDH,OASH 
ENDM 

NEG MACRO 
DB OEDH,044H 
ENDM 


LDDR 
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Diskette für das ASM-File 

Diskette für die HEX-Datei (bei RMAC 
statt dessen »R«) 

Diskette für die LIB-Dateien 

Ausgabe der Makros in die PRN-Datei 
Diskette für die PRN-Datei 

‚Ausgabe der lokalen Symbole 
Diskette für die SYM-Datei 

Listing von Pass 1 

Zeilen aus der Makrobibliothek 
auflisten 

Makrozeilen nicht auflisten 
‚Symboltabelle an das Ende der PRN- 
Datei schreiben 

‚Ausgabe der Symboltabelle unter- 
drücken 

Alle Makrozeilen auflisten 

Auflistung von Makrozeilen 
unterbinden 

Auflistung der lokalen Symbole in 
Makros 

Unterdrückung der Auflistung 
‚Auflistung der Datei während des 
First-pass 

Unterdrückung der Ausgabe 


Tabelle. Alle Mac- und RMac- 
uf einen Blick 


OEDH, 045H 


OEDH, O4DH 


RLD 
OEDH,O6FH 
ENDM 
‚Sie können diese Makros nun wie die 
bekannten Z80-Befehle verwenden. 
LDIR 
LDDR 
LDI 
LDD 
NEG 
RETN 
RETI 
RRD 
RLD 
Um beispielsweise einen Speicher- 
block in 8080-Assembler zu kopieren, 
_ müssen Sie folgendes programmieren. 
LXI D,4000H 
LXI H,8000H 
IXI B,0300H 
IDIR 
Das ist natürlich etwas ungewöhnlich, 
aber es klappt. 
‚Sie können sich auch eine große Pro- 
grammbibliothek aus Makros aufbauen, 
_ zum Beispiel mit einer Reihe verschie- 
‚dener BDOS- und BIOS-Funktionen. 
s Schöne an den Makros ist ja, daß 


sie nur dann in den Programmcode ein- 
gebunden werden, wenn sie wirklich 
benötigt werden. So müssen Sie aus 
Ihrer Makrobibliothek nicht mühsam die 
entsprechenden Teile extrahieren. 
Makrobibliotheken sollten Sie mit der 
Extension ».LIB« versehen, zum Bei- 
spiel »Z80.L1B«, »DISKUTIL.LIB« oder 
»MCODE.LIB«. Eingebunden werden 
sie in den Quellcode über den Befehl 
»MACLIB«: 

MACLIB 280 

MACLIB DISKUTIL 

MACLIB MCODE 

Makros ohne Parameter aufzurufen, 
ist eher umständlich. Denn diese müs- 
sen vorher in Register oder Speicher- 
stellen geladen werden - nicht gerade 
ein Muster an Flexibilität. 

Doch die Makros von MAC und 
RMAC sind so leistungsfähig, daß sie 
auch Parameter verarbeiten. Sie geben 
hinter dem Schlüsselwort »MACRO« 
sogenannte formale Parameter an, 
deren Zahlmit der Anzahl der Parameter 
im Makroaufruf übereinstimmen sollte: 
ZEICHEN N 

0,2 
E,N 
BDOS 


ZEICHEN 72 

ZEICHEN 65 

ZEICHEN 80 

ZEICHEN 80 

ZEICHEN 89 

IMP 0 

Es handelt sich bei Makros um ein- 

faches Einsetzen von Zeichenketten. 
Also können Sie statt der Zahlen auch 
Einzelbuchstaben in Apostrophen ein- 
geben: 
ZEICHEN MACRO N 
MI 6,2 
MVI E,N 
CALL BDOS 
ENDM 


ZEICHEN 'H' 
ZEICHEN 'A' 
ZEICHEN 'P!' 
ZEICHEN 'P! 
ZEICHEN 'Y'! 
JMP 0 
Auf diese Art können Sie dem Makro 
eine größere Anzahl von Parametern 
übermitteln. Trennen Sie diese durch 
Kommata ab; 
ZPRINT 'A','B',23, 'TEXT' ,CR,LF+3 
RMAC besitzt einige zusätzliche 
Direktiven, die zur Unterstützung der 
modularen Programmentwicklung die- 
nen. ASEG weist den Assembler an, 
absoluten Programmcode zu erzeu- 
gen, dessen Adresse ORG festlegt: 
<label> ASEG 
CSEG sagt RMAC.COM, den »Code 
Location Counter« zu verwenden. Die 


Speicheradressen werden dann e 
vom Programmbinder LINK-: 80 
(LINK.COM) bestimmt: 

<label> CSEG ] 

DSEG teilt dem Assembler mit, den 
»Data Location Counter« zu benutzen. 
Die absoluten Speicheradressen legt 
dann der Linker fest: 
<label> DSEG 

PUBLIC erklärt ein Label als »allge- 
mein«. Ein solches Label erscheint im 
REL-Code und ist von anderen 
Programm-Modulen über EXTRN zu 
bestimmen: 

PUBLIC label 
Zum Beispiel: PUBLIC UPCASE, 
LOCASE 

EXTRN definiert eine Sprungmarke in 
der Art, daß der Linker sie aus einem 
anderen Programm-Modul heraus- 
sucht. Dies geschieht nur mit PUBLIC- 
Labels. So steht beispielsweise hu" 
CODE1.ASM: 
START WI 

RET 
PUBLIC START 
END 
Und in CODE2.ASM: 
EXTRN START 
JMP START 

Die beiden Dateien werden von 

RMAGC getrennt assembliert: 

A>RMAC CODE1 

A>RMAC CODE2 

Erst der Linker verbindet sie: 
A>LINK CODE1,CODE2 

Der Aufruf erfolgt 
CODE1.COM: 

A>CODEL 3 

Bei der Programmdokumentation 
besonders wertvoll ist ein detailliertes 
undübersichtliches Listing. XREFCOM 
kann da helfen. Es produziert aus den 
von MAC und RMAC erzeugten Dateien 
»,PRN« und ».SYM« eine neue mit der 
Extension ».XRF«: 

A>MAC CLS 
A>XREF CLS 

In der XRF-Datei finden Sie ein Listing 
des Programms, versehen mit Zeilen- 
nummern. Am Ende stehen dann alle 
verwendeten Labels und Symbole mit 
ihrem Wert, der Zeile, in der sie definiert 
sind, und allen Zeilen, in denen sieauf- 
gerufen werden: ” 
BDOS 0005 
cLS 010E 
OUTPUT 0009 
TPA 0100 3# 

WARM 0000 2# 

Das Doppelkreuz bezeichnet die 
Zeile der Definition. 

Um die Ausgabe von der Diskette auf 
den Drucker umzulenken, können Sie 
den $P-Schalter angeben: 

A>XREF CLS $P 

Hier schließen wir unsere Beschrei- 

bung der Assembler und Linker ab. N 
(Martin Kotul 
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9 
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SID - der 
freundliche Helfer 


Wenn Sie bereits unter CP/M 2.2 
programmiert haben, wird Ihnen 
der Systemdebugger DDT be- 
kannt sein. Er erfuhr in der CP/M- 
Version 3.0 oder auch CP/M Plus 
weitere Verbesserungen und 
heißt nun SID.COM. 


ID steht für »Symbolic Instruction 

Debugger«. Das stellt auch 

schon seine bedeutendste Ei- 
genschaft heraus: Er kann mit Symbo- 
len arbeiten. Doch zuerst zu den »nor- 
malen« Fähigkeiten. Gestartet wird SID 
durch Eingabe der drei Buchstaben 
»SID«, wahlweise mit einem angehäng- 
ten Dateinamen. 

Die Befehle setzen sich stets aus 
einem oder zwei Buchstaben zusam- 
men. Ihnen können verschiedene Zah- 
lenwerte folgen. Zu den normalen Zah- 
len - also solche ohne spezielles Kenn- 
zeichen - zählen bei SIDCOM hexade- 
zimale Werte, zum Beispiel 40, 4F, 
3FAC oder FF3E hex. Im Gegensatz zu 
MAC und RMAC verlangt SID bei nicht 
vierstelligen Zahlen keine führenden 
Nullen, Dezimale Zahlen sind ausdrück- 
lich mit einem Doppelkreuz zu kenn- 
zeichnen, etwa #30, #40 oder 
#255. Sogar Zeichensymbole und 
Buchstaben können Sie direkt ange- 
ben, sofern Sie diese mit Apostrophen 
umgeben: 'A, 'BC}, '* =‘ "“. Auch Anfüh- 
rungszeichen in Zeichenketten bleiben 
somit erhalten ('"'). 

Die Befehle des SID sind nicht kompli- 
ziert, aber sehr vielseitig. 

»A« startet den eingebauten Zeilen- 
assembler. Dieser versteht alle 
8080-Mnemonics. Direktiven oder 
Makros verarbeitet er nicht. Für kleine 
Codierungsaufgaben und zum Abän- 
dern kurzer Programmteile eignet er 
sich aber ohne weiteres. 

Um beispielsweise ein Programm an 
der Adresse 0100 hex einzugeben, tip- 
pen Sie: 

#A0100 

0100 MI C,9 
0102 IXI D,0300 
0105 CALL 5 

0108 RST 6 

0109 » 

Durch Eingabe eines Punktes - oder 
einer Leerzeile - gelangen Sie ins 
Hauptprogramm zurück. Den Restart 6 
belegt SID in der Weise, daß Sie im 


Hauptprogramm weiter arbeiten kön- 
nen. In diesem kleinen Programm hätte 
RET dieselbe Bedeutung. Ist das aufge- 
rufene Programm aber ein Unterpro- 
gramm, führt Sie RET nur an dessen 
übergeordnete Aufrufstelle, nicht aber 
in SID zurück. 

Eine Form des Assembleraufrufs 
erfordert keine Adreßangabe. Der 
Assembler benutzt dann die zuletzt bei 
Trace, Auflistung von Speicheraus- 
zügen oder Assemblereingaben ver- 
wendete Adresse. Haben Sie danach 
noch keine weiteren Befehle eingege- 
ben, fährt der Assembler in unserem 
Beispiel bei 0109 hex fort: 
#A 
0109 JMP O 
0100 . 

Sollte einmal der Speicherplatz 
knapp werden, können Sie den Assem- 
bler und Disassembler aus dem Monitor 
»herauswerfen«. Dazu stellen Sie dem 
»A« ein Minuszeichen voran: 

#-a 
#A0100 
? 

»C« ruft ein Unterprogramm an einer 
angegebene Adresse auf. 

Wollen Sie das BC-Register mit 
einem bestimmten Wert versehen, hän- 
gen Sie ihn - durch ein Komma abge- 
trennt - an den C-Befehl an: 
#0C0100,3FAC 

Und auch das DE-Register kann mit 
einem 16-Bit-Wert geladen werden: 
#0100,3FAC,DEDE 

»D« steht für »Dump« oder auch »Dis- 
play Memory«. Der D-Befehl listet Spei- 
cherinhalte hexadezimal und als ASCII- 
Zeichen auf, Sie können ihn ohne Para- 
meter verwenden; dann gibt er die auf 
die zuletzt verwendete Adresse folgen- 
den 192 Byte aus. Entweder mit Start 
oder mit Start- und Endadresse gren- 
zen Sie Speicherbereiche, die aufzu- 
listen sind, ein: 

#D0300 

#D#4096 
#DFF23,FFFF 
#D'AB' ‚34+#0200 

Sogar einfache Berechnungen, wie 
Addition und Subtraktion, sind bei 
Adressen mit SID.COM zulässig. 

Gefällt Ihnen die »Zerstückelung« in 
einzelne Bytes nicht, können Sie 
SID.COM anweisen, 16-Bit-Adreßworte 
auszugeben. Dazu hängen Sie an das 
»D« für »Display Memory« ein »We« für 


»Words« an. Alle Optionen bleiben, 
erhalten: 

#DW 

#DWO300 

#DWO400, 'AA'+ #24 

Im Wortformat vertauscht SID 8080- 
und Z80-gemäß das Low- und High- 
byte. Steht im »Byteformat» der Code 
»03 CA« im Speicher, ändert er sich bei 
Words in »CAO&«. 

»F« füllt einen Speicherbereich mit 
einem speziellen Wert. Dieses Kom- 
mando verlangt stets drei Parameter: 
die Start- und die Endadresse und das 
einzusetzende Byte. Um in den Spei- 
cher von 1000 bis 3000 hex den Wert 
255 schreiben, geben Sie diesen Auf- 
trag an SID: 

#F1000,3000, #255 

Aber Vorsicht bei der Anwendung 
des F-Befehls, denn allzuleicht ist das 
zu untersuchende Programm oder 
SID.COM selbst überschrieben! Dann 
müssen Sie CP/M neu starten, und die 
ganze Arbeit beginnt wieder von vorne. 

»G« (Go) ruft eine Maschinencode- 
Routine an der gegebenen Adresse 
auf. Zum Beispiel können Sie das vorhin 
von Ihnen eingetippte Maschinencode- 
Programm auch mit »G« aufrufen: 
#G0100 

Der Monitor meldet sich mit der letz- 
ten ausgeführten Adresse zurück: 
*0108 

‚Sie können beim G-Befehl einen oder 
zwei Breakpoints angeben. Dort stoppt 
die Programmausführung und der Com- 
puter gibt die Kontrolle an den Monitor 
zurück. 

Wollen Sie zum Beispiel nur die 
Befehle an den Adressen 0100 bis 
0105 hex ausführen. Tippen Sie ein: 
#G0100,0105 

Achten Sie aber darauf, daß an 
der Stoppadresse ein ausführbarer 
Maschinencode-Befehl steht. An der 
Adresse 0105 hex finden Sie CD, den 
Code für CALL nnnn. Geben Sie hinge- 
gen 0106 hex als Breakpoint an, steigt 
der Computer aus oder stoppt erst viel 
später, weil an 0106 hex der Befehl ja 
nicht beginnt. 

Mit »H« (Hexadecimal Arithmetics) 
können Sie einfache Berechnungen 
durchführen lassen. Sie legen einen 
oder zwei Operanden fest, und der 
Computer addiert und subtrahiert 
beide: 

#H9,6 


ge ———— 


Eee ee 


000F 0003 

Da aber statt der Operanden auch 
Formeln zugelassen sind, ist die fol- 
gende Darstellungsform besser zu 
gebrauchen: 

#H9+6-3241+34-96 
CD6C #52588 

Auch zur Umrechnung zwischen den 
Zahlensystemen kann man »H« aufru- 
fen: 

#H34 

0034 #52 '4' 
#H'a' 

0041 #65 A! 
#H#88 

0058 #88 'X' 

Mit der »I«-Anweisung (Simulate Input 
Line) können Sie dem getesteten 
CP/M-Programm eine Befehlszeile vor- 
geben. Eine normale Befehlszeile für 
MAC.COM sieht beispielsweise so aus: 
A>MAC RIB $AB HZ PX 

Wenn Sie nun MAC von SID aus star- 
ten, müssen Sie dem Programm irgend- 
wie »vormachen«, Sie hätten diese 
Parameter eingegeben. Dazu dient »I«: 
#1 RIB $AB HZ PX 

Der normale CCP-Kommandopuffer 
liegt zwischen 0080 und OOFF hex. Mit 
»D« können Sie sich nach dem I-Befehl 
den Pufferspeicher ansehen: 
#D0080,00FF 

Eine weitere Verwendung findet das 
‚Kommando beim R-Befehl, der 
Dateien in den Speicher einliest. 

»L« ruft den integrierten Disassem- 
bler auf. Er listet der Reihe nach die 
8080-Mnemonics an den gegebenen 
Speicheradressen: 

#0100,0108 

0100 MVI C,09 

0102 LXI D,0300 

0105 CALL 0005 

0108 RST 06 

0109 

Befehle wie »EX AF,AF'«, die nicht zu 
den 8080-Mnemonics gehören, zeigt 
der Disassembler als »??= 08«. 

Mit »M« kopieren Sie Speicherblöcke. 
Dazu nennen Sie dem Debugger die 
erste Quelladresse, die letzte Quell- 
adresse und die Zieladresse. Wollen 
Sie den Speicherinhalt der Adressen 
0100 bis 0AOO hex nach 1100 bis 
1A00 hex kopieren, schreiben Sie: 
#M0100,0A00,1100 

Diese Monitorroutine von SID ist so 
konzipiert, daß auch sich überlappende 
Speicherbereiche korrekt übertragen 
werden. 

Der »P«-Befehl setzt den sogenann- 
ten »Pass Counter«. Dieser zählt bei 
Programmen, die im Einzelschrittmo- 
dus abgearbeitet werden, wie häufig 
ein Programmpunkt aufgerufen wird. 
Dazu wird ein Zähler von 255 bis 1 her- 
unterzählt. Sobald der Wert 1 erreicht 
ist, verwandelt sich der Passpoint in 
einen echten Breakpoint. 


KOMPUTE! 


#P0140 setzt einen Passpoint an 
die Adresse 0140 hex. Der Zähler ist 1. 
#P0140,34 legt auf die Adresse 0140 
hex einen Passpoint mit dem Zählerwert 
34 hex. #Plistetalle verwendeten Pas- 
spoints zusammen mit dem jeweiligen 
Zähler auf. #-P0140 entfernt den Pas- 
spoint von der Adresse 0140 hex wie- 
der. 

#-P löscht alle Passpoints. 

Der »R«-Befehl (Read File) dient 
dazu, eine mit »!« angewählte Datei in 
den Speicher einzulesen. 

#R liest die Datei direkt in den Spei- 
cher. 

#R0100 bestimmt einen Versatz von 
0100 hex Bytes. 

»S« (Set Memory) zeigt den Inhalt von 
Speicherstellen an und gibt Ihnen Gele- 
genheit, diesen abzuändern: 

#50100 

0100 01 FF 
0101 03 'Aa' 
0102 02 #255 
0103 02 . 

Hier geben Sie FF, A, #255 und den 
Punkt an. Die übrigen Texte sind 
Systemmeldungen. 

Eine Erweiterung erfährt »Set 
Memory« durch die Wort-Option. »SW« 
ändert 16-Bit-Werte ab: 

#SW0200 

0200 3454 FFFF 
0202 4331 #32767 
0204 3212 "AL! 
0206 6431 . 

FFFF, #32767, ‘Al: und der Punkt 
stammen in diesem Dialog vom Benut- 
zer. 

Eine Bearbeitung von Maschinen- 
code-Programmen in Einzelschritten 
ermöglicht »T« - die Trace-Option. 

Wenn Sie »T20« eingeben, arbeitet 
der Computer 20 hex (32) Programm- 
schritte ab. Sie sehen dann, wie gleich- 
zeitig Texte ausgegeben werden und 
das Maschinencode-Programm ab- 
läuft. Die »Registerleiste« zeigt den 
Inhalt der CPU-Register, den Wert des 
Programmzählers und den Maschinen- 
code an der aktuellen Adresse. Sind 
Bits im Flag-Register gesetzt, erschei- 
nen die Namen der Flag-Bits statt der 
Bindestriche, zum Beispiel CZ-I. Es 
gelten folgende Abkürzungen: 
© - Carry-Flag 
Z - Zero-Flag 
M- Minus-Flag 
E - Even-Parity-Flag 
I = Interdigit-Flag 

»T«e ohne Parameter arbeitet einen 
Programmschritt ab und übergibt dann 
die Kontrolle wieder an den Debugger. 
»In« führt »n« Maschinencode-Befehle 
aus und ruft danach SID.COM auf. 

Eine Spezialform des Tracings stellt 
TWedar, der sTrace without Calle. In die- 
sem Modus, in dem Sie beide T- 
Optionen anwenden können, wird nur 


das Hauptprogramm ge»trace«t. Unter- 
programme ruft der Computer normal 
auf, zeigt sie aber nicht an. So ist der 
Programmfluß besser zu verfolgen (Bild 


— A=00 B=0000 D=0000 H= 
0000 S=0100 P=0100 WI C,09 
. A=00 B=0000 D=0000 H= 
0000 S=0100 P=0102 LXI D,0300 
— A=00 B=0009 D=0300 H= 
0000 S=0100 P=0105 CALL 0005 
-Z--- A=00 B=0009 D=0300 H= 
0000 S=0100 P=0108 RST 06 

»U« (Untrace) arbeitet ähnlich dem 
Trace-Befehl. Im U-Modus wird aber die 
Registerleiste nur beim letzten Befehl 
angezeigt. So zerstört diese Form des 
Tracings nicht den Bildschirmaufbau. 
Erlaubt ist »U« (Ausführung eines 
Befehls), »Un« (Ausführung von n 
Befehlen), »UW« (ein Befehl, aber kein 
Tracing von Unterprogrammen) und 
»UWn« (n Befehle werden ausgeführt, 
Unterprogramme bleiben aber ausge- 
klammerrt). 

»X« haben Sie bereits verwendet, Es 
dient der Anzeige der Registerleiste 
sowie zur Änderung von Registerinhal- 
ten: 

#X zeigt die Registerinhalte und den 
gerade ausgeführten Maschinencode- 
Befehl an. #XA erlaubt, den Inhalt des 
Z80-Akkumulators abzuändern. Für die 
übrigen Register gelten folgende 
Befehlsaufrufe: 

#XB - BC-Register 
#XD - DE-Register 
#XH - HL-Register 
#XS - SP-Register 
#XP - Programmzähler 

Auch die einzelnen Flag-Bits kann 
man direkt auslesen und setzen bezie- 
hungsweise löschen: 

#XC - Carry-Flag 

#XZ - Zero-Flag 

#XM - Minus-Flag 
#XE - Even-Parity-Flag 
#XI - Interdigit-Flag 

RMAC und MAC produzieren nicht 
nur HEX- und REL-Dateien, sondern 
auch SYM-Symboltabellen. Sie können 
diese zusammen mit dem Objektcode- 
Programm in SID laden, was die Arbeit 
sehr vereinfacht. 

Die Meldung »SYMBOLS« sagt aus, 
daß SID.COM die Symboltabelle korrekt 
geladen hat und nun mit ihr arbeiten 
kann. »NEXT« ist die erste freie Spei- 
cheradresse. Demnach ist der Bereich 
zwischen 0100 und 0180 hex belegt. 
PC zeigt den aktuellen Stand des Pro- 
grammzählers. END gibt dieobere Spei- 
chergrenze an. 

Der Debugger wartet nun auf Ihre Ein- 
gaben. Beginnen Sie damit, ihn die voll- 
ständige Symboltabelle auflisten zu las- 
sen. Tippen Sie dazu einfach den H- 
Befehl ohne Parameter ein: 
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#H 
0005 BDOS 
O10E CLS 
0009 OUTPUT 
0100 TPA 
0000 WARM 
Überall wo Sie bisher nur hexadezi- 
male oder dezimale Konstanten ange- 
geben haben, »versteht« SID.COM jetzt 
auch Symbole. Machen wir die Probe 
aufs Exempel: Ab dem Label CLS wurde 
in CLS.COM der String abgelegt, der 
unter CP/M Plus den Bildschirm löscht. 
Er ist vier Byte lang, nämlich 
ESC/E/ESC/H. »Display Memory« gibt 
ihn aus: 
#D.CLS, .CLS+4 
O10E: 1B 45 1B 48 24 .E.H$ 
Um den Wert eines Symbols zu erhal- 
ten, stellen Sie ihm also einen Punkt 
voran. Weitere Beispiele für die Benut- 
zung der Symbole: 
#A.TPA 
#XP 
P=???? .TPA 
#D.BDOS 
Der Disassembler fügt automatisch 
die Symbole an den richtigen Stellen in 
den mnemonischen Code ein: 
#10100,010D 
TPA: 


0100 LXI SP,0100 .TPA 


0103 MI c,09 

0105 IXI D,O10E „cLS 
0108 CALL 0005 „BDOS 
010B JMP 0000 „WARM 
cLS: 

010E 


So werden auch Disassembler-Li- 
stings gut lesbar. 

Falls Sie die Labels allerdings beim 
Disassemblieren stören, setzen Sie ein- 
fach vor »L« ein Minuszeichen. Der 
Disassembler unterdrückt dann die 
Symbole. 

Neben der »Punkt-Einleitung« (».TPAs«, 
».BDOS«) versteht SIDCOMnoch AT (), 
den Klammeraffen, sowie das Gleich- 
heitszeichen »=«. 

Das AT-Sign repräsentiert den 16-Bit- 
Wert, der an der Adresse des Symbols 
steht. Entspricht TPA dem Wert 0100 
hex und steht in 0100 hex die Zahl 3F 
hex sowie in 0101 hex der Wert 46 hex, 
so erhalten Sie mit @TPA eben 463F 
hex. »=» macht das gleiche für 
Acht-Bit-Zahlen: 

#H=TPA 
003F #63 '?' 

SID.COM besitzt keinen Befehl, der 
das Speichern von Daten aus dem 
Debugger heraus erlaubt. Dazu hielt 
CPI/M 2.2 den residenten Befehl SAVE 
bereit, der in CP/M Plus fehlt. Ihn 


ersetzt jetzt auf der Systemdiskette die 
Datei SAVE.COM. Und so arbeiten Sie 
damit: Sie starten SAVE vor dem 
Debugger-Lauf durch Eingabe des 
Dateinamens ohne Parameter: 
A>SAVE 
Jetzt können Sie SID aktivieren: 
A>SID MAC.COM 

In der Titelzeile gibt SID unter »NEXT« 
die Programmlänge an. Das Lowbyte 
der Zahl ist immer Null. Merken Sie sich 
diese hexadezimale Zahl. Sie können 
jetzt am geladenen Programm die 
gewünschten Änderungen durchfüh- 
ren. Wenn Sie damit fertigsind, drücken 
Sie CTRL-C, worauf SAVE.COM sich 
automatisch reaktiviert: 
CP/M 3 SAVE - Version 3.0 
Enter file (type RETURN to exit): 
MAC2.COM 

Hier will SAVE also den Dateinamen 
des zu speichernden Files wissen. Um 
SAVE.COM zu verlassen, drücken Sie 
nur RETURN oder ENTER. 
Beginning hex address: 0100 
Ending hex address: 2F00 

Das sind die beiden Adreßangaben, 
die den Anfang und das Ende der Datei 
angeben. Das Sichern sollte vor jedem 
Programmstart geschehen, denn man 
weiß ja nie... 

(Martin Kotulla/Udo Reetz) 


Deutsche Sprache, 
schwere Sprache 


Deutsche Sonderzeichen unter CP/M auf allen drei 
Schneider-Computern bietet »Deutscher Zeichen- 
satz«. Die Vortex-Speichererweiterung darf dabei 
eingebaut bleiben und auch CP/M Plus ist erlaubt. 


CPC 464 oder den 664 sind schon lange ein »alter 

Hute. Anders ist dies unter CP/M Plus auf dem 6128 
oder nach Einbau einer Speicherkarte von Vortex. Denn in 
solch einem Fall ändern sich die Speicheradressen und die 
meisten vorgestellten Routinen arbeiten dann inkorrekt. 
»Deutscher Zeichensatz« ist ein universelles Programm für 
alle Schneider-Computer und fast für jede Ausbaustufe 
geeignet. 

Deutsche Sonderzeichen mit Locomotiv-Basic zu definie- 
ren, istsehr einfach. Der Befehl »SYMBOL AFTER 64«berei- 
tet den Computer auf die Definition der Sonderzeichen vor. 
Dazu werden die Bitmustertabellen, die für das Aussehen der 
Zeichen zuständig sind, ins RAM kopiert. Mit SYMBOL 
AFTER 64 beschränken wir uns dabei auf die nur notwendi- 
gen Zeichen mit den Nummern 64 bis 255. Die Zeichensatz- 
tabelle belegt dann 1,5 KByte Speicherplatz. Unter CP/M 2.2 
gibt es intern eine Entsprechung des SYMBOL AFTER- 
Befehls. Diese Routine eignet sich aber nicht für unseren 
Zweck, denn in der TPA steht nirgends genügend Speicher- 


D::: Sonderzeichen unter CP/M 2.2 für den 


platz zur Verfügung. Das heißt, nirgendwo ist ein so großes 
Stück unbelegter und vor Überschreiben geschützter RAM- 
Bereich vorhanden. »Deutscher Zeichensatz« arbeitet des- 
halb mit einem Trick. Immer, wenn das Betriebssystem ein 
anderes Zeichen als ein Steuerzeichen auf dem Bildschirm 
ausgeben will, wird die Routine »’XT WRITE CHAR« an der 
Adresse BDD3 hex aufgerufen. An dieser Adresse steht ein 
Sprungvektor zur eigentlichen Zeichenausgaberoutine. Da 
dieser Befehl im RAM des Computers steht, kann durch eine 
Änderung eine »Umleitung« eingeschoben werden. Bevor 
die eigentliche Zeichenausgaberoutine aufgerufen wird, läuft 
somit immer ein Vorprogramm ab. 

Dieses Vorprogramm testet, ob ein deutscher Umlaut aus- 
gegeben werden soll. Wenn ja, wird die interne Nummer des 
Umlautes in einen Wert zwischen 247 und 255 umgerech- 
net. Danach arbeitet das Programm die ursprüngliche Aus- 
gaberoutine ab. Durch diesen Trick braucht die Zeichensatz- 
tabelle im RAM nur noch die Zeichen mit den Nummern 247 
bis 255 umfassen. Statt 1,5 KByte belegt es nur noch 72 
Byte. Von der »Benutzeroberfläche« aus betrachtet (also 
wenn Sie eine Taste drücken), besitzen die deutschen 
Umlaute aber immer noch die ursprünglichen Standardnum- 
mern. 

Unter CP/M 2.2 ist auf allen drei Schneider-Computern der 
Speicherbereich von BEBF bis BFFF hex dem BIOS- 
Maschinenstapel vorbehalten. Tatsächlich werden aber nur 
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eine Handvoll Bytes am Ende dieses Bereiches benutzt. Der 
Rest am Anfang des Stapels ist groß genug, um die Zeichen- 
satztabelle samt »Ausgabeumleitung« aufzunehmen. Experi- 
mente mit dem Disketten-Controller von Vortex zeigen aber, 
daß - anders als bei dem Controller von Schneider - einige 
zusätzliche Bytes hinter der Adresse BEBE hex notwendig 
sind. Damit unsere Routine in allen Ausbaustufen funktio- 
niert, beginnt sie deshalb erst nach einem gewissen Sicher- 
heitsabstand. Das Programm »DEUTSCH.COM« (die CP/M- 
Routine) besteht aus zwei Teilen. In dem Teil ab BEC8 hex 
steht die eigentliche Zeichenausgaberoutine. Der andere 
regelt die Interpretation, ob der Zeichensatz ein- oder ausge- 
schaltet werden soll, das Übertragen der neuen Ausgaberou- 
tine in den Zielbereich und das korrekte Einbinden ins 
Betriebssystem. Beim Einbinden werden die versionsabhän- 
gigen Adressen angepaßt, so daß das Programm auf allen 
drei Schneider-Computern läuft. Allein die Konstante »base« 
legt fest, welche Adresse die Ausgaberoutine endgültig auf- 
nimmt. Wenn Sie den Bereich ab BEBF hex schon anderwei- 
tig vergeben haben, können Sie damit die Routine verschie- 
ben, beispielsweise in den Sound- oder Kassettenheader- 
Puffer. 

Mit einer Vortex-Speichererweiterung ist der passende 
RAM-Bereich schwerer zu bestimmen. Die neue Zeichen- 
ausgaberoutine wird nämlich nur beachtet, wenn sie im 
System-RAM des Computers steht. Normalerweise ist in die- 
ser Ausbaustufe unter CP/M-Modus im Bereich von 8000 bis 
FFFF hex nur das Erweiterungs-RAM sichtbar. Vor der Über- 
tragung der Ausgaberoutine muß also das Erweiterungs- 
RAM abgeschaltet und hinterher wieder eingeschaltet wer- 
den. Das gelingt ganz einfach mit dem Maschinencode »OUT 
(c),c«. Die »OUT«-Befehle sind so eingesetzt, daß es nichts 
schadet, wenn keine Erweiterung eingebaut oder diese nicht 
aktiviert ist. Eine spezielle Abfrage auf eine Erweiterung fällt 
also weg. Auch beim CPC 6128, der serienmäßig 128 KByte 
RAM besitzt, haben die »OUT«-Befehle keine negativen Aus- 
wirkungen. 

Damit ein Interrupt »nicht ins Leere« geht, benötigt man 
eine ganz bestimmte ROM/RAM-Konfiguration. Um Schwie- 
rigkeiten zu vermeiden, sind diese, solange das Erweite- 
rungs-RAM abgeschaltet ist, gesperrt. Diese kurze Sperrzeit 
der Tastaturabfrage fällt nicht auf, da die Initialisierung der 
neuen Zeichenausgaberoutine nur eine halbe Millisekunde 
dauert. 


»DEUTSCH.COM« 
ohne Probleme 


Wenn Sie sich in der Maschinensprache des Z80 ausken- 
nen, benutzen Sie sicher das Assemblerlisting (Listing 1) zur 
Eingabe. Die Zeilennummern dienen nur der Übersicht und 
können weggelassen werden. 

Haben Sie im Umgang mit Assembler keine Erfahrung, 
dann geben Sie den Basic-Lader aus Listing 2 ein und spei- 
chern ihn auf einer Diskette. Wenn Sie das Programm mit 
»RUN« starten, wird die Datei »DEUTSCH.COM« auf der Dis- 
kette angelegt. Bei der Meldung »Alles O.K.« steht das 
eigentliche Zeichensatz-Programm dann korrekt auf der Dis- 
kette. Unter CP/M schaltet »A>DEUTSCH EIN« und 
»A>DEUTSCH AUS« den deutschen Zeichensatz ein und 
aus. Das Programm aus Listing 1 brauchen Sie jetzt nicht 
mehr. Aber bewahren Sie es für den Fall, daß Sie beim Eintip- 
pen einen Fehler gemacht haben, sicherheitshalber noch 
auf. Wenn schon beim ersten Lauf des Programms die Mel- 
dung Tippfehler in Zeile x« auftritt, müssen Sie diese Zeile 
ausbessern. Auch wenn das Basic-Programm mit einer Feh- 
lermeldung abbricht, befindet sich eine Datei mit dem Namen 
»DEUTSCH.COM« auf der Diskette. Diese ist aber nicht ein- 


satzfähig, also löschen. Beachten Sie, daß das Basic- 

Programm nicht alle Eingabefehler entdeckt. Zu diesen Feh- 

lern zählen, wenn: 

- in einer Zeile zwei benachbarte Zahlen ausgetauscht 
werden (merkt nur Explora) 

- eine ganze Zeile vergessen wurde 

- zwei aufeinanderfolgende Zeilen vertauscht wurden. 

Die Anordnung der Buchstaben auf der Tastatur und das 
‚Abbild der Buchstaben auf dem Bildschirm ist völlig unabhän- 
gig voneinander. Das Zeichensatzprogramm verändert zwar 
das Aussehen der Zeichen »@[\]{1} * in »sÄÖUäöüs«, deren 
Anordnung auf der Tastatur wird aber nicht beeinflußt. Das 
»B« erreichen Sie auf der normalen ASCii-Tastatur mit 
»CTRL-2«, das »ä« mit »SHIFT-[«, das »ü« mit »SHIFT-]« und 
das »ö« mit »@«. Die großen Buchstaben der deutschen 
Umlaute liegen jeweils in der anderen Ebene der entspre- 
chenden Tasten. Zum Anlegen der deutschen DIN-Tastatur 
müssen Sie also zusätzlich das Programm »SETUPCOM« 
(auf der Schneider-Systemdiskette) beziehungsweise 
»INSTALL.COM« (bei Vortex) bemühen. 

Einen Vorschlag für eine Tastenanordnung, die der DIN- 
Tastatur entspricht, zeigt die Tabelle. Für jede zu ändernde 
Taste ist die Tastennummer dezimal und hexadezimal und die 
Belegung dezimal, hexadezimal undim Zeichen gegeben. So 
können Sie sich die für Ihre System-Routine notwendigen 
Angaben leicht heraussuchen. Tasten, die nicht geändert 
werden müssen, sind in dieser Tabelle nicht vermerkt. 

Unbelegte Tasten haben übrigens nicht den Code 0, son- 
dern 255. Tasten, die einen Wert zwischen 128 und 159 auf- 
weisen, werden als Funktionstasten interpretiert. So können 
die Funktionstasten auch auf andere Tasten als den Zehner- 
block der Tastatur gelegt werden. Die CLR-Taste besitzt bei 
uns den Code für »CTRL-H« (Backstep). Unter CP/M können 
Sie dann diese Taste zum Löschen benutzen. Die DEL-Taste 
unterstützt nämlich nicht alle Programme. Die ESC-Taste 
wurde mit dem Code für den Standard-ESC versehen. Nur 
auf der Taste CTRL-ESC bleibt der ursprüngliche - nicht stan- 
dardgemäße - Wert erhalten. So lassen sich auch Pro- 
gramme bedienen, die speziell für die Schneider-Computer 
entwickelt wurden. 

Die deutschen Sonderzeichen werden beim Lesen vom 
Bildschirm und bei der Ausgabe in der Entsprechung des 
Basic-Zeichenausgabemodus »TAG« nicht erkannt. Unter 
CP/M kommen diese Routinen aber so gut wie nie zur Anwen- 
dung, so daß dies keine Einschränkung darstellt. 


(Helmut Tischer/hg) 
Tasten- 
Belegung ] 
Taste normal Taste und SHIFT Taste und CTRL 
Hex DezHex Dez Zeichen Hex Dez Zeichen Hex Dez Zeichen 
0 1508 8 "HieS) 08 8 HiBS) 08 8 HIBS) 
„ 128 43 * 2A 42 =” FF 255 (frei) 
3 19 23 35 * 27 39 FF 255 (frei) 
16 22 3C 60 < 3E 62 > FF 255 (frei) 
18 24 5E 94 ie 60 96 » 1E 30 (RS) 
9 25 7E 126 SF 8 ? (unverändert) 
1A 26 7D 125 I} 5D 93 ] 1D 29 168) 
ıC 28 7B 123 I 53 9 t 1B 27 IESC) 
1D 29 7C 124 l sc 9 \ 1C 28 "\FS) 
1iE 30 2D 45 - SF 95 a ir 31 (US) 
Fr 3 (unverändert) 3A 58 (unverändert) 
20 32 (unverändert) 3D 61 - FF 255 (frei) 
27 39 (unverändert) 38 59 H (unverändert) 
29 4 (unverändert) 2F 47 4 (unverändert) 
2B 43 7A 172 z 5A 90 zZ 1A 26 "Z(SUB) 
39 57 (unverändert) 40 64 @ 00 0 "@(NUL) 
#4 65 (unverändert) (unverändert) FF 255 (frei) 
42 66 1B 27 IESC) ıB 27 IESC) (unverändert) 
a nz ım y 59 89 Y 19 25 "YIEM) | 


Tabelle. So legen Sie Ihre DIN-Tastatur an 
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;Deutscher Zeichensatz unter CP/M 2.2 für Schneider-Computer 
’ 


jeeest® Computertypabhängige Adressen 


#1g464 equ 4Ah 
mtabl4 equ @B294h 
mtabl&ö equ 8B734h 


;Lo-Byte Bildschirmausgabe 464 
;Zeiger auf Usermatrixflags 464 
;Usermatrixflags 664/6128 


jet Adressen sowohl für CPC464 als auch CPC664 


txtwrt equ @BDDSh 
oldstk equ 12004 
bdos equ aaası 
dma equ aasan 
type equ [5 


’ 
jest Endgültige Lage des Prog 
becen 


base equ 
org aıaan 


;TXT WRITE CHAR 
;lokaler Stapelbereich 


ramms bestimmen 
;hier unbelegter Speicherplatz 


F 
“...* Ersatz wichtiger Z80-Befehle 


dir 
outce 
exx 


;Z8@-Befehl ‘ldir‘ 
;28@-Befehl 'out (c),c' 
+Z880-Befehl 'exx' 


; 
zaumenet Texte und Fehlermeldungen 


jmp entry 


17,13,1@, ‘Deutscher Zeichensatz für Schneid' 

’er CPC 464/664/6128 unter CP/M 2.2, ',13,18,9 
it und ohne Vortex RAM-Erweiterung, ,13,18,7 
€ Schneider- oder Vortex-Floppydisc ‚15,18 
"ic) 3.05.1986 by Helmut Tischer” ‚13718,9,7 


“ Asternstraße 


13,18, "Ungültige 
"DEUTSCH BIN’ 


“0, D-8052 Monsburg, 
i 


ngabe: Erlaubt 


und DEUTSCH AUS’ 


13,1 "säou”äöüß'" Deutscher Zeichensatz 
a 


Aöu”aoüß‘" Deutscher Zeichensatz 


„13,18, °%° 


Lokalen Stapel initialisieren 


Ixi 

dad 

shld 

Ixi sp,oldstk-2 


Wählen, ob einschalten oder au! 


1xi d,strngi 
Ixi hidna 
mov 

inx 

epi 

inz 

inx 

mov 

inx 

pi 

jz 

cpi 

inz 


;Fehlermeldung: falsche Eingabe 
;Hier steht die Eingabe 


+1. Byte=Eingabelänge=4 
|Maifung anzeigen+Progranmende 


;Text 'EIN’ erkannt 


Text "AUS‘ erkannt 
}Meldung anzeigen+Programmende 


’ 
zemeeee Deutschen Zeichensatz abschalten 


’ 'Expansi ons-RAN im Bereich 
di 


db exx 
mov e,c 
mov a,c 
ani seh 
mov c,a 
dw outce 
mov ce 
db ex 


BORD-FFFF abschalten) 


;Interrupts sperren 
3Z8@-Befehl 'exx' 
ibe’ enthält Konfiguration 


sohne Erweiterung wirkungslos 
+Z80-Befehl ‘out (c),c’ 


jRagister © restaurieren 
;Z8@0-Befehl 'exx' 


;(Test, ob Zeichensatz schon ausgeschaltet) 


Ida txtwrt+2 
ani Bcah 


jz quitof 


;Hi-Adresse von TXT WRITE CHAR 
;Zeigt ins ROM oder RAM? 
;Zeigt schon ins ROM 


N 


shld txtwrt+1 


;Zeiger restaurieren 


;(Alte RAM- und ROM-Konfiguration wiederherstellen) 


quitaof: db exx 
dw outce 
db exx 
ei 


;Z8@-Betehl 
; Z88-Befehl 
3Z80-Befehl 
;Interrupts freigeben 


; (Bildschirmmeldung und_Programmende) 


ini d,strng2 
Jmp finis 


;Meldung: inaktiv 
; Textausgabe+Warmstart 


E 
jest Deutschen Zeichensatz einschalten 
} (Expansions-RAM im Bereich 8B@G-FFFF abschalten) 


ein: di 
db exx 
mov e,c 
mov a,c 
ani 
mov c,a 
dw autce 


; Interrupts sperren 
;Z8@-Befehl_ 'exx' 

;be’ enthält Konfiguration 
;ohne Erweiterung wirkungslos 


+280-Befehl ‘out (c),c' 


2a009& mov c,e 

200097 db exx ;Z88-Befehl 'exx’ 

2008798 ;(Test, welche Computerversion vorliegt) 

200097 Ihld txtwrt+i ;Interne Adresse TXT WRITE CHAR 
2aaıaa mov a,h }Zeigt ins ROM oder ins RAM? 
2aaıBı ani @cah 

aa21a2 inz quiton Zeichensatz bereits aktiv 
aaaıas mov a,1 ;LO-Adresse = Flag 464/664/6128 
aaaıaa 1xi d,mtabl4 ;Usermatrixpointer CPC464 
2aaıas cpi +19464 ;CPC4647 

@B212& jz config 

2a21a7 ixi d,mtabl& ;Usermatrixpointer CPC664 
@U2108 ;(Zeichensatzprogramm Konfigurieren) 

200189 config: shld crami+i zhl enthält Routinenadresse 
aaaııa shld  cromz+1 

ge@11i shld eroms+1 

aaa112 shld  cromd+i 

200113 xchg ide nethält Zeiger auf 
aaa114 shld  maromi+1 jUsermatrixflags 

aaa1ıs shld  marom2#+1 

aan116 inx h zweitere Flagbytes 

aga1ı7 inx h 

aaeııa shld  mbrami+1 

209117 shld  mbrom2+1 

080128 ;(neuen Betriebssystemvektor eintragen) 

200121 Ixi h,base 

200122 shld  txtwrt+i 

882125 ;(Verschieben des Programms an endgültige Position 

aaaı24 Ixi d,base sEndgültige Lage 

200125 Ixi h,start sjetzige Lage 

200126 Ixi b,ende-start #Programmlänge 

@00127 dw idir 3Z8@-Befehl 'LDIR’ 

220128 ;(Alte RAM- und ROM-Konfiguration wiederherstellen) 
220129 quiton: db exx +Z88-Befehl 'exx' 

aaaı30 dw autce 7288-Befehl "out (c),c' 
aaaı31 db exx +Z88-Befehl 'exx' 

200132 ei ; Interrupts freigeben 
@@B1S3 ;(Bildschirmmeldung und Programmende) 

200134 Ixi d,strngs 

@a0135 ; 

@QB136 ;**x=** Programmende, Rücksprung in CLP 

008137 #inis: mvi c,type + Textausgabe 

ganı38 call bdos 

208137 Ihld  oldstk-2 

aaı20 sphl 

agaiaı ret 

@ae142 ; 

900143... rennen 
220144 ;Hier beginnt der systenresidente Teil des Programm 
200145 ;(Umkodieren: deutsche Zeichen in Bereich F7h bis FFh) 
@BB146 start: cpi "5 

2a0147 jz code4®+versatz ;Codewandlung 

aae148 cpi "A 

200149 cromi: jc ss sspäter wird Sprung zu 
2a0150 <pi = 5TXT WRITE CHAR eingetragen 
aaaı51 je cödeSftversatz ;Codewandlung 

2aa152 epi 

QR0153 crom2: je s-$ skeine Änderung 

200154 cpi 7Fh 

208155 croms: jnc *-$ ;keine Änderung 

Q@OB1S6 code7f: adi @CAh 7ä6üß->Codes FCh-FFh 
220157 code4B: adi @lah 35->Code F7h 

2@0158 codesf: adi @7Dh 3AbU“->Codes FEh-FBh 
020159 ;(selbstdefinierte Matrix einschalten) 

200160 push h 

@BBisı Ixi h,@rrr7h ;Usermatrix ab Zeichen F7h 
@Q0162 maromi: shld $’$ jspäter wird Adresse eingesetzt 
QOB163 Ixi h,matrix+versatz 

Q2@164 mbromi: shld $#-$ }Adresse der Usermatrix 
@QB165 pop h 

@Q016& ; (normale Zeichenausgabe) 

@O0167 croms: call s-+ jLader trägt hier Adresse ein 
@8@168 ;(Zeichenmatrix ausschalten) 

200167 push 

2aa17a Ixi 

Q@@0171 marom2: shld 

@@0172 mbrom2: shld 

2aa173 pop 

@a0172 . ret 

@0@0175 3;(Zeichensatztabelle für deutsche Zeichen 'SAöu”äsüß‘) 
@@017&6 matrix: db @Sch ‚B6@h ‚@Sch ‚B&6h ‚B6&h ‚@Sch „B@6h ‚@Sch 
200177 db @c6h ‚@38h ‚@6ch ‚Bc&h,@feh ‚@c6h,Bcöh ‚Q@@h 
aaaı78 db @c&h,@38h ,@6ch ‚@c&h,Bc&h,@öch, @38h ,BQ@h 
220177 db @c6h ‚@@@h ‚Bc6h ‚@c6h,Bc&h,Bc6h ,B7ch ‚@@@h 
aaaıaB db @18h ‚@38h,B&ch ‚Bc4h, QB@h ‚@@0h ‚@BBh ‚@Qah 
agaıeı db @6ch ‚@Q@h ,878h ‚@@ch,@7ch ‚@cch ‚@76h ,@8@h 
aaa182 db @öch ‚@@@h ‚Sch ‚@66h ‚@66h ‚B&6h ‚@Sch ‚Q@@h 
aaaıa3 db @6ch ‚@80h ,@@Gh ‚@c&h ‚@c&h ‚Beh ‚@7eh,@8@h 
-Da0183 db @ich,@36h,866h ‚Böch ‚@66h ,B66h ‚Bcch ‚@Q@h 
aae185 

200186 

2aa187 Versatz jetzige <-> endgültige Lage 

aaaıaa equ base-start 

200187 end 


Listing 1. Das Assembler-Listing für den »Deutschen Zeichensatz« 


ne EEE 


Ps 


Be ı_ 


- r die DEUTSCH 
100 "Bagic-Lader fuer die Datei m EaanAn 
118 ° CDDB2] 
128 OPENOUT"DEUTSCH. COM“ £5D7C3 
130 ' EDFB&I 
140 27-1000 CD4@41 
15@ READ d$:WHILE d$<>"Ende" [271E1 
168 d%=VAL ("&"+d$) :PRINT#F CHRS (d2) 5; 2p%= 
LFEI@I 
17@ FOR i%=1 10 7 C6CAAI 
180 READ d$:d%=VAL("&"+ds) LF29C] 
[6474] 


190 PRINT#7,CHR$ (d%) 5:p%=p%+d% 
T 


Z21@ READ q% 

22@ IF p%<>q% _THEN PRINT"Tippfehler in Z 
eile "z%:CLOSEOUTzEND 

2350 z%=2%+10 

24® READ d$:WEND 

25@ CLOSEOUT 

268 PRINT"Alles 0.K." 

27® END 


10000 DATA C3,84,92,11,0D,84,44,65, 538 
10019 DATA 75,74,73,63,68,65,72,2@0, 798 
10020 DATA 54,65,69,63,48,65,6E,73, 825 
10030 DATA 61,74,7A,20,66,7D,72,28, 748 
10040 DATA 53,63,48,6E,65,67,64,65, 803 
1@05@ DATA 72,20,43,50,43,20,34,36, 498 
10060 DATA 34,2F,36,36,34,2F,36,31, 489 
10078 DATA -32,38,20,75,6E,74,65,72, 696 
143,50, 2F ,40,2@,32,2E, 431 
10098 DATA 32,2C,@D,04,07,60,69,74, 456 

DATA 20,75,6E,64,20,6F,68,6E, 716 
1@11@ DATA 45,28,56,6F,72,74,65,78, 781 
12120 DATA 20,52,41,40,20,45,72,77, 605 
10130 DATA 65,69,74,65,72,75,6E,67, 867 
10148 DATA 2C,0D,8A,07,60,69,74,20, 438 
1015® DATA 53,63,48,6E,65,69,64,65, 803 


an,an, ia) YaD!aa,2s 6 
10290 DATA 7D,&C,74,69,67,65 EM = 759 EAnasy 
[947€] 
[05881 
190763 


10548 DATA 20,45,49,4E,27,28,75,6E, 558 
1@35@ DATA 64,2@,27,44,45,55,54,53, 568 
190368 DATA 43,48,20,41,55,53,27,0D, 456 
1@37@ DATA @A,24,0D,8A,27,48,5B,5C, 355 

5D,5E,7B,7C,7D,7E,27,20, 756 
1039@ DATA 44,45,75,74,73,63,68,65, 821 
18400 DATA 72,20,5,65,67,63,68,65, 746 
19410 DATA 6E,73,61,74,7A,20,67,6E, 807 
1042@ DATA 61,4B,74,69,76,0D,04,24, 602 
1243@ DATA @D,8A,27,48,5B,5C,5D,5E, 496 
18448 DATA 7B,7C,7D,7E,27,20,44,65, 738 
1845@ DATA 75,74,73,63,68,65,72,20, 798 
18468 DATA 5A,65,69,63,68,65,6E,75, 825 
1047@ DATA 61,74,7A,20,61,6B,74,69, 792 
10480 DATA 76,00,0A,24,21,08,88,37, 267 
1949@ DATA 22,FE,@F,S1,FE,BF,11,ES, 865 
1050@ DATA @1,21,80,00,7E,25,FE,B4, 581 
1851@ DATA C2,28,05,23,7E,23,FE,45, 748 

CA,CC}@2,FE,41,C2,20,05, 956 
18538 DATA F3,D9,59,79,E6,9F ‚Ar ‚ED, 1375 


8558 DATA CA,C1,82,2A,F6,BE,22,D4,1121 
18568 DATA BD,D9,ED,49,D9,FB,11,2A,1243 
1857@ DATA 82,C3,20,05,F3,D9,59,79, 982 
1958@ DATA E&,9F,AF,ED,49,4B,D9,2A,1112 
1259@ DATA D4,ED,7C,E6,C@,C2,18,83,1168 
1068® DATA 7D,11,94,B2,FE,4A,CAJEC, ı24 
18618 DATA = Sir = B7% 22,32,03,22, 37: 


C169E] 


Listing 2. Mit dem Basic-Lader ist das Zeichensatzprogramm 
schnell eingegeben 


Wordstar de Luxe 


Ein bißchen Geschick paßt Wordstar noch besser 
an Computer und Drucker an. Denn verbesse- 
rungsbedürftig ist hier einiges. 


m zweiten Schneider-Sonderheft fanden Sie eine 

Wordstar-Anpassung für die Schneider-Computer unter 

CP/M 2.2. Viele Besitzer desCPC 6128, deren Wordstar 
für CP/M Plus angepaßt ist, schreiben uns, ob es nicht auch 
für ihre Version eine verbesserte Druckerroutine gibt. Wir 
haben ihre Anregung aufgenommen und mit »Wordstar de 
Luxe« eine Anpassung geschrieben, die auf jedem CP/M- 
Computer eingesetzt werden kann. 

Normalerweise ist Wordstar so installiert, daß die Steuer- 
zeichenfolgen zum Hoch- und Tiefstellen von Zeichen nur 
benutzt werden können, wenn der Drucker einen echten Zei- 
lenvorschub nicht nur vorwärts, sondern auch rückwärts aus- 
führt. Intern kennt Wordstar aber eine Steuerzeichenfolge, 
die nur einen halben Zeilenvorschub aufruft. Und diese 
Anweisung versteht nahezu jeder Drucker. Damit können 
auch Geräte, die nur Papiervorschub kennen, Zeichen hoch- 
oder tiefgestellt ausdrucken. Mit Hilfe dieser Routine führt Ihr 
Drucker zwischen zwei Zeilen nicht einen ganzen, sondern 
zwei halbe Zeilenvorschübe aus. Zwischen diesen beiden 
156 


oo 


Schritten wird (im wahrsten Sinne des Wortes) »zwischen 
den Zeilen« das Tiefgestellte der vorhergehenden und das 
Hochgestellte der nächsten Zeile gedruckt. Falls Ihr Drucker 
keinen differenzierten Zeilenvorschub kennt, stellen Sie ein- 
fach die Zeilenhöhe generell auf halbe Höhe und geben bei 
der Steuerzeichenfolge für normalen doppelten Vorschub. 
an. Besonders bei Ausgabe von Formeln lernen Sie das neue 
Schriftbild bald schätzen. 

Die meisten Drucker arbeiten neben dem Standard-ASCIl- 
Zeichensatz auch mit Grafiksonderzeichen. Häufig findet 
man darunter griechische Buchstaben oder ähnliches. Nor- 
malerweise läßt Wordstar diese nicht zu. Mit der hier gezeig- 
ten Anpassung ändert sich das. CTRL-P und dann E gedrückt 
sagt Wordstar, daß er das nächste Zeichen als Grafikzeichen 
interpretieren soll. Das normale ASCII-Zeichen übersetzt er 
dann unmittelbar vor dem Ausdruck in das entsprechende 
Grafikzeichen. Auf ähnliche Weise kann man mit CTRL-P und 
R zwischen amerikanischem und deutschem Zeichensatz 
hin- und herschalten. 

Neben diesen besonderen Routinen installiert unsere 
Anpassung natürlich auch die »gewöhnlichen« Druckarten. 
Komprimierte Zeichen werden mit CTRL-P A ein- und CTRL-P 
N ausgeschaltet. Da die meisten Drucker keinen automati- 
schen Farbbandwechsel kennen, wurde die dafür vorgese- 


hene Steuerfunktion CTRL-P Y mit Breitschrift belegt. Die 
beiden restlichen frei definierbaren Steuerzeichen CTRL-PQ 
und CTRL-Q W regeln das Ein- und Ausschalten der Schön- 
schrift. Doppeldruck, Fettdruck, Unterstreichen, Hervorhe- 
ben, Überdrucken, Rückwärtsschritt, Phantom-Leerzeichen 
und Hardspace gibt es auf jedem Drucker, da sie vollkommen 
hardwareunabhängig gelöst wurden. 

Alle hier gezeigten Änderungen beruhen auf der Anpas- 
sung bestimmter Teile der Datei »WS.COM«. Die meisten 
neuen Funktionen werden einfach durch Verändern 
bestimmter reservierter Steuerzeichentabellen und Markie- 
rungen installiert. Schwieriger ist die Zeichensatzwahl und 
die Ausgabe von Grafikzeichen. Anstelle der reservierten 
Steuerzeichentabellen für die Textmarkierungen CTRL-P E 
und CTRL-P R haben wir normalerweise auf dem Drucker 
nicht definierte Pseudosteuerzeichen eingesetzt. Zusätzlich 
wurde die Druckroutine durch eine neue ersetzt. Soll keines 
der Pseudosteuerzeichen ausgegeben werden, arbeitet die 
neue Routine wie das Original. Tritt aber eines der Pseudo- 
steuerzeichen auf, wird dieses nicht ausgegeben, sondern 
zu einer ganzen Steuerzeichenfolge übersetzt. Das Resultat 
hängt dabei von verschiedenen Werten bestimmter Variablen 
innerhalb der Routine ab (zum Beispiel ob der deutsche Zei- 
chensatz ein- oder ausgeschaltet wird). 

CP/M besitzt eine Betriebssystemroutine, die testet, obder 
Drucker gerade beschäftigt istoder ein Zeichen übernehmen 
kann. Wenn man diese Routine nur dann aufruft, wenn der 
Drucker wirklich bereit ist, gibt es keine Probleme. Im ande- 
ren Fall passiert es häufig, daß sich der Computer aufhängt. 
Leider ist diese Routine von der Betriebssystemversion 
‚abhängig. In Wordstar wird sie deshalb nur unterstützt, wenn 
sie wirklich vorhanden ist. Und das ist sie standardmäßig 
nicht. Da Sie Ihre Betriebssystemversion nur äußerst selten 
wechseln, haben wir diese Routine gleich miteingebunden. 


Wordstar kennt nicht nur eine Druckerausgaberoutine, 
sondern vier. Das Programm wird deshalb so installiert, daß: 
automatisch diejenige aufgerufen wird, die wir angepaßt 
haben. Dasist die, die mit dem CP/M-LST.-Kanalarbeitet. Eine 
entsprechende Meldung auf dem Bildschirm ist auch vorge- 
sehen. Der Platz der anderen drei Routinen wird nicht mehr 
benutzt und steht für die neuen Routinen zur Verfügung. 


Anpassung leicht gemacht 


Das folgende Programm kann auf jedem beliebigen CP/M 
2.2-Computer benutzt werden. Für CP/M Plus muß eine 
kleine Änderung eingefügt werden. Die Druckersteuerzei- 
chen sind fast alle für Epson-kompatible Drucker angepaßt. 
Ganz speziell sind sie aber für die Schneider-Drucker 
»NLQ401«, »DMP 2000« und »Seikosha SPIOOOCPC« ge- 
eignet. Weiter unten finden Sie die Anpassung an andere 
Drucker. 

Als erstes müssen Sie mit einem beliebigen Texteditor das 
Assemblerlisting (Listing 1) eingeben. Das Programm muß 
zum Übersetzen unter dem Namen »WSDRUCK.ASM« ge- 
speichert sein. Wenn Sie das Programm mit Ihrem Wordstar 
eintippen, wählen Sie bitte den Menüpunkt »N« (für »Pro- 
grammeingabe - Non-Dokument-Modus«). Unter »D« (Text- 
eingabe) fügt Wordstar nämlich unsichtbare Steuerzeichen 
in den Text ein, die später den Assembler durcheinanderbrin- 
gen würden. 

Noch ein paar Tips, die die Eingabe erleichtern. Dem von 
uns verwendeten Assembler ist es völlig gleichgültig, ob Sie 
den Quellcode mit Groß- oder Kleinbuchstaben eingeben. 
Sogar in einem einzigen Wort dürfen Sie beide beliebig 
mischen. Bei der Eingabe brauchen Sie also auf solche Klei- 
nigkeiten nicht achten. 


888801 ;Wordstar besonders gut an verschiedene Drucker anpassen 
goaue2 ; (Version 22.4.86) 
eoeeeS ; 
0080884 ; - nur geeignet für Drucker, die über den gewöhnlichen 
goamoS ; CP/M-"LST: '-Kanal gesteuert werden können 
200886 ; - nur geeignet für Wordstar, Version 3.0, CP/M-88 
@e00007 ; - aber für beliebige 8888- oder Z88-Computer 
poveus ; und beliebige WS-Installationen 
2on209 ; (z.B. Schneider CPC464/664/6128, Commodore C128) 
8080818 ; - Hier aber Voreinstellungen ähnlich Epson-Drucker 
@09011 ; (insbesondere Schneider NLO481, Schneider DMP2888 
goaae12 ; und Seikosha SP1BBBCPC) 
209013 ; 
2000214 ;Diese Datei mit 'ASM’ assemblieren und die HEX-Datei (nicht COM) 
are 5 mit Hilfe von 'DDT’ und '’I’-Befehl der Datei WS.COM überlagern 
voao ’ 
gaa017 ; 
BOBBBIS ;==#### Hier die LP/M-Version eintragen 
000017 false equ 
Boaa20 true equ not false 
geaaa21 cpmplu equ false sfür CP/M PLus 'true’ eintragen 
209022 ; 
0280823 ;*=###* Wie hoch soll eine Zeile sein (nur gerade Zahlen erlaubt) 
080824 ; (Angabe in der kleinsten Einheit, bei NLQ4@1 z.B.: 1/216& Zall 
208025 hoehe equ 36 6 Zeilen pro Zoll 
288025 ; 
0098027 ;x****** Einschaltmeldung über Drucker (Zeichenanzahl nicht verändern) 
008828 org @1B5h 
2080297 db hi Schneider NLQ481 ",15,8 
2uaasa db & No communications protocol ',15,8 Listing 1. 
a2a031 db c Primary list device ",15,8,26 Verbe: si 
anaas2 ; 'ssern Sie 
OBR@SS ;x**##+** Grundeinstellungen für den Drucker Ihren Wordstar 
200034 org 8690h 
2098035 db arFFh Drucker kann kein Backspace 
2080356 db 2 ;Anzahl Anschlä für Fettdruck 
aaans7 db 2 ;Anzahl Anschläge für Doppeldruck 
aaoe: B 
2000837 ;x*x#*** verschiedene druckerabhängige Steuerzeichenfolgen 
goaa40 ; (jeder Tabellensatz besteht aus einem Byte für die Länge 
@@B041 ; gefolgt von den eigentlichen Steuercodes) 
20004: org 8696h sWagenrücklauf und Zeilenvorschub 
200043 db 2,13,1@ 
000044 org BsAlh zWagenrücklauf ohne neue Zeile 
208845 db 1,13 
200046 org @&6ABh sein halber Zeilenvorschub 

PAAPPYM 

re 


4 
£ 


4,13,27,'J°,hoehe/2 
B6AFh ;Backspace (nur wenn Drucker kann) 


skomprimierte Schrift einschalten 
;komprimierte Schrift ausschalten 
;Hochstellen ein/Tiefstellen aus 
;Tiefstellen ein/Hochstellen aus 
;'”PQ’, Hier: Schönschrift ein 
s'”PW', Hier: Schönschrift aus 
;'”PE', Hier: Graphikausgabe 
;Pseudosteuerzeichen 

;°“PR', Hier: deutsch/amerikanisch 
;Pseudosteuerzeichen 

;rotes Farbband, hier: Breitschrift 
;schwarzes Band, hier: Ende Breit 
;Drucker vorbereiten (vor Druck) 


6,13,27, 3’ ‚hoehe,27, 6 
Börah Drucker abschalten (nach Druck) 


o 
@7roBn | ;Zeichen zum durch/unterstreichen 
ei 


Unterprogranmeinsprünge zur Druckereinstellung 
Dh 
;Drucker vorbereiten 


Drucker abschalten 


Welche Druc: KECRLRG SAL SUN inen werden verwendet 


org ori 
db @ }Ausgabe an CP/M-'LST: '-Kanal 
OFFh 3Druckerstatusroutine vorhander 


Die Druckerausgaberoutinen für CP/M-'LST: ‘-Kanal 
rei 
;Sprung zur neuen Busy-Routine 
;Zeichen an Drucker schicken 
;BDOS-Funktionsnummer 
;normal BDOS-Aufruf, jetzt neu 


;Zeichen vom Drucker holen 
inur für manche serielle Drucker 
jund primitive Schnittstelle nötig 


’ 
jemumer Dieser Bereich ist nur frei bei Ausgabe an CP/M-'LST: '-Kanal 
} (wird hier für neue Druckerroutinen zweckentfremdet) 
or @728h 
3 (neue Drucker-Busy-Routine, Version für_CP/M 2.2) 
if not cpmplu sCP/M 2.2 ? 
busy  Ixi d,8@2Ah 
call bios ;Bios-Aufruf 
Cma ja ist 255, wenn nicht beschäftigt 
rar jcarry @, wenn nicht beschäftigt 
re 
bios Ihld  B@@ih ;Anfangsadresse des BIOS holen 
dad d jrelative Routinenadresse addieren 
pchl, ;BIOS-Routine aufrufen 
en 


busy i d Registerpuffer 
so Aufruf 


regist+1 
Listing 1. 
Verbes: 
regist 15 Ihren Wordstar 
0,0,0,0,0,0,8 (Fortsetzung) 
endif 
; (neue Druckerausgaberautine) 
print i Er 
2; chrset 
h,flag 
m 
31 
m ;Graphikmodus korrigieren 
jz a00Sh jjetzt aus ->normaler Druck 
;(Graphikzeichen an Drucker senden) 
gramod der m ;Graphikmodus testen 


mvi m,d sund löschen 
push psw ;Zeichen und Modus aufheben 


;Escape an Drucker 
jausgeben 
;Graphikzeichensatz einschalten 


3Graphikzeichen und Modus holen 
;keine übersetzung 

sin Bereich 88h bis 9Fh 

jbesondere Behandlung für Code FFh 


;Ausgeben 
;Graphikmodus löschen 


jap sende 
; (deutschen/amerikanischen Zeichensatz einschalten 
Chrset ;Escape-Code 
Escape an Drucker 
ihier steht Zeichensatznummer 


;bit @ invertieren 
jneue Zeichensatznummer 
sins e-Register Listing 1. 
Verbessern Sie 
Ihren Wordstar 


(Schluß) 


mov e,a 
; (Byte an Drucker ausgeben) 
sende mvi ©,5 ;BDOS-Funktion drucken 
jmp ;BDOS-Aufruf 
} (verschiedene Flags) 
flag: db 
db ®%- 


sam Anfang kein Graphikmodus 
;Flag für deutschen Zeichensatz 


’ 
semnene Wie wird Kommunikation mit Drucker abgewickelt? 
878&h 


;kein ETX/ACK oder XON/XOFF-Protokoll 
;Druckerpuffer (hier bedeutungslos) 


Alles was in einer Zeile hinter einem Strichpunkt steht, gilt 
als Kommentar und dient allein der Übersichtlichkeit. Sie 
dürfen die Kommentare nach eigenem Ermessen weglassen 
oder dazusetzen. Ebenfalls nur der Überschaubarkeit wegen 
stehen die Zeilennummern voran. Auch diese dürfen ersatz- 
los gestrichen werden. 

An den Stellen, an denen ein oder mehrere Leerzeichen 
stehen, dürfen sich beliebig viele Leerzeichen (und auch 
"Tabulatoren) befinden. Die Anzahl der Leerzeichen sind als 
rein optische Hilfe anzusehen. Das gilt nicht für Leerzeichen 
zwischen Anführungszeichen. Dabei handelt es sich um 
Texte, die unverändert ins Programm übernommen werden 
müssen. Hier können Sie zwar den Text nach eigenem Gut- 
dünken abändern, aber die Gesamtzahl der Zeichen muß 


erhalten bleiben. Keinesfalls dürfen Sie innerhalb von Anfüh- 


rungszeichen Leerzeichen durch Drücken der »TAB«Taste 
einfügen. 

‚Alles folgende ist jedoch von entscheidender Wichtigkeit. 
Im Gegensatz zu Basic wirkt sich auch nur eine einzige fal- 
sche Zeile fatal aus. Deshalb sollten Sie das Listing zur 
Sicherheit noch einmal genau überprüfen. 

Ein Abschnitt des Programms heißt »Betriebssystemver- 
sion anpassen«. Wenn Ihr Wordstar nicht unter CP/M 2.2, 
sondern unter CP/M Plus arbeitet (also für den 6128 gedacht 
ist), ersetzen Sie die Zeile »cpmplu equ false« durch »cpmplu 
equ true«. 

Um unser Quellprogramm dem Computer verständlich zu 
machen, brauchen Sie die Programme »ASM.COM« und 
»DDT.COM« von Ihrer CP/M-Systemdiskette - und natürlich 
den gerade eingetippten Text »WSDRUCK.ASM« sowie 
»WS.COM«, »WSMSGS.OVR« und »WSOVLY1.OVR«. Um die 
Originale zu schützen, kopieren Sie am besten alle Pro- 
gramme auf eine leere Diskette. 

Als nächstes ist »WSDRUCK.ASM« zu assemblieren. Das 
‚geschieht einfach durch Eingabe von »ASM WSDRUCK. 
‚AAZ«. Beachten Sie, daß die etwas seltsame Zeichenfolge 
»AAZ« im Namen kein Druckfehler ist, sondern den Assem- 
bler steuert. Während des Ablaufs von »ASM.COM« darf 
außer einigen Angaben über den verbrauchten Speicher- 
platz keine Meldung auf dem Bildschirm erscheinen. Sobald 
auf dem Bildschirm irgendeine Zeile aus der Datei 
»WSDRUCK.ASM« ausgegeben wird, die Sie selbst einge- 
tippt haben (eventuell mit einigen Zusätzen), ist diese Zeile 


fehlerhaft. In diesem Fall starten Sie den Editor noch einmal 
und korrigieren das Programm. Beachten Sie aber, daß es 
sich bei dem angezeigten Fehler auch um einen Folgefehler 
handeln kann. Untersuchen Sie also immer das ganze Pro- 
gramm. Wenn alles geklappt hat, befindet sich auf der Dis- 
kette jetzt eine weitere Datei mit dem Namen »WSDRUCK. 
HEX«. 

Als nächstes rufen Sie DDT durch »DDT WS.COM« auf. 
Wenn kein Fragezeichen erscheint, ist alles in Ordnung. 
Taucht ein Fragezeichen auf, dann prüfen Sie, ob die Diskette 
alle notwendigen Dateien enthält. Ein zweiter Versuch muß 
dann erfolgreich sein. 

Erscheint ein Bindestrich, geben Sie »IWSDRUCK.HEX« 
und danach »R« ein. Wenn nach »R« das Diskettenlaufwerk 
anläuft und kein Fragezeichen zu sehen ist, ist alles in Ord- 
nung. Im anderen Falle müssen Sie das Programm mit CTRL- 
C abbrechen. Bei diesem Befehl ist eine häufige Fehlerursa- 
che ein fehlendes »ORG« in der Datei »WSDRUCK.ASM« 
oder eine überhaupt fehlende Datei »WSDRUCK.HEX«. Also 
bitte darauf achten! 

Als nächstes brechen Sie das DDT-Programm mit CTRL-C 
ab. Dann tippen Sie »SAVE x WS.COM« ein. Der Wert der Zahl 
x muß aber zuerst noch berechnet werden. Sie erhalten ihn, 
indem Sie die vierfache Größe der Datei »WS.COM« in KByte 
nehmen. Wenn Ihre Wordstar-Version also 16 KByte lang ist, 
geben Sie »SAVE 64 WS.COM« ein, bei 32-Byte-Programm- 
änge »SAVE 128 WSCOM«. 

Beachten Sie, daß nach einem mißglückten Versuch, das 
Wordstar-Programm zu ändern, die Datei »WS.COM« zerstört 
ist. Damit Sie im Programm »WSDRUCK.ASM« nicht vergeb- 
lich nach Fehlern suchen, müssen Sie deshalb nach jedem 
Versuch das Wordstar-Programm durch eine neue Kopie 
ersetzen. Änderungen, die Sie schon früher angebracht 
haben (zum Beispiel um die Bildschirmausgabe zu verbes- 
sern), stören natürlich nicht. Als Ausgangsdatei ist ein schon 
früher veränderter, aber fehlerfreier Wordstar durchaus ver- 
wendbar. Wenn Sie Pech haben, hat die frühere Änderung 
vor der jetzigen Vorrang. Derartige Fälle sind aber sehr sel- 
ten. Bestimmte Fehler löschen die ganze Wordstar-Diskette, 
weshalb Sie die neue Version immer auf einer leeren Diskette 
testen sollten. Nach Ende von »DDT.COM« stürzt auch ein 
korrektes Wordstar-Programm manchmal ab. Dagegen hilft 
ein kurzes Aus- und Wiedereinschalten. 


Falls in der Testphase das Programm nicht korrekt läuft, fin - Traten beim Assemblieren von »WSDRUCK.ASM« Fehler- 
den Sie hier ein paar Hinweise auf mögliche Fehlerursachen. meldungen auf? 
= Haben Sie im DDT-Programm bei »lc»WSDRUCK.HEX«ein- - Haben Sie beim Start von DDT den korrekten Namen 


gegeben und nicht versehentlich »WSDRUCK.ASM«? »WS.COM« angegeben? 
-Befand sich die neueste Version von »WSDRUCK.HEX«auf -SindSie sicher, daß Sie die neueste Version von »WS.COM« 
der Diskette? getestet haben? 
= Haben Sie zwischen dem Abbruch vonDDTunddemSAVE- - Stimmt in der Datei »WSDRUCK.ASM« der Wert von 
Befehl kein anderes Programm gestartet? »cpmplu«? 


Zu Ihrer Übersicht finden Sie im Listing 2 eine Tabelle aller 

10000 'WS-Datei erzeugen, die eine Tabel Grafikzeichen. Eingegeben wird das Programm unter Basic. 
le aller Graphikzeichen ausgibt 17850] Nach einem Lauf steht auf der Diskette eine ASCII-Datei mit 

ausıe DreNaut-pruckerz.tet tBCie] | dem Namen »DRUCKER2TST«, die mit Hilfe von Wordstar 
18020 FRINIAF CÄRE (29) "unter WORDSTAR mi De ausgedruckt werden kann. Die Ausgabe funktioniert aller- 
12030 ERINTWF STRINGS ST Ten) ERSPE3 | dings nurauf Druckern, bei denen die Zeichenfolge »ESC =« 


RINTE ” tEDFCI den Grafikzeichensatz einschaltet. Das sind mit Sicherheit 
Sa ERINTeS TaBı21) "zur Verf>gung steh „..., | die Schneider-Drucker NLQ401 und DMP2000 sowie der 


eg RS TABC2IISTRINGS(37,"=") a Seikosha SP1000CPC, aber auch die meisten Epson- 
10080 PRINTHF „EF2041 kompatiblen Geräte. Ein Versuch kann nichts schaden. 
18878 PRINTRI N LF9@61 Geben Sie mit Hilfe von Wordstar als nächstes Listing 3 
10100 PRINT rDrpep Eingabe HrUchekikga (Test der Schriftarten) ein und drucken Sie es aus. 

i 150861 Der letzte Test betrifft die Druckerstatusabfrage. Schalten 


Sie dazu den Drucker aus und vergewissern Sie sich, daß auf 
EF9DAI Ihrem Computer kein Druckerspooler aktiv ist. Dann editieren 


19120 FOR ix=@ TO 31 CADBAI Denn 
10138 PRINTET RES) EHRE SCHE Ras) ” Sie einen beliebigen Mess re der egebe, sollten Sie 
DER TERNCHER LESER) as die Tastenkombination CTRL-K P drücken und danach einen 

1480 PRINT#9, 6 (5) CHR$ (i%+32) "(5 SPAC . 

En. Brakresıe et veszın 2 srnce) hast 180521 Dateinamen eingeben. Mit ESC starten Sie dann den Aus- 
Sc + "(5 ij. Din ii ii r 
En ae 1 kraaı "4 BPALE)! .r LecseI druck der angegebenen Datei. Diese wird ohne einen spe; 
101648 IF i%<>31 THEN PRINT#9 „CHR$ (SI CHR$ ziellen Druckerspooler parallel, während der Bearbeitung 
nen SPACE) PET CURSE UUNAREI"E ci0e23 eines anderen Textes, ausgedruckt. Wenn die Statusabfrage 
1017@ IF i%<@ THEN READ c$1PRINT#9 ,CHRE( nicht funktioniert, versucht der Computer vergeblich, ein Zei- 
18) CSCHRF (19) "(5 SPACE) "PR"CHÄPR" 91643 | Chen auszudrucken und stellt sich »tot«. Ist die Abfrage aber 
1gı08 brInTas EoaBe) in Ordnung, wird gar nicht erst der Versuch, ein Zeichen aus- 
10198 NEXT ci e} . 
lezeo CLoSeour tıEB3] | zugeben, unternommen, solange der Drucker zur Über: 
1821@ DATA @,Ly\yIyCyty” C4B3E] nahme nicht bereit ist. In diesem Fall können Sie genauso 


TACBE] problemlos weiterarbeiten, als würde im Hintergrund über- 
haupt kein Text ausgedruckt. 
Funktioniert alles wunschgemäß, so schalten Sie den 


Listing 2. Alle Grafikzeichen im Überblick 


B00001 ;Neuer Text für das Drucker-Menue von Wordstar 
onB2au2 ; (Vers. 22.4.86) 
ooaaaSs 


’ 
OB0004 ;Diese Datei mit 'ASM’ assemblieren und die HEX-Datei (nicht COM) 
@R@RBS ; mit Hilfe von 'DDT‘ und 'I’ der Datei 'WSMSGS.OVR’ überlagern 


Gomene ; 
QOOBB7 ;x####* Lage des Menues 
org @DSCh 
aaaaa? db 19,19 Kopf des Menues 


ee Die Texte des Menues 
‘jede Zeile muß genau 79 Zeichen enthalten und durch ein Byte 


mit dem Wert QEh abgeschlossen sein; 
Ausnahmen: erste Zeile 66 Zeichen lang, enthält genau einen Tab 
letzte Zeile 74 Zeichen lang (7 Zeilen insgesamt) 


zur besseren ‚ünerglchtgird Ed u ER a Abschnitte geteilt) 
db ‘zeichen in den Text einfueg’ 


’ 
ein/aus 


db -Dopp: 

db “Askomprimierte Schrift 

db "N=komprimiert abschalten 

db ‘X=Durchstreichen ein/aus  ',14 

db ‘O=fester Leerschritt ö 

db "F=Phantom Leerschritt 2 

db "H=Rueckwaertsschritt "14 Listing 4. 

> er IRBOROHEIT ENBIG, £ Ihr Wordstar kennt die 
b ‘Redeutsch/amerikanisch Ä Beiel 

db ‚ENTER-Zeile ueberdrucken , „14 neuen Befehle auch 
db "WeSch hrift aus B 

db "E/APEsGraphikzeichen fol ES 


db 'Leerschritt=Abbrechen ', 


PAAPPYM 
SIE 


Drucker nun ein. Jetzt beginnt der Drucker zu arbeiten. 

Wenn die neue Wordstar-Version einwandfrei läuft, brau- 
chen Sie die Dateien »WSDRUCK.ASM« und »WSDRUCK. 
HEX« nicht mehr. Für den Fall, daß Sie sich aber einmal einen 
anderen Drucker kaufen, brauchen Sie aber die Assembler- 
datei wieder - also an einem sicheren Ort aufheben. 

Im Abschnitt »druckerabhängige Steuerzeichenfolgen« 
können Sie die Steuerzeichen angeben, die zur Wahl einer 
bestimmten Druckerfunktion notwendig sind. Hinter jeder 
Zeile, die mit »db« beginnt, steht dabei ein Tabellensatz. Das 
erste Byte gibt die Anzahl der folgenden Bytes an. Danach 
folgen die auszugebenden Steuerzeichen. Bei Epson-kom- 
patiblen Druckern stellt man zum Beispiel den Druck in dop- 
pelter Breite durch die Drei-Byte-Folge »ESC W SOH« ein. 
Wie man aus jeder ASCIl-Zeichensatztabelle entnehmen 
kann, besitzt ein »ESC« den Wert 27 und ein »SOH« den Wert 
1. Der Buchstabe »W« kann in Anführungszeichen direkt ein- 
gesetzt werden. Im entsprechenden Abschnitt der Datei 
»WSDRUCK.ASM# steht deshalb »db 3,27'W}1«. Wenn Sie 
einen anderen Drucker besitzen, können Sie die entspre- 
chenden Werte leicht anpassen. Schwieriger gestaltet sich 
die Zeichensatz- und Grafikumschaltung. Wenn Sie selbst 
kein Assemblerspezialist sind, hilft Ihnen sicher gerne ein 
Spezialist aus einem Club weiter. 


Ein neues Druckermenü 


Wenn Ihr neuer Wordstar richtig funktioniert, wollen Sie 
sicher die neuen Druckerroutinen auch im Menü (Aufruf mit 
CTRL-P) finden. Dazu geben Sie Listing 4 ein. Das weitere 
Vorgehen entspricht genau dem bei der Anpassung von 
»WS.COM«. Geändert wird jetzt aber die Datei »WSMSGS. 
OVR«. Statt »DDT WS.COM« müssen Sie jetzt »DDT 
WSMSGS.OVR« eingeben und statt »SAVE 64 WS.COM« 
»SAVE 99 WSMSGS.OVR«. Überlagern müssen Sie damit 
natürlich die Datei »WSMSGS.HEX«. Dazu tippen Sie 
»IWSMSGS.HEX« ein. Wenn der erste Versuch nicht klappt, 
kopieren Sie vor dem nächsten Versuch eine neue Kopie der 
Datei »WSMSGS.OVR« auf die Arbeitsdiskette. Die Texte zwi- 
schen den Anführungszeichen in der Datei »WSMSGS.ASM« 
können Sie nach Belieben ändern. Beibehalten müssen Sie 
allerdings die Anzahl der Zeichen zwischen den Anführungs- 
zeichen und alles, was außerhalb der Anführungszeichen 
steht. Ebenfalls verboten sind Tabulatoren innerhalb der 
Anführungszeichen. 

Interessant ist das »Phantom-Leerzeichen« (CTRL-P F). 
Ausgedruckt sieht es wie ein echtes Leerzeichen aus. Inner- 
halb von Wordstar wird es aber wie ein normales Zeichen 
behandelt. Eine nützliche Anwendung enthalten die unterstri- 
chenen Textteile. Leerzeichen zwischen unterstrichenen 
Worten werden normalerweise nicht mitunterstrichen. Wenn 
Sie statt dem echten Leerzeichen nun das Phantom-Leer- 


normaı Dopy 
Normal Sch, 


Listing 3. 
Testen Sie 

die neue 

tr Druckerroutine 


Sraphikzeichens 


Bild 1. Der Bildschirm-... 


JEDEN Mach- 


gestell 


Bild 2. ...und der Druckertext 


zeichen benutzen, gilt es nicht als Leerzeichen und wird beim 
Drucken ebenfalls unterstrichen. 

Der Rückwärtsschritt funktioniert mit unserem Programm 
auch bei Druckern, die keinen echten »Backstep« kennen. 
Mit seiner Hilfe kann man beispielsweise zwei Zeichen über- 
einanderdrucken und damit Akzente darstellen. 

Wenn Sie mit Wordstar viele Formeln mit hoch- und tiefge- 
stellten Indizes eingeben, wirkt die Formel durch die vielen 
CTRL-V- und CTRL-T-Anweisungen schnell ziemlich zerfled- 
dert. Spätestens dann, wenn Sie zweifache Indizes einset- 
zen, verlieren Sie endgültig die Übersicht. Das verhindert 
jedoch ein kleiner Trick. Die Tastenfolge CTRL-P M bewirkt, 
daß die nächstfolgende Bildschirmzeile die vorhergehende 
Zeile überdruckt. Auf dem Drucker erfolgt also ein Wagen- 
rücklauf, aber kein Zeilenvorschub. Fügen Sie nun am Anfang 
und am Ende der ersten Zeile jeweils ein Steuerzeichen 
CTRL-P T ein, so daß die erste Zeile hochgestellt wird. Auf 
dem Bildschirm erscheinen zwei vollständig getrennte Zei- 
len, während auf dem Drucker die Zeilen nur den halben Zei- 
lenabstand aufweisen. Statt am Ende der ersten Zeile darf 
das zweite CTRL-P T auch am Anfang der zweiten Zeile ste- 
hen. Dadurch kommen auf dem Bildschirm untereinanderste- 
hende Spalten auch auf dem Drucker untereinander zu ste- 
hen. Die Tastenfolge CTRL-P T, CTRL-P M, CTRL-P T, CTRL-M 
schafft so einen größeren »entzerrten« Bereich. Wenn Sie 
jetzt noch mit der TAB-Taste die Zeilen bis zum Rand mit Leer- 
zeichen füllen und den Einfügemodus abschalten, können 
‚Sie den Cursor innerhalb des entzerrten Bereiches beliebig 
bewegen und an beliebigen Stellen Formelzeichen einset- 
zen. Ohne weitere Unordnung stiftende Steuerzeichen ent- 
stehen auf diese Weise die kompliziertesten Formeln mit 
hoch- und tiefgestellten Indizes. Das Entscheidende ist 
dabei, daß dadurch die normale Zeilenzählung von Wordstar 
überhaupt nicht durcheinandergerät. Der Kopf einer Seite 
erscheint auch bei beliebig vielen entzerrten Bereichen 
immer ganz oben auf einer Seite. Wie das aussieht, sehen Sie 
auf Bild 1. Zum Vergleich sehen Sie den zum abgebildeten 
Text passenden Ausdruck in Bild 2. Sie sehen, ohne großen 
Aufwand entstehen so perfekte Formeln. 

(Helmut Tischer/hg) 


‚Fortsetzung von Seite 51 

den Lader mit einem Maschinenspra- 
che-Monitor disassemblieren. Dann 
machen Sie sich auf die Suche nach 
dem genannten Aufruf. Ihm voraus geht 
die Zuweisung der Register mit den drei 
Informationen: Ladeadresse (HL), Län- 
ge (DE)undSatzkennzeichen (im Akku). 
Das Satzkennzeichen dient der Unter- 
scheidung verschiedener Programme. 
Im Assembler-Quellcode sieht das fol- 
gendermaßen aus: 


ID HL,xxxx ;Anfangsadresse 
LD DE,xxxx ;Länge 

ID A,xx ;Satzkennzeichen 
CALL BCA1 


Benutzen Sie zum Überspielen das 
Programm aus Listing 5. In Zeile 60 ist 
die Maschinencode-Routine im String 
a$ abgelegt. Die Zeilen 70 bis 90 fra- 
gen dann nacheinander Anfangs- 
adresse, Länge und Satzkennzeichen 
ab. Sollte das übertragene Programm 
zu lang sein (Stichwort: DOS-ROM), 
lädt unsere Routine esin einen anderen 
Speicherbereich (denken Sie daran, es 
später wieder zu »liften«). Sind Bild- 
schirm-Inhalte (beispielsweise Titelbil- 
der) zu übertragen, müssen Sie die 
Abfragen in den Zeilen 130 bis 150 
durch feste Angaben ersetzen, da sie 
sonst das Bild zerstören. Listing 6 spei- 
chert als Beispiel einen Bildschirm in 
einem Block, den Listing 7 wieder lädt. 
Durch Änderung der Werte für HL, DE 
und A sind sie universell für jede Binär- 
Datei verwendbar. Vergessen Sie aber 
nicht, daß diese Werte, wie beim Z80 
üblich, in der Reihenfolge »niederwerti- 
ges Byte, höherwertiges Byte« zu über- 
geben sind. 

Sie kennen nun die wichtigsten Me- 
thoden, um Kassettensoftware auf Dis- 
ketten zu überspielen. Natürlich gilt 
auch hierfür, daß Sie Kopien nur für den 
Eigenbedarf anfertigen dürfen. 

(Matthias Rosin/Michael Straßer/ja) 
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CPC 464/664/6128 

1985, 212 Seiten 

Wenn Sie glücklicher Besitzer eines Schneider. 
Computers sind und mehr wissen wollen über 
das leistungsstarke Betriebssystem CP/M 2.2 
dann istdieses Buch genau das richtige für Sie! 
Es behandelt CP/M 2.2 nicht nur in seineralige- 
meinen Form, wie sie für sämtliche CP/M- 
‚Computer gültig ist, sondern bezieht auch die 
Hardware der CPC-Gomputer mit ein 

Best.hr. MT 859 

ISBN 3-89090:204- 
DM 46,-/aFr. 42,30/68 358,80. 
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CPC 6128 
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Ein unentbehrliches Nachschlagewerk für die 
praktische Arbeit mit CP/M-Plus und seinen 
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Marktäfechnik 


CP/M 2.2 
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Dieses Buch enthält In konzentrierter Form 
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Ihres Computers. Um es optimal nutzen zu kon 
nen, sollte man mit dem Schneider-BASIG ver 
traut sein und erste Erfahrungen in der Maschi 
nensprache des Z80 besitzen. Zu jeder Rou- 
tine im Listing sind die Übergabe-Parameter 
aufgeführt. Verschiedene Tabellen erleichtern 
das Auffinden einer bestimmten Routine 
Best.Nr. MT 90134 

ISBN 3:89090:134-4 

DM 64,-IFr. 58,90/68 499.20. 


Th. Erpel 
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1985, 376 Selten 
Ein Buch für den Einstieg in die Bedienung 
und Programmierung der Schneider-Computer. 
‚Alle Beispiole auf Kassette erhältlich. (Best.-Nr. 
MT 846, DM 29,90), 
tor. MT 828 
ISBN 3-89090:167.0 
Jafr. 42,30708 358,1 
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C.Straush 3. Höckstädt 
Schneider CPC Der Schneider CPC 6128 
Grafik-Programmierung 1985, 273 Solton 

Januar 1986, 231 Selten Dieses BuchistlürjedenCPC 


6128-Bositzer eine wertvolle 
Hilfe, die vielfachen Möglich. 
kolten dieses bisher einmalı 
‚gen Computers kennenzuler- 
nen und anzuwenden. Der 
‚Computerneuling wird Schritt 
für Schritt in den Umgang mit 
dem Computer und in die 
BASIG-Programmiorung. ein 
geführt, bis er alle notwendi 
‚gen Konntnisse besitzt, die 
mancher Profi bereits mit 
bringt. Aber an dieser Stelle 
wird das Programmieren mit 
dem GPC 8128 erst Interes- 
sant, nämlich dann. wenn es 
darum geht, eine eigene 
Datelverwaltung aufzubauen 


Dieses Buch wendet sich an 
die Schneider CPC-Bositzer, 
die alles über die Grafikfähig: 
keiten Ihres Computers wis- 
sen wollen. Es bietet einen 
umfassenden Überblick über 
die verschiedenen Anwen- 
dungsbereiche der Grafikpro- 
‚grammierung: zwei- und drei 
dimensionale Diagrammdar- 
stellungen, Definition und Be- 
wegung von Sprites, Entwurf 
von Titelgrafiken, Einsatz der 
(Grafik bei der Unterstützung 
anderer Programme. Alle Bei 
spiele auf Diskette. (Best.Nr. 
MT 898, DM 34,90°) und 


ed NEMTB7E der Grafik und Sound zupro 


grammieren. Weiterhin erlah 
ISOn 300001024 fen Se als über OPIM Plus 
DM A6,-AFr. 42,301 358,00 aut dem GP 6128 
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©.Straush 
DR-LOGO auf dem 
‚Schneider CPC 

2. Quartal 1986, ca. 250 8. 
Speziell auf die Schneider 
Computer anwendbar finden 
Sie in diesem Buch eine struk- 
turierte Anleitung für die prak- 
tische Arbeit mit der Program. 
miersprache LOGO. Mit zahl 
reichen Beispielen zur Grafik 
und Soundprogrammierung. 
Das letzte Kapitel enthält 
nützliche Utlities (2.8. SORT- 
Routinen) viele Informationen 
über die Aufteilung des Spei: 
chers (Speicheranalyse und 
Tastendefinition), _Erklärun. 
‚gen zu den Editorkommandos 
über die deutschen LOGO- 
Befehle sowie Lösungsvor- 
schläge zu den Aufgaben. 
Best.Nr. MT 90210 

ISBN 3-89090:210-3 

DM A6,-IFr. 42,30108 358,80 


Mic, 


H.Tischer 
Programmentwicklung 
unter CP/M 2.2 auf dem 


CPC 464/664 

Februar 1988, 340 Seiten 
Dieses Buch vermittelt alle 
Informationen, die zum selb 
ständigen Entwickeln von 
CP/M 2.2-Programmen nötig 
sind. Besprochen wird 
sowohl die grundlegende 
Funktionsweise des CP/M 
Betriebssystems als auch alle 
dem Anwender schon zur Ver: 
fogung stehenden System- 
routinen, die diesem viel 
Arbeit ersparen. Zwei Kapitel 
beschäftigen sich dabei aus 
schließlich mit den zusätzi 
chen Möglichkeiten, die nur 
die Computer CPC 464/664 
bieten, 

Kenntnisse der 8080- oder 
280-Assemblersprache sind 
erforderlich, 
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DM 52,-IaFr. 47,80/88 405,60 
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CPC 464 - Programmieren 
in Maschinensprache 


G.Jürgensmeier 
WordStar 3.0 mit 
MailMerge für den 


1985, 276 Selten Schneider CPC 
Dieses Buch welht in 1985, 435 Seiten 
Arbeitsweise des BASIC Das unentbehrliche Zusatz 
Interpreterseinunderklärtdie Handbuch für die Arbeit mil 
Funktionsweise der Bauteile — am Bureau pe 


desGerätsundderenZusam-  gestahı MT 178 
ISBN 3-89090:180:8 


Nr. MT 829 DM AB,-sFr. 45,10/08 31 
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